Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Renvoie à la ligne

Renvoie à la ligne

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
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" a écrit dans le message de 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



Avatar
Philippe.R
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" a écrit dans le message de
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



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

"Guy72" a écrit dans le message de 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