Bonjour,
c'est ça que tu cherches ?
sinon adaptes à tes besoins
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub essai()
Dim x As Long
For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If UCase(Range("A" & x)) = "A" Then
'j'imagine que les formats changent en col B
With Range("B" & x)
.NumberFormat = "0"
With .Font
'ci-dessous j'ai écris "arial" en E1
.Name = Cells(1, 5)
.FontStyle = "Normal"
'ci-dessous, j'ai écris 20 en C1
.Size = Cells(1, 3)
End With
End With
End If
Next x
End Sub |
PS : ici le "step" ne sert à rien, tu aurais pu faire
For x = 1 to Range("A" & Rows.Count).End(xlUp).Row
Partager