XL 2010 Colorier toute une ligne en VBA

[Scorpio]

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

 

[Staple1600]

Re, bonjour phlaurent55

Toujours pour le fun
Sans boucle

Sub c()
With Cells(2, Columns.Count).Resize(100)
    .Formula = "=IF(N2=""ok"",""$"",1)"
    .SpecialCells(-4123, 2).EntireRow.Interior.ColorIndex = 15: .Clear
End With
Range("Q1").Resize(Rows.Count, Columns.Count - 16).Interior.ColorIndex = xlNone
End Sub

 

[Scorpio]

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

Re bonjour job75,
Dans le code que vous m'avez transmis tout à l'heure et je vous en remercie, et que j'utilise, serais-t-il possible d'ajouter les caractère en gras sur toute la ligne

 

[job75]

serais-t-il possible d'ajouter les caractère en gras sur toute la ligne

Sub StockInf50()
Dim Cell As Range
For Each Cell In [N2:N100]
If Cell = "ok" Then
    With Cell.EntireRow.Resize(, 16)
        .Interior.ColorIndex = 15
        .Font.Bold = True
    End With
End If
Next
End Sub

ou :

Sub StockInf50()
Dim Cell As Range
For Each Cell In [N2:N100]
    With Cell.EntireRow.Resize(, 16)
        .Interior.ColorIndex = IIf(Cell = "ok", 15, xlNone)
        .Font.Bold = Cell = "ok"
    End With
Next
End Sub

A+

 

[Staple1600]

Re

@Scorpio
J'en déduis que tu n'as pas testé les autres propositions?
(ne serait-ce que par curiosité)
Pour mettre en gras, utilises l'enregistreur de macros et tu seras content de trouver tout seul comment ajouter cela dans le code de job.

EDITION
Ah, job a été plus rapide.
Cela te fera une chose de moins à découvrir par toi-même 😉

 

[Scorpio]

Re Staple1600,
Effectivement, je n'ai pas encore utilisé les autres propositions,
Il me faux un peux de temps, merci
Et je profite pour remercier tous le monde de votre aide précieuse, car il est vrai que pour des personnes sans trop de bouteille pour ces codes VBA, le Forum est une chance
Merci à tous.
A bientôt
Promis, j'essaye les propositions 😉

 

[Scorpio]

Salut à tous
Alors pour répondre concrètement et cordialement à Staple1600, concernant le test sur les codes proposé, effectivement, tous ces codes fonctionne parfaitement à satisfaction. Maintenant j'ai trop de choix, c'est super, et je vous en remercie.
A bientôt sur le Forum, merci

 

[Staple1600]

Re

@Scorpio
Et la proposition de phlaurent55?
Tu l'as testée?

 

[Scorpio]

Re
A oui, mais je un peux le MFC
A bientôt merci

 

[Staple1600]

Bonjour le fil, le forum

@Scorpio
Il doit te rester un bout de croissant entre les dents car j'ai rien compris à ton dernier message 😉
Il manquerait pas un mot ou deux? (coincés derrière le croissant 😉 )