Bonjour,
je souhaite créer un userform permettant de vérifier si la valeur d'un cellule est présente dans une plage de données sur la même feuille.
Mon code actuel me permet de mettre en évidence les valeurs non présentes dans la plage attribuée :
Sub userform_initialize()
Dim fr As Range
Dim eng As Range
Dim org As Range
For i = 1 To 30
Plage = Cells(1, i).Value
With Worksheets("Compare").Range(Cells(4, i), Cells(14, i))
Set c = .Find(Plage, LookIn:=xlValues)
If c Is Nothing Then
Set org = (Cells(1, i))
Set fr = Range(Cells(5, i), Cells(10, i))
Set eng = Range(Cells(12, i), Cells(18, i))
ListBox3.RowSource = org.Address
ListBox4.RowSource = fr.Address
ListBox5.RowSource = eng.Address
End If
End With
Next
End Sub
Cependant je veux intégrer deux boutons permettant de quitter le formulaire et une deuxième permettant de continuer ma boucle jusqu'a la prochaine valeur non trouvée.
J'ai essayé différentes méthodes du forum mais rien de fonctionne!
un peu d'aide serait la bienvenue
je souhaite créer un userform permettant de vérifier si la valeur d'un cellule est présente dans une plage de données sur la même feuille.
Mon code actuel me permet de mettre en évidence les valeurs non présentes dans la plage attribuée :
Sub userform_initialize()
Dim fr As Range
Dim eng As Range
Dim org As Range
For i = 1 To 30
Plage = Cells(1, i).Value
With Worksheets("Compare").Range(Cells(4, i), Cells(14, i))
Set c = .Find(Plage, LookIn:=xlValues)
If c Is Nothing Then
Set org = (Cells(1, i))
Set fr = Range(Cells(5, i), Cells(10, i))
Set eng = Range(Cells(12, i), Cells(18, i))
ListBox3.RowSource = org.Address
ListBox4.RowSource = fr.Address
ListBox5.RowSource = eng.Address
End If
End With
Next
End Sub
Cependant je veux intégrer deux boutons permettant de quitter le formulaire et une deuxième permettant de continuer ma boucle jusqu'a la prochaine valeur non trouvée.
J'ai essayé différentes méthodes du forum mais rien de fonctionne!
un peu d'aide serait la bienvenue