Discussion :

[stevenP]

Bonjour !

J'ai un tout petit soucis ! je suis bloqué sur la fin

en fait je dois écrire une macro qui test si, en colonne A, la celulle est vide,
et si celle si est vide elle recopie la cellule d'au dessus !

j'ai écrit ça :

Code vba :

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
Sub RempBlanc()
 
Dim LastLig As Long
Dim UneCellule As Range
 
Range("A1", Range("A65536").End(xlUp)).Select
 
'Pour chaque cellule de la colonne
For Each UneCellule In Selection
    'récupération de la valeur
    If UneCellule.Value = 0 Then
       'Bloqué =/
    End If
Next
 
End Sub

Mais je ne trouve pas comment recopier la celulle d'au dessus

Merci pour votre aide !

[SfJ5Rpw8]

Bonjour,

Pour faire référence a la cellule au dessus utilise la propriétée offset de ta cellule...

[stevenP]

Code vba :

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 RempBlanc()
 
Dim LastLig As Long
Dim UneCellule As Range
 
Range("A1", Range("A65536").End(xlUp)).Select
 
'Pour chaque cellule de la colonne
For Each UneCellule In Selection
    'récupération de la valeur
    If UneCellule.Value = 0 Then
       'Bloqué =/
       UneCellule.Value = UneCellule.Offset(-1, 0)
    End If
Next
 
End Sub

Merci !!