Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de Code VBA - format conditionnel

Problème de Code VBA - format conditionnel

3 réponses
Avatar
jean59
Bonjour,

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

Merci=20

Jean59
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
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


Avatar
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

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


.




Avatar
AV
Et si tu utilisais une véritable MFC ?

AV