Codes utiles VBA Excel

A placer dans un UserForm. Cela fonctionne sur n’importe quel type de control.


Dim objControl As Control

‘variante 1
For Each objControl In Me.Controls
  If TypeOf objControl Is MSForms.TextBox Then ‘modifier ici le type si nécessaire
    MsgBox objControl.Name
  End If
Next

‘variante 2
For Each objControl In Me.Controls
  If TypeName(objControl) = « TextBox » Then ‘modifier ici le type si nécessaire
    MsgBox objControl.Name
  End If
Next


'**************************************************************************************
'  Manipuler Word en VBA
'  ajouter la référence à Microsoft Word xx.x library au projet 
'  (Menu Projet >> Références...)
'**************************************************************************************
    
Sub GestionWord ()

    Dim AppWord As Word.Application

    On Error Resume Next

    ‘ Cherche une instance de Word si elle existe
    Set AppWord = GetObject(, « Word.Application »)

    If Err <> 0 Then
    ‘ Si GetObject échoue, utiliser CreateObject pour créer une instance de Word
        Set AppWord = CreateObject(« Word.Application »)
    End If

    ‘ ajoute un nouveau document
     AppWord.Documents.Add

     ‘ insère du texte au point d’insertion
     AppWord.Selection.TypeText Text:="Liste des Clients"

     ‘ sauter une ligne
     AppWord.Selection.TypeParagraph

     ‘ copie le contenu de A1 dans le document Word
     AppWord.Selection.TypeText Text:= » » & Range(« A1 »).Value

     ‘ enregistre les modifications
     AppWord.Documents.Save

     ‘ rend Word visible
     AppWord.Visible = True

    ‘ Quitte Word
     AppWord.Quit

    ‘ Vide l’objet en mémoire
    Set AppWord = Nothing

End Sub

Cocher la bibliothèque  Microsoft Scripting Runtime dans Outils / Références

Dans un module en VBA, copier/coller le code suivant :


Public oFSO As Scripting.FileSystemObject
Public oFichier As Scripting.File 'pour gérer un fichier
Public oTxt As Scripting.TextStream 'pour gérer le contenu

Function VerifLecteur(Lecteur As String) As Boolean
    ‘permet de tester l’existence d’un lecteur
    ‘initialisation de l’objet oFSO
    Set oFSO = New Scripting.FileSystemObject
    ‘test si le lecteur  existe
    If oFSO.DriveExists(Lecteur) = True Then
        VerifLecteur = True
    Else
        VerifLecteur = False
    End If
End Function

Function VerifRep(Repertoire As String) As Boolean
    ‘permet de tester l’existence d’un répertoire
    ‘initialisation de l’objet oFSO
    Set oFSO = New Scripting.FileSystemObject
    ‘test si le lecteur  existe
    If oFSO.FolderExists(Repertoire) = True Then
        VerifRep = True
    Else
        VerifRep = False
    End If
End Function

Function VerifFich(Fichier As String) As Boolean
    ‘permet de tester l’existence d’un fichier
    ‘initialisation de l’objet oFSO
    Set oFSO = New Scripting.FileSystemObject
    ‘test si le lecteur  existe
    If oFSO.FileExists(Fichier) = True Then
        VerifFich = True
    Else
        VerifFich = False
    End If
End Function

Dans un autre module, faire appel à ces fonctions, par exemple de la manière suivante :


Sub Test()
    'initialisation de l'objet oFSO
    Set oFSO = New Scripting.FileSystemObject

    ‘test sur un lecteur
    If VerifLecteur(« P ») = True Then
        MsgBox « le lecteur existe »
    Else
        MsgBox « le lecteur n’existe pas »
    End If

    ‘test sur un dossier (répertoire)
    If VerifRep(« C:\Android ») = True Then
        MsgBox « le repertoire existe »
    Else
        MsgBox « le repertoire n’existe pas »
    End If

    ‘test sur un fichier
    If VerifFich(« C:\Windows\win.ini ») = True Then
        MsgBox « le fichier existe »
    Else
        MsgBox « le fichier n’existe pas »
    End If

End Sub

Il suffit d’utiliser l’événement « KeyDown » et de vérifier si le code renvoyé correspond à la touche ENTREE


Private Sub TexBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        'mon code
    End If
End Sub


Voici une fonction permettant de déduire le numéro de la semaine dans une année.
Attention à toujours vérifier pour une date qui s’approche du 31/12 (qui appartient donc à une semaine à cheval sur l’année suivante) : dans ce cas, cette fonction renverra la valeur 1 (pour la semaine 1 de l’année suivante).

1) Placer le code suivant dans un module :
Function Semaine(UneDate As Date) As Integer
   Semaine = Format(UneDate, "ww", , vbFirstFourDays)
End Function


2) Appeler la fonction de cette manière :
Sub NumeroDeSemaine ()
   MsgBox Semaine(#10/31/2013#)
End Function


1) Créer un bouton sur un Userform, puis gérer l’événement Click côté code en intégrant le code ci-dessous


Private Sub CommandButton1_Click()

    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        MsgBox Repertoire.SelectedItems(1)
    Else
        MsgBox "Aucun Répertoire Sélectionné"
    End If

End Sub


Le plus simple est de créer une fonction qui renverra à la demande la lettre :

1) Placer le code suivant dans un module :


'Fonction qui renvoie la lettre à partir du numéro d'une colonne
Public Function lettre_colonne(colonne As Integer)
    lettre_colonne = Split(Cells(1, colonne).Address, "$")(1)
End Function


2) Puis faire appel à cette fonction dans une procédure quelconque :

Le plus simple est de créer une fonction qui renverra Vrai ou Faux en fonction du résultat

1) Placer le code suivant dans un module :


'Fonction qui vérifie si un fichier existe
Public Function FichierExiste(Chemin As String) As Boolean
    If Dir(Chemin) = "" Then
         FichierExiste = False
    Else
         FichierExiste = True
    End If
End Function

2) Puis faire appel à cette fonction dans une procédure quelconque :


If FichierExiste("C:\Dossier\toto.xlsx") = True then 

    'procédure si le fichier existe
Else
    'procédure si le fichier n'existe pas
End If

Placer ce code dans une procédure ou une fonction dans l’éditeur VBA :

NomActuelVba= ActiveSheet.CodeName
ActiveWorkbook.VBProject.VBComponents(NomActuelVba).Name = "NomFeuilleCoteVBA"


A ne pas confondre avec ce code qui modifie le nom de l’onglet coté Excel :

ActiveSheet.Name = "NomFeuille"