XL 2019 Mise en forme Conditionnelle sur VBA

[melltel]

Bonjour,
excusez moi d'ecrire si tot car j'ai fouiller toute la nuit en vain.
j'ai un tableau avec les valeurs et je souhaite faire une MFC de telle sorte que:
-lorque je clique sur la cellule E6 contenant le chiffre 1 ou la cellule E7 contenant 2,
toute la ligne 6 ou la ligne 7 du tableau se colore differement et affiche la valeur 1 ou 2 dans la cellule F fussioné.
et pareillement pour les autres données du tableau.

voici mon fichier si vous avez des idées svp
Merci

 

[sylvanu]

Bonjour Melltel,
J'ai un petit pb à l'ouverture de votre fichier :

 

[melltel]

Bonjour Melltel,
J'ai un petit pb à l'ouverture de votre fichier :
Regarde la pièce jointe 1150879

bonjour Sylvanu, je t'envoi un autre.
Merci

 

[sylvanu]

Re,

lorque je clique sur la cellule E6 contenant le chiffre 1 ou la cellule E7 contenant 2,

Si l'action doit être déclenchée par un clic sur une cellule, une MFC ne sait pas faire.
Une action sur un clic ne peut être fait qu'en VBA ( Worksheet_SelectionChange )

m'affiche la valeur de référentiel ou de finance en fonction de ce que j'ai coché.

Où se trouvent ces valeurs ?

 

[melltel]

Re,

Si l'action doit être déclenchée par un clic sur une cellule, une MFC ne sait pas faire.
Une action sur un clic ne peut être fait qu'en VBA ( Worksheet_SelectionChange )


Où se trouvent ces valeurs ?

oui je cherche le code en vba

 

[sylvanu]

Re,
Un essai en Pj avec ce que j'ai compris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [E6:E1000]) Is Nothing Then
        Dim Ligne%: Ligne = Target.Row
        If Cells(Ligne, "E") Mod 2 = 1 Then ' si nombre en colonne E pair
            Cells(Ligne, "F") = Cells(Ligne, "A")
            Range(Cells(Ligne + 1, "A"), Cells(Ligne, "E")).Interior.Color = xlNone
            Range(Cells(Ligne, "A"), Cells(Ligne, "E")).Interior.Color = RGB(255, 255, 0)
        Else
            Cells(Ligne - 1, "F") = Cells(Ligne, "A")
            Range(Cells(Ligne - 1, "A"), Cells(Ligne, "E")).Interior.Color = xlNone
            Range(Cells(Ligne, "A"), Cells(Ligne, "E")).Interior.Color = RGB(255, 255, 0)
        End If
    End If
Fin:
End Sub

C'est un premier jet. Ensuite, si vous répondez aux questions du post #4, on peut affiner :

Généralement, quand le contributeur pose une question, c'est qu'il n'a pas compris.

 

[melltel]

Re,
Un essai en Pj avec ce que j'ai compris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [E6:E1000]) Is Nothing Then
        Dim Ligne%: Ligne = Target.Row
        If Cells(Ligne, "E") Mod 2 = 1 Then ' si nombre en colonne E pair
            Cells(Ligne, "F") = Cells(Ligne, "A")
            Range(Cells(Ligne + 1, "A"), Cells(Ligne, "E")).Interior.Color = xlNone
            Range(Cells(Ligne, "A"), Cells(Ligne, "E")).Interior.Color = RGB(255, 255, 0)
        Else
            Cells(Ligne - 1, "F") = Cells(Ligne, "A")
            Range(Cells(Ligne - 1, "A"), Cells(Ligne, "E")).Interior.Color = xlNone
            Range(Cells(Ligne, "A"), Cells(Ligne, "E")).Interior.Color = RGB(255, 255, 0)
        End If
    End If
Fin:
End Sub

C'est un premier jet. Ensuite, si vous répondez aux questions du post #4, on peut affiner :
Regarde la pièce jointe 1150887
Généralement, quand le contributeur pose une question, c'est qu'il n'a pas compris.

Merci Sylvanu.
enfet les valeurs sont celles a droites, dans la colonne E 1 , 2

merci pour ta contribution

 

[sylvanu]

J'en conclus que tout est ok ?

 

[melltel]

J'en conclus que tout est ok ?

je te remercie mais tu fais le changement comment? car quand je clique sur la cellule E7 qui est égal a 2, il n'ya pas de changement.
as tu mis les valeurs fixes?

 

[sylvanu]

quand je clique sur la cellule E7 qui est égal a 2, il n'ya pas de changement.

Bizarre, chez moi ça marche :

 

[melltel]

Bizarre, chez moi ça marche :
Regarde la pièce jointe 1150894

c'est exactement ca.
merci je Re-télécharge

 

[melltel]

Bizarre, chez moi ça marche :
Regarde la pièce jointe 1150894

Merciiiiii Sylvanu,
Ca marche!

 

[sylvanu]

Vous êtes vraiment brouillon. Pourquoi ce post a disparu :

Parce que ça, ça peut se faire en MFC avec simplement : =$B6=$A6, voir PJ.

 

[melltel]

Vous êtes vraiment brouillon. Pourquoi ce post a disparu :
Regarde la pièce jointe 1150898
Parce que ça, ça peut se faire en MFC avec simplement : =$B6=$A6, voir PJ.

Non!
je l'ai supprimé parce que je voulais juste être explicite dans ma demande. ce que j'ai envoyé étais vraiment des petits tests que je me fessais avant de joindre toutes les conditions .vue que j'ai télécharger le fichier que tu as fait et ca marchais, je me suis dit que c'est plus la peine.
Désolé!