Bonjour à tous
Je souhaite, lorsque l’on retrouve une condition en A13 :A27, qu’un userform s’affiche pour donner accès à d’autres formulaires. Dans mon exemple, il s’agit de Control-D. Donc, si je sélectionne Control-D dans la liste en A13, l’userform s’ouvre, et l’usager doit ouvrir un autre fichier pour compléter sa demande.
Le hic, c’est que si l’usager complète sa demande en ajoutant un autre service à la ligne A14 mais qui ne requiert pas un formulaire supplémentaire, l’useform des formulaires s’ouvre parce que Control-D est déjà inscrit en A13. Je souhaiterais que ce dernier ne s’ouvre pas à nouveau! Seulement quand la condition est respectée.
Comment compléter le code pour tenir compte de cette particularité?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
Calendrier.Show
Cancel = True
End If
If Not Application.Intersect(Target, Range("A13:A27")) Is Nothing Then
Userform1.Show
End If
For i = 13 To 27
If (Cells(i, "A")) = "Control-D" Then
UserForm2.Show
End If
Next i
End Sub
merci