Bonjour le forum
J'ai un petit souci que je pensais résoudre avec le code VBA ci-dessous, mais je n'y parviens pas.
J'ai mis une illustration directement dans mon fichier excel en piece jointe.
Je remercie par avance ceux qui se pencheront sur mon souci.
Chloé
Sub GardePremier()
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While i < [A20].End(xlUp).Row
temp = Cells(i, "A")
If Not MonDico.Exists(temp) Then
MonDico(temp) = ""
i = i + 1
Else
Rows(i).EntireRow.Hidden = True
End If
Loop
End Sub
J'ai un petit souci que je pensais résoudre avec le code VBA ci-dessous, mais je n'y parviens pas.
J'ai mis une illustration directement dans mon fichier excel en piece jointe.
Je remercie par avance ceux qui se pencheront sur mon souci.
Chloé
Sub GardePremier()
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While i < [A20].End(xlUp).Row
temp = Cells(i, "A")
If Not MonDico.Exists(temp) Then
MonDico(temp) = ""
i = i + 1
Else
Rows(i).EntireRow.Hidden = True
End If
Loop
End Sub