Vérifier si une sélection appartient à une plage?

[Corranh9]

Bonjour à tous,

Je suis débutant sur VBA et je voudrai que ma macro teste le fait que la sélection appartienne à une plage.

La plage de référence n'est malheureusement pas continue. Ce serait du style A1:A15 et C1:C15.

La macro doit donc vérifier que la sélection est incluse dans la A1:A15 ou C1:C15 et dans ce cas lancer une autre macro, sinon envoyer un message pour dire que la sélection n'est pas correcte.

Je me suis aidé pour toutes mes autres macros du forum et de vos messages, mais là je cale....

Merci d'avance pour votre aide

Corranh9

 

[Pierrot93]

Re : Vérifier si une sélection appartient à une plage?

Bonjour Corranh

regarde le code ci-dessous si il peut t'aider, à adapter à ton projet :

If Not Application.Intersect(Selection, Range("A1:A15, C1:C15")) Is Nothing Then
    MsgBox "ok dans la plage"
Else
    MsgBox "pas dans la plage"
End If

bonne journée
@+

 

[Corranh9]

Re : Vérifier si une sélection appartient à une plage?

Oui Pierrot, c'est parfaitement ça.

Merci d'avoir répondu aussi vite.

Bonne journée

Corranh9

 

[ROGER2327]

Re : Vérifier si une sélection appartient à une plage?

Bonjour à tous

Quelque chose pour s'assurer que toute la sélection est dans la plage souhaitée.

[COLOR="DarkSlateGray"]Sub toto()
   Dim b
   Set b = Intersect(Selection, Union(Range("A1:A15"), Range("C1:C15")))
   If b Is Nothing Then
      MsgBox "Sélection incorrecte"
   Else
      If Selection.Address = b.Address Then
         MsgBox "C'est bien !"
      Else
         MsgBox "Sélection incorrecte"
      End If
   End If
End Sub[/COLOR]

ROGER2327

 

[Corranh9]

Re : Vérifier si une sélection appartient à une plage?

Merci Roger.

En effet je n'avais pas vu cette possibilité.

Ca marche parfaitement maintenant.

Merci encore a vous deux.

Bonne journée

Corranh9