Discussion :

[setsix]

bonjour

j'avais trouvé une macro sur internet qui marchait dans excel 2003. Or j'ai voulu la réutiliser dans excel 2010 mais çà ne marche pas. çà plante à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each PtiRec In Range("plage")
 
Sub copibas_sivid()
Dim PtiRec As Range
For Each PtiRec In Range("plage")
If PtiRec = "" Then PtiRec.Value = PtiRec.Offset(-1, 0).Value
Next PtiRec
End Sub

est-ce qu'il y a une personne qui pourrait m'éclairer?

Merci d'avance,

[SmallFlower]

Salut,

Il faut soit:
- Remplacer "plage" par la plage que tu souhaites parcourir. Par exemple "B2:E10"
- Ajouter une plage nommée dans le classeur appelée "plage"

[casefayere]

Bonjour,

En reprenant ton code :
(à adapter, bien sur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub copibas_sivid()
Dim PtiRec As Range, plage As Range
'exemple ta plage est en A2:A20,une valeur existe en A2
Set plage = Range("A3:A20")
For Each PtiRec In plage
  If PtiRec = "" Then PtiRec.Value = PtiRec.Offset(-1, 0).Value
Next PtiRec
End Sub

Comme tu n'es pas précis, autre exemple qui passe par une variable tableau, pour une grande plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub copibas_sivid2()
Dim plage 'un tableau
Dim x As Long
'exemple ta plage est en A2:A2000,une valeur existe en A2
plage = Range("A2:A2000")
For x = 2 To UBound(plage, 1)
  If plage(x, 1) = "" Then plage(x, 1) = plage(x - 1, 1)
Next x
Range("A2").Resize(UBound(plage, 1)) = plage
End Sub

Bonne journée