boucle pour appelant un userform

[stormseye]

Bonjour,

Je vous sollicite car je n'arrive décidément pas à trouver une solution.😕
Je souhaite réaliser une boucle pour qui teste chaque ligne et selon différentes conditions, ouvre un userform. L'utilisateur choisi alors entre oui non et abandon. Selon son choix, différentes actions sont réalisées.

Je bloque pour déclarer le clic sur le button "oui" par exemple (ligne soulignée).
Pouvez vous m'aider à la mise en forme de ce code s'il vous plait...
Merci d'avance


Private Sub UserForm()

Dim compteur As Integer

Dim oui As Boolean
oui = False

Num = Sheets("base_donnees").Range("B65536").End(xlUp).Row + 1

Sheets("base_donnees").Activate

For compteur = 2 To Num
If Range("J" & compteur).Value = " " Then
If Range("I" & compteur).Value = " " Then

intro.Caption = "Le devis n° " & Range("A" & compteur).Value & " a-t-il été envoyé ?"
datej.Caption = Range("B" & compteur).Value
...

If oui_click Then
Msg box("oui")
Next compteur
End If

If non_click Then
suite ...
End If

End If
End If
End Sub

 

[jpb388]

Re : boucle pour appelant un userform

Bonjour

if mavar=6 then a la place de If oui_click Then
pour info
vbOK =1 (Bouton OK )
vbCancel =2 (Bouton Annuler )
vbAbort =3 (Bouton Abandonner )
vbRetry =4 (Bouton Répéter )
vbIgnore =5 (Bouton Ignorer )
vbYes =6 (Bouton Oui )
vbNo =7( Bouton Non )
a+
jp

 

[stormseye]

Re : boucle pour appelant un userform

Comment peut-on insérer ces contrôles dans un user form stp ?

 

[jpb388]

Re : boucle pour appelant un userform

Bonjour
je bloque pour déclarer le clic sur le button "oui" , j'ai cru que c'était le retour d'un msgbox
mettez votre fichier en ligne pour qu'on parle de la même chose
a+
jp

 

[stormseye]

Re : boucle pour appelant un userform

dans le fichier, mon problème est la gestion du userform relance.

Je veut que celui-ci apparaisse pour chaque ligne de la base de données, d'où la boucle pour dans le module gestion_relance.

J'ai fait de nombreux essais donc je m’excuse si le code n'est plus très clair...

Merci d'avance pour votre aide...

 

[Staple1600]

Re : boucle pour appelant un userform

Bonjour Jean-Marc

If mavar = 6 Then
            Msg box("oui")
            Next compteur

C'est MsgBox , il n'y a pas d'espace 😉

PS: en principe on ôte les données confidentielles et on les remplace par des données bidons.

 

[stormseye]

Re : boucle pour appelant un userform

Merci beaucoup
cette solution correspond exactement à mon besoin

Je ne sait pas clore la discussion... quelqu'un peut il le faire ?

Encore merci,
Storms-eye