Top 50 des macros préférées des xldiens

‘Code pour ouvrir un fichier et lui attribuer un objet (et vérifier si il n'est pas déjà ouvert)

chemin = "D:\Repertoire"
nom_fic = "Traitement.xls"
deja_ouvert = False
For Each fichier In Workbooks 'vérfier dans les classeurs ouverts
    If fichier.Name = nom_fic Then
        deja_ouvert = True 'si il y est
        Set fic_resultat = Workbooks(nom_fic)
    End If
Next

If Not deja_ouvert Then 'si il ne l'est pas, l'ouvrir depuis le répertoire
    Set fso = CreateObject("Scripting.filesystemobject")
    Set dossier = fso.getfolder(chemin)
    For Each fichier In dossier.Files
        If fichier.Name = nom_fic Then
            Set fic_resultat = Workbooks.Open(fichier)
        End If
    Next

End If

Sub Ext_BD()
'Ext bD
    Range("_BD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "_CR"), CopyToRange:=Range("_ZD"), Unique:=False
End Sub

‘Mettre à jour des TCD

For Each feuilleTCD In ActiveWorkbook.Sheets 'pour chaque feuille
    For Each TCD In feuilleTCD.PivotTables 'pour chaque tableau présent
        ActiveSheet.PivotTables(TCD.Name).PivotCache.Refresh 'rafraichir le TCD
    Next TCD
Next feuilleTCD

Dim A As String
Dim B As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> A And Target.Count = B Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
   A = T.Address
   B = T.Count
Application.EnableEvents = True
End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TCD_Affiche_Valeurs_Distinctes()
'Extrait d'un TCD en page sur le champs Nom en nommant la colonne Nom: "DBNom"

Dim d As Object, Cell As Range

ActiveSheet.PivotTables(1).PivotCache.Refresh

Set d = CreateObject("Scripting.Dictionary")

For Each Cell In Range("BDNom")
  If Cell.Value <> "" Then d(Cell.Value) = Cell.Value
Next

nbval = d.Count: MsgBox (nbval & " valeurs distinctes.")

For Each c In d.keys
     ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom"). _
        CurrentPage = d(c)
     Sleep 2000
Next c

End Sub

For Each c In Range("truc")   
 If range("A1").Value > Machin Then
...
Next c

Machin = Range("A1").Value   
For Each c In Range("truc")   
 If c.Value > Machin Then
...
Next c