XL 2010 FONCTION SI VALEUR COLONNE ALORS LA LIGNE DE CETTE COLONNE ....

[Fugy]

Bonjour à tous,

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

Merci pour votre aide !
@+

 

[pierrejean]

Bonjour Fugy

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

 

[Fugy]

Bonjour Pierre Jean et merci de ton retour,

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.

@+

 

[Staple1600]

Bonjour le fil

Suggestion en passant
Pourquoi ne pas utiliser la Mise en Forme conditionnelle?
(Sur le ruban Excel, Onglet Accueil puis sous-onglet Style)

 

[Fugy]

Bonjour le fil

Suggestion en passant
Pourquoi ne pas utiliser la Mise en Forme conditionnelle?
(Sur le ruban Excel, Onglet Accueil puis sous-onglet Style)

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...

 

[Staple1600]

Re,

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.

EDITION: Bonjour pierrejean

 

[pierrejean]

Re

Salut Staple

A mettre dans le module de la feuille

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

 

[Fugy]

Bonjour,

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...

@+

 

[Fugy]

Re

Salut Staple

A mettre dans le module de la feuille

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

Pierre Jean,

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...

@+

 

[Fugy]

Pierre Jean,

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.
@+

 

[Fugy]

Re coucou,

En bricolant un peu ce que m'avait transmis Pierre jean, j'ai pu trouvé la solution.
Je met le fichier en PJ si cela peut aidé !

Merci encore !
@+