essai code simple

[madininais]

Bonjour,
j'ai un souci avec ce simple code,
le débugger me détecte une erreur au commencement de ma boucle while :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Remplissage_mesures()
'
' Remplissage_mesures Macro
'
'
Dim i As Integer
i = ActiveCell.Row
 
Do While Not IsEmpty(Cells(i, A))
Range("Ai:Ki").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599963377788629
.PatternTintAndShade = 0
 
i = i + 1
End With
Loop
End Sub

Pouvez vous m'aider ?

* Merci *

[fring]

Bonjour,

Soit la lettre de la colonne entre guillemets

Code :

Do While Not IsEmpty(Cells(i, "A"))

Soit l'index de la colonne

Code :

Do While Not IsEmpty(Cells(i, 1))