Discussion :

[acadraa]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[MarcelG]

Salut

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à

[acadraa]

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