Mise en forme conditionnelle

[Roni95]

Bonjour,

J'ai besoin d'aide pour une mise en forme conditionnelle sur ce fichier. http://cjoint.com/?cev1rzHoUu

J'ai besoin pour les codes de la colonne F & G (ligne 5 à 8) qu'ils soient en rouge lorsqu'ils s'afficheront dans la colonne D (Field name).

Merci pour votre aide.

 

[jeanpierre]

Re : Mise en forme conditionnelle

Re,

On passe rapidement à géomérie variable.... Je ne sais pas faire...

Mets des couleurs différentes pour nous expliquer ce que tu veux et un petit texte au besoin.... Des flèches aussi, si besoin.... enfin un truc que l'on puisse comprendre.... Pas le cas pour moi en cet instant.

 

[Efgé]

Re : Mise en forme conditionnelle

Re
Avant de passer la main, un dernier post.
Si vous faites un copier coller d'autre chose que du texte, il faut le dire.
En faisant un copier coller de cellule à cellule vous annuler la mise en forme conditionnelle (vous copier la mise en forme de la cellule d'origine). Il faut copier / coller uniquement le texte de la cellule.
Vous pouvez; par exemple mettre en F4 une formule qui renvoi à la bonne cellule (du type en F4

=Feuil2!E8

D'autre part il ne s'agit pas de quatre mises en forme : vous n'avez qu"une seule condition à mettre :
si le texte de la cellule est différent de so_cr_terms alors police en rouge.
C'est ce que dit cette formule...​

[LEFT]=D11<>"so_cr_terms"[/LEFT]

Bon courage.

Cordialement​

 

[Fo_rum]

Re : Mise en forme conditionnelle

Salut ...

à première vue, en D11 :
Mise en forme conditionnelle, la valeur de la cellule est différente de ="so_cr_terms", Format...
à tirer vers le bas.

 

[jeanpierre]

Re : Mise en forme conditionnelle

Re, Fo_rum, Efgé,

On comprend tous différemment, je n'ai pas compris la même chose.

 

[Roni95]

Re : Mise en forme conditionnelle

Je souhaite vous remercier à tous pour votre aide précieuse et encore navré pour mes mauvaises explications...

Merci pour votre super travail...

🙂 🙂

 

[Efgé]

Re : Mise en forme conditionnelle

Re
jeanpierre, Fo_rum, maintenant, on ne saura peut être jamais...
Très cordialement

 

[jeanpierre]

Re : Mise en forme conditionnelle

Re,

Merci de tes remerciements, mais,

On ne sait pas si tu as solutionné ton problème???

 

[Roni95]

Re : Mise en forme conditionnelle

Je re testerai à mon travail avec les fichiers dès lundi et vous tiens informés... car il me manque le fichier de données que j'intègre dans ce fichier...

 

[Roni95]

Re : Mise en forme conditionnelle

Je dois tester cela dès lundi à mon travail, car il me manque le fichier original des données que je colle dans ce fichier... Je vous tiens informé dès lundi....

Bon WE à vous

 

[Fo_rum]

Re : Mise en forme conditionnelle

Re ...


j'avoue n'avoir lu que la demande formulée dans le premier fichier joint 😱.
Une autre proposition sans MFC (à cause du Copier/Coller) avec une macro évènementielle.

 

[Roni95]

Re : Mise en forme conditionnelle

Re ...


j'avoue n'avoir lu que la demande formulée dans le premier fichier joint 😱.
Une autre proposition sans MFC (à cause du Copier/Coller) avec une macro évènementielle.

Bonsoir,

Cela fonctionne, mais uniquement si je colle les lignes une à une car en collant plusieurs lignes cela reste noir...😱

 

[Fo_rum]

Re : Mise en forme conditionnelle

Re

Le Target.Count > 1 empêche la coloration pour une sélection de plus d'une cellule, une solution :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D11:D" & [D60000].End(xlUp).Row)) Is Nothing Then Exit Sub
  Dim C As Range
  For Each C In Range(Target.Address)
    C.Font.ColorIndex = IIf(C <> "so_cr_terms", 3, 0)
  Next
End Sub

 

[Roni95]

Re : Mise en forme conditionnelle

Re

Le Target.Count > 1 empêche la coloration pour une sélection de plus d'une cellule, une solution :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D11:D" & [D60000].End(xlUp).Row)) Is Nothing Then Exit Sub
  Dim C As Range
  For Each C In Range(Target.Address)
    C.Font.ColorIndex = IIf(C <> "so_cr_terms", 3, 0)
  Next
End Sub

Génial, cela fonctionne 😱

Merci à tous Fo_rum et bien sûr à tous ceux qui m'ont aidé sur ce problème 😉

Bon WE à tous

 

[Roni95]

Re : Mise en forme conditionnelle

Re

Le Target.Count > 1 empêche la coloration pour une sélection de plus d'une cellule, une solution :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D11:D" & [D60000].End(xlUp).Row)) Is Nothing Then Exit Sub
  Dim C As Range
  For Each C In Range(Target.Address)
    C.Font.ColorIndex = IIf(C <> "so_cr_terms", 3, 0)
  Next
End Sub

Bonjour,

Je viens de tester avec le fichier original et il s'avère que les autres colonnes se mettent aussi en rouge. De plus, au niveau de la colonne D, il faudrait qu'il y ait uniquement les 4 termes spécifiés en F5 à F8 qui s'affiche en rouge et le reste des termes de la colonne se mettraient en noir...

J'espère être clair ???
Merci encore

 

[Roni95]

Re : Mise en forme conditionnelle

Up!

Merci pour votre aide