Discussion :

[sophie123]

Bonjour,

suite à un message d'erreur (procédure trop grande)
je cherche à définir plusieurs plages de cellules dans le bout de code ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) Is Nothing Then

j'aurai souhaité pouvoir définir comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) or ("E" & ln4, "E" & ln2) or ("H" & ln4, "H" & ln2) Is Nothing Then

mais bien entendu ça ne fonctionne pas

Merci d'avance pour votre aide.
Sophie

[Patrice740]

Bonjour,

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  adr = "B" & ln4 & ":B" & ln2 & ", E" & ln4 & ":E" & ln2 & ", H" & ln4 & ":H" & ln2
  If Not Intersect(Target, Me.Range(adr)) Is Nothing Then

[patricktoulon]

et oui!!
je pense que c'est ton principe lui même qui n'est pas bon tout du moins en terme de code

ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) or ("E" & ln4, "E" & ln2) or ("H" & ln4, "H" & ln2) Is Nothing Then

je pense que tu va devoir (caser,switcher,ou multiple if elseif) tes tests du intersect

en l'état ton test correspond en traduction literaire
si intersection de la target avec la plage ("b"&nit4,"b" & int2) ou ("E" & ln4, "E" & ln2) or ("H" & ln4, "H" & ln2)

tout ce qui est en gras n'est pas testé et même interprété comme une erreur ou si pas de message d'erreur un bouclage system perpétuelles jusqu'à erreur de quantité de mémoire
sépare les tests intersect pour chaque plage
on aurais pu faire comme ceci mais je sui pas sur ques cellules non concernées soit pas prises en compte quand même alors a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Me.Range("B" & ln4, ":B" & ln2,"E" & ln4, ":E" & ln2),"H" & ln4, ":H" & ln2) Is Nothing Then

[sophie123]

merci pour la réponse

Je vais tester de suite.
Entre temps j'ai réussi autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) Is Nothing or Not Intersect (Target, Me.Range("E" & ln4, "E" & ln2) Is Nothing  or Not Intersect (Target, Me.Range("H" & ln4, "H" & ln2) Is Nothing Then

Bonne journée