Discussion :

[antoine2933]

Bonjour,

Depuis quelque temps j'essai de trouver une solution pour réaliser un coloriage de cellule selon différentes condition.

Pour faciliter la compréhension je met en lien un fichier qui vous permettra de comprendre ce que j'aimerai faire.

En gros :

Si "colonne Secteur test" = 'rejetée' alors
si "colonne négatif" =1 alors "colonne secteur" se colore en orange
else "colonne secteur" se colore en bleu
else pas de changement.

je ne pense pas que se soit irréalisable mais vu que je ne suis pas un utilisateur de VBA j'aimerais bien un ptit coup de main

merci

[gFZT82]

Bonjour antoine2933,

Voici une solution utilisant l'événement SelectionChange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLign As Long
Dim Plage1 As Range, Plage2 As Range
Dim cel As Range
    With Worksheets("Feuil1")
        DerLign = .Range("E" & .Rows.Count).End(xlUp).Row
        Set Plage1 = .Range("E5:E" & DerLign)
        Set Plage2 = .Range("G5:H" & DerLign)
        If Not Application.Intersect(Target, Plage2) Is Nothing Then
            For Each cel In Plage1
                If .Range("G" & cel.Row) = "rejetée" Then
                    If .Range("H" & cel.Row) = 1 Then
                        cel.Interior.Color = RGB(255, 204, 153)
                    Else
                        cel.Interior.Color = RGB(204, 255, 204)
                    End If
                End If
            Next
        End If
        Set Plage1 = Nothing
        Set Plage2 = Nothing
    End With
End Sub

Cordialement.

[jfontaine]

Bonjour,

A mon avis une mise en forme conditionnelle suffit

Couleur Bleu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET(G6="rejetée";H6=0)

Couleur Orange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET(G6="rejetée";H6=1)

[antoine2933]

Bonjour,

merci beaucoup pour vos réponses. elles m'ont été utile.
est ce que vous savez si c'est possible de copier coller La MFC et le tableau ou elle se situe dans un autre onglet?

[jfontaine]

Par défaut, si tu fais un copier/coller tout se copie (données + mise en forme (conditionnelle incluse))

[antoine2933]

euh me suis peut étre mal exprimer je voudrais réaliser le copier coller a l'aide d'un bouton donc le coder en VBA mais quand je fais ça il me colle bien la mise en forme du tableau mais pas celle des cellules.

voila le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton1_Click()
'suppression du tableau précédent
    Sheets("pres").Range("D6:h1000").ClearContents
    For Each cel In Sheets("PSD").Range("PSD")
        With cel
'changement format
            .NumberFormat = "0.00%"
'transformation des . en ,
            .Value = Replace(cel.Value, ".", ",")
         End With
        If IsNumeric(cel.Value) And cel.Value <> "" Then
             cel.Value = CDbl(cel.Value)
 
        End If
    Next cel
'données
  Sheets("PSD").Range("PSD").Copy Destination:=ActiveSheet.Range("D6")
'modifier car supprime les couleurs et non les copie
End Sub