XL 2010 Colorier toute une ligne en VBA

  • Initiateur de la discussion Initiateur de la discussion Scorpio
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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+
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
280
Réponses
3
Affichages
248
Réponses
17
Affichages
305
Réponses
3
Affichages
232
Retour