SI condition MFC remplie alors

bonjour a tous,

je suis nouveau sur ce site et nouveau en vba.
j ai deja trouve pas mal de reponse a d autres de mes questions mais n arrive pas a trouver un code pour ceci:

j ai une MFC sur la colonne A( avec couleur 16777215 si condition remplie) ...et je je souhaiterais un code qui me dise Si la condition mfc est remplie en colonne A....qu il me mette un "OK" en colonne B.

je travaille sur excell2016

cela doit pas tre tres complique mais j y arrive pas

merci d avance

Bonjour satanas,

Tu as dû oublier de préciser la version 2016 lors de la création de ton poste, c'est important puisque cela peut permettre aux membres du forum de te répondre conformément à la version utilisée, tu as une liste déroulante où tu peux choisir ta version.

Je pense qu'il serait dans un premier temps judicieux d'extraire le code couleur de ta MFC via une variable de type String (ou Integer) - ne connaissant pas la nature du code extrait par VBA.

wColor = Range("A1").Interior.Color

Une fois cette valeur acquise, tu devrais être capable d'utiliser cette variable pour intégrer le code.

Néanmoins je pense que rien qu'à travers la MFC tu devrais être capable d'inscrire dans une autre cellule la valeur OK ? En te basant sur les mêmes critères qui t'ont permis d'appliquer la couleur.

MERCI de cette réponse rapide précision j'ai su extraire la valeur de ma couleur qui est 16777215

je précise que j ai déjà utilisé ce code ci mais voudrais le peaufiner a une colonne entière et pas une cellule active...

merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub cfTest()   Range("A3:A4").ClearContents   If ActiveCell.DisplayFormat.Interior.Color <> 16777215 Then ActiveCell.Offset(0, 1) = True Else: ActiveCell.Offset(0, 1) = False End If End sub

---

Dans ce cas tu as juste besoin de définir la plage de cellules à parcourir. Je te conseille vivement de passer par un tableau structuré (Sélection des données avec Ctrl + * , Mettre sous forme de tableau , Renommer le tableau)

Exemple : t_data

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Dim Wb As ThisWorkbook Dim WbO As Worksheet Dim t As ListObject Dim Cible As Range   Private Sub ColorTrueFalse() Set WbO = Wb.Sheets(...) Set t = WbO.ListObjects("t_data")   For Each Cible In t.ListColumns(1).DataBodyRange If Cible.Interior.Color = 16777215 Then Cible.Offset(0,1).Value = True Else Cible.Offset(0,1).Value = False End If Next Cible   End Sub

---

A tester

Bonjour,

Avec l'utilisation d'un tableau structuré, je ne prendrais pas la peine de codé via vba.
Une simple formule conditionnel ferais très bien l'affaire.

Il me semble que Excel (sans passer par VBA) n'a pas moyen d'extraire le numéro de la couleur associée à la mise en forme d'une cellule. Néanmoins, il est très certainement possible lors de la MFC qui colorie en rouge, de lui dire de mettre OK dans la ligne d'à côté.

ah si lors d une MFC il est possible de mettre"ok" juste la cellule à coté je suis preneur ...lol

Bonjour ...

Citation:

---

Envoyé par satanas120178

ah si lors d une MFC il est possible de mettre"ok" juste la cellule à coté je suis preneur ...lol

---

Avec un tableau structuré ou pas, tu as déjà le visuel avec la couleur, tu prends pour en faire quoi ?

Le seul intérêt immédiat que je vois est d’avoir une colonne masquée avec une MFC restreinte à celle-ci sinon cela suffit.
Pièce jointe 540689

Code:

---

1 2 3 4

Sub t() Dim C As Range For Each C In [Plage]: C(1, 2) = IIf(C < 14, "oui", ""): Next End Sub

---

Remarque : si Plage est un tableau structuré, avec les [ ] on peut le déplacer dans le classeur sans toucher à la macro (ni à la MFC).

Salut.

Il n'est pas possible de modifier la valeur d'une cellule par MFC, mais tu peux très bien avoir une formule en B qui reprend le test de la mfc et qui met ok si le test est validé. Normalement, il est rarement nécessaire (jamais, en fait) de tester la couleur résultante d'une mfc et il plus intéressant de travailler sur la condition elle-même...

Pièce jointe 540805

Pièce jointe 540809

Citation:

---

Envoyé par OrDonc

[...]tu prends pour en faire quoi ?[...]

---

Par exemple, pour compter les lignes qui correspondent à la condition, car il est relativement simple (en fonction de la complexité des conditions) de dénombrer les résultats d'une formule, alors qu'il est impossible, par formule native, de compter les cellules correspondant à une couleur. Si la couleur permet le tri, le filtre et l'observation visuelle, seule une valeur renvoyée par une formule permettra d'utiliser les outils d'Excel (Tableaux croisés dynamiques, formules de dénombrement et d'analyse, etc).

je vous remercie tous pour vos remarques et suggestions.
cela a resolu mon souci

merci