Suite à la ligne

Le
Guy85
Pourquoi, je n'arrive pas à mettre ces lignes comme ci-dessous.
J'ai le message "Attendu séparateur de liste ou )"
J'ai tout essayé sans résultat.
Merci de votre aide.

Set oplg = Range("D5:H44, V5:AJ44, I5:U6, I10:U20, I44:U44, I21:I43,
K21:K43, M21:M43, _
O21:O43, Q21:Q43, S21: S43, U20:U43, J21:T21, J23:T23, J25:T25, J27:T27,
_J29: T29, _
J31:T31, J33:T33, J35:T35, J37:T37, J39:T39, J41:T41, J43:T43")

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
michdenis
Le #21571521
Bonjour,

Comme ceci :

Set oplg = Range("D5:H44,V5:AJ44,I5:U6,I10:U20," & _
"I44:U44,I21:I43,K21:K43,M21:M43,O21:O43," & _
"Q21:Q43,S21:S43,U20:U43,J21:T21,J23:T23," & _
"J25:T25, J27:T27,J29: T29,J31:T31,J33:T33," & _
"J35:T35,J37:T37,J39:T39,J41:T41,J43:T43")

Le maximum de caractères que peut contenir range("....")
est de 255.

Je te suggère d'utiliser un tableau pour contenir les différentes
plages et de boucler sur les éléments du tableau. Dans un
message précédent ce matin, je te donnais un exemple !

'------------------------------------
Sub Test_GetAColor2()
Dim Arr(), UserColor As Long, Elt As Variant

Arr = Array("D5:AW5", "D13:AW44", "D8:H9", "V8:AW9", _
"AZ33", "AZ35", "AZ37", "AZ39", "AZ41")
UserColor = GetAColor()
If UserColor <> False Then
Application.ScreenUpdating = False
With Worksheets("Sheet1") 'Nom Feuille à adapter
For Each Elt In Arr
.Range(Elt).Interior.Color = UserColor
Next
Application.ScreenUpdating = True
End With
End If
End Sub
'------------------------------------



"Guy85"
Pourquoi, je n'arrive pas à mettre ces lignes comme ci-dessous.
J'ai le message "Attendu séparateur de liste ou )"
J'ai tout essayé sans résultat.
Merci de votre aide.

Set oplg = Range("D5:H44, V5:AJ44, I5:U6, I10:U20, I44:U44, I21:I43,
K21:K43, M21:M43, _
O21:O43, Q21:Q43, S21: S43, U20:U43, J21:T21, J23:T23, J25:T25, J27:T27,
_J29: T29, _
J31:T31, J33:T33, J35:T35, J37:T37, J39:T39, J41:T41, J43:T43")

Cordialement
Guy
Guy85
Le #21572081
Bonjour
Ok d'accord merci
cordialement
Guy

"michdenis"
Bonjour,

Comme ceci :

Set oplg = Range("D5:H44,V5:AJ44,I5:U6,I10:U20," & _
"I44:U44,I21:I43,K21:K43,M21:M43,O21:O43," & _
"Q21:Q43,S21:S43,U20:U43,J21:T21,J23:T23," & _
"J25:T25, J27:T27,J29: T29,J31:T31,J33:T33," & _
"J35:T35,J37:T37,J39:T39,J41:T41,J43:T43")

Le maximum de caractères que peut contenir range("....")
est de 255.

Je te suggère d'utiliser un tableau pour contenir les différentes
plages et de boucler sur les éléments du tableau. Dans un
message précédent ce matin, je te donnais un exemple !

'------------------------------------
Sub Test_GetAColor2()
Dim Arr(), UserColor As Long, Elt As Variant

Arr = Array("D5:AW5", "D13:AW44", "D8:H9", "V8:AW9", _
"AZ33", "AZ35", "AZ37", "AZ39", "AZ41")
UserColor = GetAColor()
If UserColor <> False Then
Application.ScreenUpdating = False
With Worksheets("Sheet1") 'Nom Feuille à adapter
For Each Elt In Arr
.Range(Elt).Interior.Color = UserColor
Next
Application.ScreenUpdating = True
End With
End If
End Sub
'------------------------------------



"Guy85" discussion :

Pourquoi, je n'arrive pas à mettre ces lignes comme ci-dessous.
J'ai le message "Attendu séparateur de liste ou )"
J'ai tout essayé sans résultat.
Merci de votre aide.

Set oplg = Range("D5:H44, V5:AJ44, I5:U6, I10:U20, I44:U44, I21:I43,
K21:K43, M21:M43, _
O21:O43, Q21:Q43, S21: S43, U20:U43, J21:T21, J23:T23, J25:T25, J27:T27,
_J29: T29, _
J31:T31, J33:T33, J35:T35, J37:T37, J39:T39, J41:T41, J43:T43")

Cordialement
Guy

Publicité
Poster une réponse
Anonyme