Boucle bouton Oui/Non formulaire

simP

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
0
Affichages
183

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 581
Messages
2 089 916
Membres
104 306
dernier inscrit
Bouhlal