J'ai quelques connaissances en VBA mais pas non plus des masses...
Je cherche à réaliser un changement de couleur d'une ligne en fonction de la valeur des cellule d'une colonne.
en détail :
If Columns (6) = "95%" Then => si la colonne F = 95% alors
Range.Select => sélection de la ligne
cellule.Interior.Color = 16764057 'couleur BLEUE
End Select
End If
If cells(ligne,6)="95%" ou ifcells(ligne,6)=0.95 then rows(ligne).Interior.Color = 16764057
avec ligne= le N° de la ligne en question (éventuellement selection.row) s'il s'agit de la ligne de la cellule sélectionnée
En fait la ligne en question doit se sélectionner toute seule en fonction de la valeur de la cellule dans la colonne.
c'est à dire dans la colonne F (le 6), si une des cellules =0,95 alors toute la ligne de cette cellule change de couleur.
Hello
La difficulté de la mise en forme conditionnel c'est que des qu'il y a une modification de ligne ou colonne sur des copier/coller, ça bousille tout en créant de nouvelles formules conditionnelles...
Fugy
Peut-être que si tu joignais un fichier exemple reproduisant la structure de ta feuille originale
(mais avec des données bidons, RGPD oblige), on pourrait alors infirmer ou confirmer la MFC et /ou privilégier le VBA.
Private Sub Worksheet_Activate()
For n = 1 To Range("F" & Rows.Count).End(xlUp).Row
If Cells(n, 6) = 0.95 Then
Rows(n).Interior.Color = 16764057
Else
Rows(n).Interior.Color = xlNone
End If
Next
End Sub
Ci joint un extrait du fichier.
Avec l'utilisation de la mise en forme conditionnelle, et lors d'un copier/coller, cela me détraque la MFC avec la création de nouvelles formules ... C'est pourquoi je souhaitais passer en VBA...
Private Sub Worksheet_Activate()
For n = 1 To Range("F" & Rows.Count).End(xlUp).Row
If Cells(n, 6) = 0.95 Then
Rows(n).Interior.Color = 16764057
Else
Rows(n).Interior.Color = xlNone
End If
Next
End Sub
Merci pour le code, ca marche niquel en VBA !!
Si par contre quelqu'un a une solution pour que cela fonctionne avec la MISE EN FORME CONDITIONNEL sans que cela se détraque dès qu'il y a un copier/coller...
Une petite demande complémentaire STP,
Visiblement lorsque j'active la macro :
- cela m'efface également les intérieurs de plusieurs cellules (des lignes 1 à 6 et pas forcément toutes les cellules ?? => Possible d'appliquer la formule qu'à partir de la ligne 6 ?
- je souhaite intégrer plusieurs IF avec plusieurs couleurs au choix mais cela n'en prend qu'une.
Voir en PJ le fichier intégrant la formule VBA.
@+