information macro

[wilbur11]

Bonjour Groupe,

Voici un petit problème que vous pouvez surment me resoudre...

Ma macro actuelle qui fonctionne a merveille est la suivante :

Sub Choix_Articles()
Application.ScreenUpdating = False
If Not Intersect(Range("b6:b30"), ActiveCell) Is Nothing Then
UserForm1.Show
End If
Application.ScreenUpdating = True
End Sub

J'aimerais que mon userForm apparaisse pas juste dans le range B6:b30 mais aussi G10:G15 et peux etre G30:G35
Que dois-je mettre dans ma macro pour que ca passe?

 

[bqtr]

Re : information macro

Bonsoir,

Essaye ceci :

.../...
If Not Intersect(Union(Range("B6:B30"), Range("G10:G15"), Range("G30:G35")), ActiveCell) Is Nothing Then UserForm1.Show
.../...

A+

 

[wilbur11]

Re : information macro

Merci infiniment!

Ca marche a merveille!