J'aimerais avoir un conseil, J'utilise du code VBA pour=20
faire du format conditionnel. Mon code me permet de=20
remplir toutes les cellules de la colonne A =E0 W mais j'ai=20
un petit probl=E8me. Par exemple si j'ai des donn=E9es dans=20
toutes les cellules de A15 =E0 W15 alors mon code va remplir=20
toutes les cellules par contre je souhaite =E0 nouveau=20
remplir toutes les cellules de A16 =E0 W16 mais si mes=20
cellules sont vide =E0 partir de R16 alors mes cellules de=20
R16 =E0 W16 ne prennent pas la couleur.
Comment mettre de la couleur m=EAme si mes cellules sont=20
vide?.
Voici mon code:
For Each Cell In Worksheets("Parc Inter D=E9pannages").Range
("X11:X65536")
If Cell =3D "SuiteInter" Then
Range("A" & Cell.Row, Range("W" & Cell.Row).End
(xlToLeft)).Interior.ColorIndex =3D 20
End If
Next Cell
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
FxM
Bonjour,
Dans ton code, tu dis de partir de W pour aller vers la fin à gauche (Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce que tu lui dis de faire.
Si tu veux aller de A à W sans autre forme de procès : Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le cas où une cellule colorée ne contiendrait plus "SuiteInter". Est-ce voulu ? Si non : If Cell = "SuiteInter" Then Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20 else Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 0 end if
@+ FxM
jean59 a écrit:
Bonjour,
J'aimerais avoir un conseil, J'utilise du code VBA pour faire du format conditionnel. Mon code me permet de remplir toutes les cellules de la colonne A à W mais j'ai un petit problème. Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont vide?.
Voici mon code: For Each Cell In Worksheets("Parc Inter Dépannages").Range ("X11:X65536") If Cell = "SuiteInter" Then Range("A" & Cell.Row, Range("W" & Cell.Row).End (xlToLeft)).Interior.ColorIndex = 20 End If Next Cell
Merci
Jean59
Bonjour,
Dans ton code, tu dis de partir de W pour aller vers la fin à gauche
(Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce que tu lui
dis de faire.
Si tu veux aller de A à W sans autre forme de procès :
Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le cas où une
cellule colorée ne contiendrait plus "SuiteInter". Est-ce voulu ?
Si non :
If Cell = "SuiteInter" Then
Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
else
Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 0
end if
@+
FxM
jean59 a écrit:
Bonjour,
J'aimerais avoir un conseil, J'utilise du code VBA pour
faire du format conditionnel. Mon code me permet de
remplir toutes les cellules de la colonne A à W mais j'ai
un petit problème. Par exemple si j'ai des données dans
toutes les cellules de A15 à W15 alors mon code va remplir
toutes les cellules par contre je souhaite à nouveau
remplir toutes les cellules de A16 à W16 mais si mes
cellules sont vide à partir de R16 alors mes cellules de
R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont
vide?.
Voici mon code:
For Each Cell In Worksheets("Parc Inter Dépannages").Range
("X11:X65536")
If Cell = "SuiteInter" Then
Range("A" & Cell.Row, Range("W" & Cell.Row).End
(xlToLeft)).Interior.ColorIndex = 20
End If
Next Cell
Dans ton code, tu dis de partir de W pour aller vers la fin à gauche (Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce que tu lui dis de faire.
Si tu veux aller de A à W sans autre forme de procès : Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le cas où une cellule colorée ne contiendrait plus "SuiteInter". Est-ce voulu ? Si non : If Cell = "SuiteInter" Then Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20 else Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 0 end if
@+ FxM
jean59 a écrit:
Bonjour,
J'aimerais avoir un conseil, J'utilise du code VBA pour faire du format conditionnel. Mon code me permet de remplir toutes les cellules de la colonne A à W mais j'ai un petit problème. Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont vide?.
Voici mon code: For Each Cell In Worksheets("Parc Inter Dépannages").Range ("X11:X65536") If Cell = "SuiteInter" Then Range("A" & Cell.Row, Range("W" & Cell.Row).End (xlToLeft)).Interior.ColorIndex = 20 End If Next Cell
Merci
Jean59
jean59
Merci fxmanceaux pour ta réponse,
Oui, c'est voulu concernant la non réinitialisation par contre quand je dis
"Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de R16 à W16 ne prennent pas la couleur."
A la fin il faut lire que je souhaite remplir les cellules de R16 à W16. En résumé, je souhaite toujours remplir par une couleur de A à W si dans ma cellule X je rencontre Suite Inter même si il existe des cellules sans données.
Merci ton/votre aide
jean59
-----Message d'origine----- Bonjour,
Dans ton code, tu dis de partir de W pour aller vers la fin à gauche
(Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce que tu lui
dis de faire.
Si tu veux aller de A à W sans autre forme de procès : Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le cas où une
cellule colorée ne contiendrait plus "SuiteInter". Est-ce voulu ?
Si non : If Cell = "SuiteInter" Then Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
J'aimerais avoir un conseil, J'utilise du code VBA pour faire du format conditionnel. Mon code me permet de remplir toutes les cellules de la colonne A à W mais j'ai
un petit problème. Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir
toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de
R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont vide?.
Voici mon code: For Each Cell In Worksheets("Parc Inter Dépannages").Range
("X11:X65536") If Cell = "SuiteInter" Then Range("A" & Cell.Row, Range("W" & Cell.Row).End (xlToLeft)).Interior.ColorIndex = 20 End If Next Cell
Merci
Jean59
.
Merci fxmanceaux pour ta réponse,
Oui, c'est voulu concernant la non réinitialisation par
contre quand je dis
"Par exemple si j'ai des données dans
toutes les cellules de A15 à W15 alors mon code va remplir
toutes les cellules par contre je souhaite à nouveau
remplir toutes les cellules de A16 à W16 mais si mes
cellules sont vide à partir de R16 alors mes cellules de
R16 à W16 ne prennent pas la couleur."
A la fin il faut lire que je souhaite remplir les cellules
de R16 à W16. En résumé, je souhaite toujours remplir par
une couleur de A à W si dans ma cellule X je rencontre
Suite Inter même si il existe des cellules sans données.
Merci ton/votre aide
jean59
-----Message d'origine-----
Bonjour,
Dans ton code, tu dis de partir de W pour aller vers la
fin à gauche
(Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce
que tu lui
dis de faire.
Si tu veux aller de A à W sans autre forme de procès :
Range("A" & Cell.Row, "W" &
Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le
cas où une
cellule colorée ne contiendrait plus "SuiteInter". Est-ce
voulu ?
Si non :
If Cell = "SuiteInter" Then
Range("A" & Cell.Row, "W" &
Cell.Row).Interior.ColorIndex = 20
J'aimerais avoir un conseil, J'utilise du code VBA pour
faire du format conditionnel. Mon code me permet de
remplir toutes les cellules de la colonne A à W mais
j'ai
un petit problème. Par exemple si j'ai des données dans
toutes les cellules de A15 à W15 alors mon code va
remplir
toutes les cellules par contre je souhaite à nouveau
remplir toutes les cellules de A16 à W16 mais si mes
cellules sont vide à partir de R16 alors mes cellules
de
R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont
vide?.
Voici mon code:
For Each Cell In Worksheets("Parc Inter
Dépannages").Range
("X11:X65536")
If Cell = "SuiteInter" Then
Range("A" & Cell.Row, Range("W" & Cell.Row).End
(xlToLeft)).Interior.ColorIndex = 20
End If
Next Cell
Oui, c'est voulu concernant la non réinitialisation par contre quand je dis
"Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de R16 à W16 ne prennent pas la couleur."
A la fin il faut lire que je souhaite remplir les cellules de R16 à W16. En résumé, je souhaite toujours remplir par une couleur de A à W si dans ma cellule X je rencontre Suite Inter même si il existe des cellules sans données.
Merci ton/votre aide
jean59
-----Message d'origine----- Bonjour,
Dans ton code, tu dis de partir de W pour aller vers la fin à gauche
(Range("W" & Cell.Row).End(xlToLeft)). Donc Excel fait ce que tu lui
dis de faire.
Si tu veux aller de A à W sans autre forme de procès : Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
Par contre, tu ne réinitialises pas la couleur dans le cas où une
cellule colorée ne contiendrait plus "SuiteInter". Est-ce voulu ?
Si non : If Cell = "SuiteInter" Then Range("A" & Cell.Row, "W" & Cell.Row).Interior.ColorIndex = 20
J'aimerais avoir un conseil, J'utilise du code VBA pour faire du format conditionnel. Mon code me permet de remplir toutes les cellules de la colonne A à W mais j'ai
un petit problème. Par exemple si j'ai des données dans toutes les cellules de A15 à W15 alors mon code va remplir
toutes les cellules par contre je souhaite à nouveau remplir toutes les cellules de A16 à W16 mais si mes cellules sont vide à partir de R16 alors mes cellules de
R16 à W16 ne prennent pas la couleur.
Comment mettre de la couleur même si mes cellules sont vide?.
Voici mon code: For Each Cell In Worksheets("Parc Inter Dépannages").Range
("X11:X65536") If Cell = "SuiteInter" Then Range("A" & Cell.Row, Range("W" & Cell.Row).End (xlToLeft)).Interior.ColorIndex = 20 End If Next Cell