Condition, Like, Font.Bold

Bonjour,

Arrivez-vous à deviner pourquoi ça ne fonctionne pas ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub GRAS() Dim x As Variant Dim i As Integer i = 1 x = Cells(i, 1).Value   For Each Worksheet In ActiveWorkbook.Worksheets For i = 1 To 100 If x Like "Q" & [1-20] Then Cells(i, 1).Font.Bold = True Cells(i + 1, 1).Font.Bold = True End If Next i Next     End Sub

---

Pièce jointe 583093


L'idée est de mettre en gras tout ce qui est Q1, Q2, ... Q1000 et aussi la ligne juste en-dessous à chaque fois qu'on rencontre un Q1, Q2, ...Q1000.

Salut

Citation:

---

Arrivez-vous à deviner pourquoi ça ne fonctionne pas ?

---

Pas difficile.

Ta variable x est constamment rattachée à la seule cellule "A1" de ta feuille active.
D'où la nécessité
d'une part, de bien rattacher les objets Range ou Cells à leur feuille Parent.
d'autre part, d'affecter à cette variable les valeurs différentes en fonction de chaque boucle

De plus, je te conseille d'utiliser une autre variable pour balayer la collection des feuilles de travail.

Enfin, personnellement ayant un peu de mal avec l'opérateur Like, j'aurais testé ainsi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub essai()   Dim i As Long   With ActiveSheet For i = 1 To 3 With .Cells(i, 1) .Font.Bold = IsNumeric(Replace(.Value, "Q", "")) End With Next i End With   End Sub

---

A adapter bien entendu

Mais c'est juste mon avis.

Voilà

Merci bien! Très recherché la ligne avec IsNumeric; il fallait y penser ;-)