Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Microsoft 365Déclencher un userform depuis plusieurs cellules
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 !
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
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
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
- 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