Bonjour,

J'essai de faire une macro qui parcours plusieurs colonnes sur une seule ligne et si la cellule est vide saisie 0 dedans sinon elle passe à la prochaine.

J'ai essayé ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim i As byte
 
For Each Cell In Sheets("Feuil1").Range("D25:AM25")
 
    If ActiveCell.Value <> "" Then
        i = i + 1
    Else: ActiveCell.FormulaR1C1 = "0"
 
    End If
 
Next
Pas d'erreur de code mais ça ne fait rien, alors j'ai essayé :

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
Dim i As Integer
 
i = 1
 
 
Range("D25:AM25").Select
 
 
While Cells(1, i) <> ""
 
'i = i + 1
 
 
    If ActiveCell.Value <> "" Then
        i = i + 1
    Else: ActiveCell.FormulaR1C1 = "0"
 
    End If
 Wend
mais marche pas non plus...

Merci de votre aide

Valérie