If Not Application.Intersect sur plusieurs plages

[rudymagny]

Bonsoir le forum,
Je fais appel à votre aide concernant un code que j'utilise :

If Not Application.Intersect(Target, Range("C8:J60")) Is Nothing Then
.......
End If

et je voudrais utiliser ce code sur plusieurs plages et pas que Range("C8:J60")
par exemple prendre aussi en compte Range("N8:U60")

comment puis je faire?

merci d'avance

 

[Pierrot93]

Re : If Not Application.Intersect sur plusieurs plages

bonsoir Rudy

essaye ainsi :

If Not Application.Intersect(Target, Range("C8:J60,N8:U60")) Is Nothing Then

End If

bonne soirée
@+

 

[rudymagny]

Re : If Not Application.Intersect sur plusieurs plages

Bonsoir Pierrot93 et merci pour ta réponse.
C'est nickel. Merci bonne soirée

 

[thomlau]

Re : If Not Application.Intersect sur plusieurs plages

Bonjour le forum.

En lisant ce fil, je me rend compte que je ne suis pas très doué en VBA.

En effet, ayant conçu plusieurs fichiers utilisés quotidiennement dans mon entreprise et étant soucieux du confort de l'utilisateur, j'utilisais beaucoup ce code pour des MFC en VBA...

If Not Application.Intersect(Target, Range("C8:J60")) Is Nothing Then
.......
End If

Et ce pour plusieurs plages de cellules, donc je répétais autant de fois ce code au lieu de séparer mes plages par des virgules, comme dans ce post.

Je vous remercie donc pour ce fil.

Bonne soirée @ tous.