Microsoft 365 Déclencher un userform depuis plusieurs cellules

  • Initiateur de la discussion Initiateur de la discussion kulas11
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kulas11

XLDnaute Nouveau
1713260812220.png

J'aimerais déclencher un userform depuis plusieurs cellule, j'ai trouvé cette écriture. Mais je voudrais avoir une ligne au lieu de trois !

Avez-vous des idées ? merci d'avance
 
Bonjour,
En définissant une plage préalablement, puis l'Intersect?
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range
If Target.CountLarge > 1 Then Exit Sub
Set Plg = Union(Range("A8"), Range("A12"), Range("A18"))
If Not Intersect(Plg, Target) Is Nothing Then UserForm1.Show
End Sub
Bon appétit
 
Bonjour.
Ceci devrait quand même marcher aussi :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Me.[A8;A12;A18], Target) Is Nothing Then UserForm1.Show False
   End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
213
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
170
Réponses
14
Affichages
373
Retour