Salut,

En VBA, avec une fonction personnalisée ou macro, avec une formule, faut voir comment tu as colorisé tes cellules, si c’est avec une mise en forme conditionnelle, il est possible de récupérer la condition de cette mise en forme, le mieux est que tu mettes ton fichier sans données confidentielles sur le forum avec ce lien

http://www.cjoint.com/


A+

Un problème sans solution est un problème mal posé  (Einstei­n)

Re,

Oui en VBA, quelles sont les conditions attrivuées à chaque couleur

A+

Un problème sans solution est un problème mal posé  (Einstei­n)

Je ne comprend pas ta dernière question

Lotus, excuses moi d'avoir encombré ce fil en essayant de t'aider avec une syntaxe fonctionnant suivant ta demande
mais, rassures-toi, je ne le ferai plus.
--

Désolé, je m'étais déconnecté.
Je m'étonne que ce forum ne permette pas d'envoyer une pièce jointe.

Dans cet exemple, j'ai une colonne (E) qui se colore en fonction d'une colonne située sur la gauche (B).
Je boucle sur ma zone et je colore en fonction du texte qui est écrit dans la colonne B.




Sub macro2()
'
'cellules qui contiennent prélèvement, virement ... B4:E17


'les cellules qui se colorent E4:E17

For i = 4 To 17
Range("E" & i).Select

valeur = Selection.Offset(0, -3).Value

Select Case valeur
Case "virement"
Range("E" & i).Interior.ColorIndex = 3
Case "prélèvement"
Range("E" & i).Interior.ColorIndex = 4
Case "remise"
Range("E" & i).Interior.ColorIndex = 5
Case Else
Range("E" & i).Interior.ColorIndex = 2
End Select

Next

End Sub

Bonjour,

Le bout de macro que je t'ai envoyé ne modifie pas le quadrillage.
Si tu le remets, il ne devrait pas changer à l'exécution de la macro

A plus

Je ne sais pas si çà peut t'aider pour ton programme, mais ce qui serait bien c'est d'affecter ta macro à un événement Worksheet_Change de manière à ce que à chaque fois que tu modifie une cellule avec l'ajout de virement, prélèvement..., la couleur se mette à jour automatiquement dans la cellule cible.

Du style:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("b4:b17")
If Not Application.Intersect(ActiveCell, Target) Is Nothing Then
'ici tu mets le nom de ta macro
End If
End Sub

code à disposer dans la feuille concernée

A plus

Merci c'est une bonne idée mais en general les mise à jour se font à la suite dans mon tableau, donc pas de risque d'ecraser les anciennes données, cela dit je prends bonnes notes! malheureusement la macro que tu m'a ecrite "supprime" le quadrillage d'excel sur les cellules concernées ou plutot je pense que ce sont des parametres de cellule à definir egalement en plus de la couleur....une idée? egalement si j'ai un terme tel que "virement de mr untel" ben ça ne reconnait pas le terme "virement" et ça c'est plus embetant.

Merci pour ton temps!

Salut Selba,

Merci beaucoup c'est tip top nickel!

Re Selba,

J'ai voulu mettre ta macro dans le module du classeur perso afin que cette macro soit disponible dans tous les classeurs. Depuis, chaque fois que je l'exécute un message d'erreur apparait : "erreur de complilation, variable non définie" en surlignant le "i" de "for i=4 to 17" en début de macro.