Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment tourner à la ligne d'une macro

Caninge

XLDnaute Accro
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:
 
L

lio

Guest
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.
 

_Thierry

XLDnaute Barbatruc
Repose en paix
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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…