Ramener la couleur d'une cellule
With Sheets("F1") '
Set Cel = .Rows(4).Find(what:=Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Colonne = Cel.Column
For J = 4 To Nblg
Set Cel = .Columns("E").Find(what:=Range("R" & J), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Range("P" & J) = .Cells(Cel.Row, Colonne)
End If
Next J
End If
End With
Columns("P").AutoFit
A l'endroit du smiley, je ne comprends pas pourquoi cela ne suffit pas pour ramener la couleur !!
Si une personne voit mon erreur sur cette ligne. Merci par avance,
Alfie
Bonjour,
La variable Nblg est censée correspondre à un nombre de ligne ?
A+
Oui variable Nblg correspond aux nombres de lignes.
Elle est déja définit plus haut dans mon code. (elle marche correctement) mais je n'arrive pas a ramener la couleur de la cellule intérieur de la cellule lors de ma boucle (J=4 to Nblg)
J'ai effectué un test et le résultat semble correct. Les cellules en colonne P prennent bien la couleur de remplissage des cellules recherchées.
As-tu un fichier exemple pour vérifier ?
A+
Bah moi ca ne marche pas....
Je te met un fichier joint.
C'est pour les 2 premiers onglets que j'aimerais que pour la colonne état la couleur soit ramenée.
Moi ca me les grise au lieu de mettre soit rouge, soit jaune ....
jespere que tu comprendras ma demande.
Cdt,
Alfie
La propriété Interior.Color renvoie la couleur de remplissage de la cellule de la feuille TB.
Or, la couleur que tu souhaites renvoyer est la couleur de la mise en forme conditionnelle.
Exemple : La cellule TB!J6 n’a aucune couleur de remplissage. Elle apparait pourtant en jaune car elle contient la valeur "not completed " qui correspond à la condition de la MFC qui colorie la cellule en jaune.
Voici une solution qui affecte la couleur de remplissage suivant la condition initiale.
A+
Merci frangy!!
Tu as répondu totalement a mon souhait, je ne savais pas qu'il fallait mettre color.Index !
Merci.encore de ton temps.
Cdt,
Alfie
Frangy,
peux tu regarder une dernière fois.
J'ai bien vu que le fichier renvoyer fonctionnait parfaitemement, mais dans m a version final il y a des choses ( date ou chiffre) ce qui explique le choix de la MFC qui est compris de "passed" a "passed z"
Mais je n'arrive pas a modifier ton code pour que cela marche.
J'ai fait un doc pour que cela soit plus claire,
si tu as une solution...
Merci.
Alfie
Tu peux utiliser le même type de solution
Case "not completed" To "not completed z"A+
Perfect !!!
j'avais essayé erreur de syntaxt ( le "to" )
Merci
j'ai maintenant ce qu'il me faut !
Bonne fin de journée frangy