Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel MFC avec conditions sur d'autres cellules

MFC avec conditions sur d'autres cellules

2 réponses
Avatar
Pierre F.
Bonjour =E0 toutes et tous;

J'ai trouv=E9 sur ce Forum des codes VBA pour aller au-del=E0 de 3=20
conditions possibles offertes dans "Mise en forme conditionnelle" (J'en=20
ai besoin de 5).

Le probl=E8me est que je n'arrive pas =E0 faire fonctionner le code car l=
a=20
condition ne porte pas sur la celle =E0 colorier.

Les cellules E6:AG6 doivent changer de couleur si E4:AG4 ont un contenu=20
particulier:

Contenu: "NOp" --> c.Interior.ColorIndex =3D 39
Contenu: "Geo" --> c.Interior.ColorIndex =3D 36
Contenu: "GrM" --> c.Interior.ColorIndex =3D 37
Contenu: "CLi" --> c.Interior.ColorIndex =3D 35
Contenu: "FLR" --> c.Interior.ColorIndex =3D 38

J'ai commenc=E9 comme cela:

Private Sub Worksheet_change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("E6:AG6")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case ...

C'est l=E0 que je ne sais plus quoi mettre...

Merci pour votre aide.

Cordialement,
Pierre F.
Signaler un problème avec ce contenu

2 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
Jacquouille
Sub AAAtestMEFC()
For Each C In Range("E4:AG4")
Select Case C.Value
Case "NOp"
C.Offset(2, 0).Interior.ColorIndex = 39
Case "Geo"
C.Offset(2, 0).Interior.ColorIndex = 36
Case "GrM"
C.Offset(2, 0).Interior.ColorIndex = 37
Case "CLi"
C.Offset(2, 0).Interior.ColorIndex = 35
Case "FLR"
C.Offset(2, 0).Interior.ColorIndex = 38
End Select
Next
End Sub
-----------------
Attention que ce machin tient compte de la casse (double majuscule)
Tu peux ajouter des "case" selon ton bon plaisir et selon la puisssance de
ta machine.
----------------
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Pierre F." a écrit dans le message de news:
7740e$4a44f386$55da2bbb$
Bonjour à toutes et tous;

J'ai trouvé sur ce Forum des codes VBA pour aller au-delà de 3
conditions possibles offertes dans "Mise en forme conditionnelle" (J'en
ai besoin de 5).

Le problème est que je n'arrive pas à faire fonctionner le code car la
condition ne porte pas sur la celle à colorier.

Les cellules E6:AG6 doivent changer de couleur si E4:AG4 ont un contenu
particulier:

Contenu: "NOp" --> c.Interior.ColorIndex = 39
Contenu: "Geo" --> c.Interior.ColorIndex = 36
Contenu: "GrM" --> c.Interior.ColorIndex = 37
Contenu: "CLi" --> c.Interior.ColorIndex = 35
Contenu: "FLR" --> c.Interior.ColorIndex = 38

J'ai commencé comme cela:

Private Sub Worksheet_change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("E6:AG6")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case ...

C'est là que je ne sais plus quoi mettre...

Merci pour votre aide.

Cordialement,
Pierre F.
Avatar
Pierre F.
Jacquouille a écrit :
Sub AAAtestMEFC()
For Each C In Range("E4:AG4")
Select Case C.Value
Case "NOp"
C.Offset(2, 0).Interior.ColorIndex = 39
Case "Geo"
C.Offset(2, 0).Interior.ColorIndex = 36
Case "GrM"
C.Offset(2, 0).Interior.ColorIndex = 37
Case "CLi"
C.Offset(2, 0).Interior.ColorIndex = 35
Case "FLR"
C.Offset(2, 0).Interior.ColorIndex = 38
End Select
Next
End Sub
-----------------
Attention que ce machin tient compte de la casse (double majuscule)
Tu peux ajouter des "case" selon ton bon plaisir et selon la puisssance de
ta machine.



Génial!! c'est le "Offset" qui me manquait pour décaler de 2 vers le haut.
Mille mercis.
Le fait que la casse compte m'arrange :-)

Cordialement,
Pierre F.