Comment créer une boucle de mise en forme des cellules
Résolu
lechtigars59
-
lechtigars59 -
lechtigars59 -
Bonjour,
Je me prends pas tête depuis des jours sur une macro que j'aimerais savoir faire. En faite, j'ai une liste de produit et j'aimerais mettre en couleur la valeur la moins chère.
Dans mon tableau j'aimerais faire la boucle suivante :
si a3=13 alors a3=couleur vert, si b3=i3 alors b3=couleur violet, si c3=i3 alors c3=couleur orange...et ceci pour les 150 lignes suivantes
....comment faire? je m'y perds moi avec les for..next
Je me prends pas tête depuis des jours sur une macro que j'aimerais savoir faire. En faite, j'ai une liste de produit et j'aimerais mettre en couleur la valeur la moins chère.
Dans mon tableau j'aimerais faire la boucle suivante :
si a3=13 alors a3=couleur vert, si b3=i3 alors b3=couleur violet, si c3=i3 alors c3=couleur orange...et ceci pour les 150 lignes suivantes
....comment faire? je m'y perds moi avec les for..next
6 réponses
-
Bonsoir lechtigars59,
tu dit: si a3=13 alors a3=couleur vert, si b3=i3 alors b3=couleur violet, si c3=i3 alors c3=couleur orange...et ceci pour les 150 lignes suivantes
Q1 : pour la cellule "A3" = i3 ou 13 ?
Q2 : comment vas-t-on trouver 150 couleurs différentes sur Excel ?
Q3 : Version d'Excel ?-
oups j'ai fait une erreur je rectifie :
si a3=i3 alors a3=couleur vert, si b3=i3 alors b3=couleur violet, si c3=i3 alors c3=couleur orange..
pour la ligne suivante je veux la même chose.si a4=i4 alors a4=couleur vert, si b4=i4 alors b4=couleur violet, si c4=i4 alors c4=couleur orange...
et ceci pour les 150 lignes suivantes
Donc je n'ai que 3 couleurs différentes au choix selon la valeur de ma cellule.
La version d'excel...2007
-
-
-
-
Voilà ce que tu veux lechtigars59,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Ligne As Integer, Colonne As Integer Dim i As Long, j As Long Dim LigneMin As Integer, LigneMax As Integer ' LigneMin = 1: LigneMax = 150 ' For i = LigneMin To LigneMax If (Cells(i, 1).Value = Cells(i, 9).Value) Then Range(Cells(i, 1), Cells(i, 1)).Font.ColorIndex = 4 ' vert End If If (Cells(i + 1, 1).Value = Cells(i, 9).Value) Then Range(Cells(i + 1, 1), Cells(i, 1)).Font.ColorIndex = 39 ' violet End If If (Cells(i + 2, 1).Value = Cells(i, 9).Value) Then Range(Cells(i + 2, 1), Cells(i, 1)).Font.ColorIndex = 46 ' orange End If Next i End Sub
A placer dans le code de la feuille, dans la procedure dont le nom figure ci-dessus.-
-
-
-
-
je rajoute un problème. Le code fonctionne très bien ! je l'ai même changé pour qu'il corresponde mieux à mon attente. Maintenant si je change la valeur d'une cellule, la mise en forme reste celle de la valeur précédente. Il oublie de prendre en compte le changement de valeur. En résumé, une cellule qui devient verte, restera verte alors qu'elle devrait redevenir blanche au changement de valeur. Qui a une idée dans le code de ce qui bloque ce changement?
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
1) Déjà, je ne comprend pas la première condition .. elle sera toujours fausse:
Colonne "A" contient un nom .. et colonne "I" contient des nombres,
c'est incompatible de comparer des pommes et des poires.
2) Dans la macro que tu avais acceptée, le problème est que l'on changeait de ligne et nom de colonne, alors c'est incorrect.
3) Ne dois-tu pas plutôt comparer les colonnes "D", "F" et "H" à la colonne "I" ? -
Salut lechtigars59,
Donc, tu travailles avec 2 procédures "achat" et "prix" qui ne fonctionne que quand on les appelles, c'est ça ?
Si oui, quand tu changeras une valeur dans ta feuille, les cellules ne seront pas mises à jour de façon automatique !
Bonne soirée.-
-
Le problème c'est qu'on arrive pas à se mettre au même diapason.
J'essaie de trouver un code qui fonctionne et tu changes tout, tu me donne des codes qui n'ont plus rien à voir.
Comme cela, on peut passer des mois et ça sans avancer d'un poil.
Soit je ne pige pas (c'est possible) soit on ne se comprend pas !
Je cède ma place ... -
-
