XL 2010 Colorier toute une ligne en VBA

Scorpio

XLDnaute Impliqué
Bonjour à tous,
Ce code que j'ai trouvé sur le net, j
'aimerais bien vous demander, s'il vous plaît, comment le corriger car je suis pas un as dans ce domaine.
En fait, ce code colorie une ou plusieurs cellules contenant le mot "ok" en colonne "N", et j'aimerais la couleur sur toute la ligne de "A à P".
Voilà, d'avance merci et à plus.
 

Pièces jointes

  • CouleurLigne.xlsm
    19.3 KB · Affichages: 51

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

Une autre façon de faire ______________________(Edit:sans Select, Salut job75 ;))
(code à mettre dans le code de la feuille concernée
clic-droit sur l'onglet -> Visualiser le code)
VB:
Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect([N2:N100], T) Is Nothing Then
If T Like "ok" Then
Cells(T.Row, 1).Resize(, 16).Interior.Color = RGB(125, 241, 69)
Else
Cells(T.Row, 1).Resize(, 16).Interior.Color = xlNone
End If
End If
End Sub
 

job75

XLDnaute Barbatruc
Re, salut JM (pas rafraîchi),
Code:
Sub StockInf50()
Dim Cell As Range
For Each Cell In [N2:N100]
If Cell = "ok" Then Cell.EntireRow.Resize(, 16).Interior.ColorIndex = 15
Next
End Sub
Prendre aussi l'habitude de déclarer les variables, cela évite beaucoup d'erreurs.

A+
 

job75

XLDnaute Barbatruc
Re,

Dans le même esprit que Staple1600, avec l'effacement de la couleur si Cell <> "ok" :
Code:
Sub StockInf50()
Dim Cell As Range
For Each Cell In [N2:N100]
Cell.EntireRow.Resize(, 16).Interior.ColorIndex = IIf(Cell = "ok", 15, xlNone)
Next
End Sub
S'il y a un bouton c'est simple : lui affecter la macro.

A+
 

Discussions similaires

Réponses
12
Affichages
194

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson