Bonjour,
j'ai un souci avec ce simple code,
le débugger me détecte une erreur au commencement de ma boucle while :
Pouvez vous m'aider ?
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
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
* Merci *
Partager