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.
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" a écrit dans le message de groupe de 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.
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" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de discussion :
euEZIuV3KHA.4332@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de groupe de 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.
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" a écrit dans le message de groupe de 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.
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" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de
discussion :
euEZIuV3KHA.4332@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de groupe de 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.