Renvoie à la ligne

Le
Guy72
Bonjour,
Je n'arrive par à trouver ce qui ne vas pas dans mon renvoie à la ligne.
Merci de votre aide.
Private Sub Peau_Click()
Range( _
"B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42,C34:C42,F41:P42, _
"C17;C19;C21;C23;C25;C27;C29;C31;C33").Select
With Selection.Interior
.ColorIndex = 21
.Pattern = xlSolid
End With

Range("A1").Activate
End Sub

--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #17364281
Bonjour,
Il y a un mélange de "virgule" et "point virgule".
Et .....encore une fois LA SELECTION N'EST PAS UTILE

Range("B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42,C34:C42,F41:P42,C17,C19,C21,C23,C25,C27,C29,C31,C33").Interior.ColorIndex
= 21
Range("A1").Activate
--
Attention aux coupures de lignes. Chaque range sur une ligne
Salutations
JJ


"Guy72"
Bonjour,
Je n'arrive par à trouver ce qui ne vas pas dans mon renvoie à la ligne.
Merci de votre aide.
Private Sub Peau_Click()
Range( _
"B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42,C34:C42,F41:P42, _
"C17;C19;C21;C23;C25;C27;C29;C31;C33").Select
With Selection.Interior
.ColorIndex = 21
.Pattern = xlSolid
End With

Range("A1").Activate
End Sub

--
Cordialement
Guy



Philippe.R
Le #17364451
Bonjour,
Si tu as besoin d'insérer un renvoi à la ligne dans le code, le séparateur
est " _" espace + souligné, sans oublier l'esperluette pour introduire la
ligne suivante

Range("B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42," _
& "C34:C42,F41:P42,C17,C19,C21,C23,C25,C27,C29," _
& "C31,C33").Interior.ColorIndex = 21
Range("A1").Activate
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Guy72" news:
Bonjour,
Je n'arrive par à trouver ce qui ne vas pas dans mon renvoie à la ligne.
Merci de votre aide.
Private Sub Peau_Click()
Range( _
"B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42,C34:C42,F41:P42, _
"C17;C19;C21;C23;C25;C27;C29;C31;C33").Select
With Selection.Interior
.ColorIndex = 21
.Pattern = xlSolid
End With

Range("A1").Activate
End Sub

--
Cordialement
Guy



Guy72
Le #17366231
Merci à tout les deux.
Jacky, ne te fâche pas je vais essayé d'y penser promis.
--
Cordialement
Guy

"Guy72"
Bonjour,
Je n'arrive par à trouver ce qui ne vas pas dans mon renvoie à la ligne.
Merci de votre aide.
Private Sub Peau_Click()
Range( _
"B3:AE4,B5:D15,Q5:AE42,D8:P9,B16:B42,D16:E42,C34:C42,F41:P42, _
"C17;C19;C21;C23;C25;C27;C29;C31;C33").Select
With Selection.Interior
.ColorIndex = 21
.Pattern = xlSolid
End With

Range("A1").Activate
End Sub

--
Cordialement
Guy



Publicité
Poster une réponse
Anonyme