Comment tourner à la ligne d'une macro

Caninge

XLDnaute Impliqué
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:
 

_Thierry

XLDnaute Barbatruc
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]
 

dg62

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
300 823
Messages
1 987 483
Membres
209 865
dernier inscrit
MALICK SENE