Travail avec données: Le retour

Salut a tous,

j'étais déjà venu solliciter votre aide pour récupéré des données dans un tableau et les répartir dans d'autre tableau.

Ce fut un succès.

A présent pour me faciliter la tache, le tableau de donnée a changer et lorsque j'essaye de modifier la macro ca ne marche plus, évidemment....

Le but étant le même. Voici le fichiers avec les explications

Autre question:

Est-il possible de réagir de façon conditionnelle à la couleur d'une cellule?

Je m'explique:

La colonne A contient des nombres avec certaines d'entre-elles ayant pour couleur de fond le vert.

Si la cellule est verte, alors mettre la cellule correspondante a 0 (colonne B)

Voila

Grand merci a vous et a votre aide 100% efficace!

Bonsoir,

Tu as oublier de joindre le fichier !

Amicalement

Claude

Voila le fichier, il était légèrement trop gros

Bonsoir,

Hum... pas de fichier en vue

Si tu avais lu ce lien https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html, tu verrais comment faire là...

A te relire

Bonsoir Dan,

Si, le fichier a été ajouté sur le 1er message

Je n'aurais pas le temps de le suivre !

Claude

Bonjour

A tester dans tous les sens

Pour

Est-il possible de réagir de façon conditionnelle à la couleur d'une cellule?

Cela doit être possible avec une fonction personnalisée qui te retourne Vrai/Faux si la couleur est celle que tu veux

Sauf erreur ou omission (âge et mémoire)

Bonne nuit

Super! la batterie de test a fonctionner! Un énorme merci

En ce qui concerne le 2ieme problème?

J'ai ceci comme Macro:

Public Function ColorCell(Cible As Range) As Variant
ColorCell = Cible.Interior.ColorIndex
End Function

Et dans mon tableau je met ceci:

=SI(ColorCell(A1)>0;"0";"")

Il met effectivement 0 quand il y a une couleur. Cependant, je n'arrive pas a changer la fonction de façon a ce qu'il ne fasse rien si il n'y a aucune couleur et ainsi ne pas changer le contenu de la cellule initial

merci

Bonjour

ne pas changer le contenu de la cellule initial

Si ce contenu est le résultat d'une formule ou une valeur fixe : Mets la formule (valeur) dans le test

=SI(ColorCell(A1)>0;"0";A1*25)

ou

=SI(ColorCell(A1)>0;"0";189)

Important : il faut qu'il y ait une modification d'une cellule dans la page pour que le résultat de la mise en/hors couleur soit pris en compte

Bonne journée