Comment tourner à la ligne d'une macro

[Caninge]

Bonjour tout le monde

j'ai un petit problème
Je ne sais pas tourner au bout de la ligne d'une macro.


If Intersect(Target, Range('CU18,CY21,DD33,DA39,CZ45,DH46,DC54'))Is Nothing Then
pression1 = False
Exit Sub
End If

Je dois rajouter des références de cellules (environ 400)
comment je dois faire pour éviter de n'avoir qu'une seule ligne ?

Je vous remercie !!

CANINGE
:whistle:

 

[lio]

bonjour le forum,
bonjour caninge,

Je suis un débutant alors ...

Je crois qu'il faut insérer un espace au bout de la ligne puis mettre un tirer _, puis tu peux recommencer une nouvelle ligne.
Salut.

 

[dg62]

Bonsoir Caninge


As-tu bien analysé ton problème ? 400 références de cellules cela me semble énorme. Il y a surement un moyen plus efficace pour gérer ton problème.

 

[_Thierry]

Bonsoir Didier, Caninge, Lio, le Forum

Je confirme l'explication de Lio, en ce qui concerne l'espace et l'UnderScore que l'on peut couper ainsi au beau milieu d'une String :

If Intersect(Target, Range('CU18,CY21,DD33,DA39,' & _
                            'CZ45,DH46,DC54')) Is Nothing Then
pression1 = False
Exit Sub
End If

Ceci dit je suis aussi en accord avec la remarque de Didier, car tu n'es pas sorti de l'auberge avec 400 références !

Orientes toi soit vers des Champs Nommés, très facile à gérer dans ton cas de figure, ou encore un Algo mais vu ton extrait de références je ne vois aucun concordance pour en établir un... Ou encore des commentaires, ou des Interior.ColorIndex, etc etc...

Bon Courage
[ol]@+Thierry[/ol]

 

[Caninge]

Bonjour à vous tous!

J'ai essayé et c'est bon.

C'est vrai plus de 400 références de cellules c'est beaucoup.

Je prendrai mon temps.

Merci beaucoup

Caninge

 

[dg62]

Bonjour Caninge


pour alleger ta formule tu peux nommer l'ensemble de tes cellules.


CTRL + sélection de chaque cellule

tu nommes l'ensemble 'nomplage'


et tu utilises ce nom dans ta formule.

If Intersect(Target, Range('nomplage')) Then
pression1 = False
Exit Sub
End If

 

[Caninge]

Bonjour Dg 62

Je te remercie

Je n'avais pas penser à ça.

C'est une bonne idée !

je mettrai en application!

Merci

CANINGE