[RÉSOLU] VBA : format conditionnel

[dionys0s]

Bonjour le forum

J'ai un tableau avec un nombre variable de lignes, et des colonnes de A à H.
Je voudrais que dès qu'une cellule de la colonne H contiens la valeur 999, toute les cellules de la même ligne de A à G soient sur fond rouge.

Merci pour votre aide

 

[Dull]

Re : VBA : format conditionnel

Salut dionis0s, le Forum

Une Mise en forme Conditionnelle devrais pouvoir te faire cela

Sélectionne les colonnes de A à G
Format/Mise en Forme Conditionnelle

Condition1 La formule est =$H1=999
Format: Onglet Motif choisis ta couleur
Ok
Ok
et Voila

Bonne Journée

 

[Hulk]

Re : VBA : format conditionnel

Hello dionys0s, Dull 🙂, Forum,

Avec du VBA..

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim x As Range

    For Each x In Range("H1:H" & Range("H65536").End(xlUp).Row)
        If x = 999 Then
            Range("A" & x.Row & ":H" & x.Row).Interior.ColorIndex = 3
        Else
            Range("A" & x.Row & ":H" & x.Row).Interior.ColorIndex = xlNone
        End If
    Next x

End Sub

Bonne journée et week 🙂

 

[dionys0s]

Re : VBA : format conditionnel

Ca ne marche pas. Ca met la cellule qui contient la valeur 999 sur fond rouge (donc en colonne H), mais pas les autres cellules de la ligne (colonnes A à G)

 

[pat01200]

Re : VBA : format conditionnel

Bonjour dionysOs,

Voici une méthode qui n'est sans doute pas la plus rapide, mais qui fonctionne :

Tu te positionnes en A1. Là, tu cliques sur l'onglet "Format" puis "Mise en forme conditionnelle". Dans la première liste déroulante de la boîte de dialogue, tu sélectionnes "La formule est". Dans la fenêtre suivante tu écris : =H1=999 et tu cliques sur le bouton "Format". Tu cliques sur l'onglet "Motif" et tu sélectionnes la couleur rouge, puis tu cliques sur "OK" jusqu'à ce que la boîte de dialogue se ferme. Tu copies ensuite ta cellule A1 sur toutes les cellules de ta colonne A.
Tu fais la même opération en B1, puis C1, D1... jusqu'à G1 et le tour est joué !

 

[dionys0s]

Re : VBA : format conditionnel

Erf mauvais timing. Je vais essayer le VBA de ce pas

 

[Dull]

Re : VBA : format conditionnel

Salut Hulk🙂 Re le fil

Tout comme moi tu as fait l'impasse sur Contient 999 😀

un autre code dans la même veine

[COLOR=BLUE]Option Explicit[/COLOR]
[COLOR=BLUE]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
[COLOR=BLUE]Dim[/COLOR] C [COLOR=BLUE]As[/COLOR] Range
[COLOR=BLUE]For Each[/COLOR] C [COLOR=BLUE]In[/COLOR] Range("H1:H" & Range("H65536").End(xlUp).Row)
    [COLOR=BLUE]If[/COLOR] C.Value [COLOR=BLUE]Like[/COLOR] "*999*" [COLOR=BLUE]Then[/COLOR]
    [COLOR=BLUE]With[/COLOR] Range(C.Offset(, -7).Address & ":" & C.Offset(, 0).Address)
        .Interior.ColorIndex = 3
        .Font.Bold = [COLOR=BLUE]True[/COLOR] [COLOR=GREEN]'Facultatif[/COLOR]
    [COLOR=BLUE]End With[/COLOR]
    [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]Next[/COLOR] C
[COLOR=BLUE]End Sub[/COLOR]

Bonne Journée

 

[dionys0s]

Re : VBA : format conditionnel

Je vais pouvoir me débrouiller avec le VBA de Hulk.

Merci beaucoup pour votre aide