Version imprimable
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.
j'aurai souhaité pouvoir définir comme ceciCode:If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) Is Nothing Then
mais bien entendu ça ne fonctionne pas :)Code:If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) or ("E" & ln4, "E" & ln2) or ("H" & ln4, "H" & ln2) Is Nothing Then
Merci d'avance pour votre aide.
Sophie
Bonjour,
Par exemple :
Code:
2
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
je pense que tu va devoir (caser,switcher,ou multiple if elseif) tes tests du intersectCode:If Not Intersect(Target, Me.Range("B" & ln4, "B" & ln2) or ("E" & ln4, "E" & ln2) or ("H" & ln4, "H" & ln2) Is Nothing Then
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:If Not Intersect(Target, Me.Range("B" & ln4, ":B" & ln2,"E" & ln4, ":E" & ln2),"H" & ln4, ":H" & ln2) Is Nothing Then
merci pour la réponse
Je vais tester de suite.
Entre temps j'ai réussi autrement
Bonne journéeCode: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