copie champs

[reve24]

Bonjour
est il possible de combler un champs vide par celui a qui il fait référence
Voir fichier

Mefci à vous

Ce que je désire

Toto1 Toto2 Toto3 Toto4
A1 B1 1 5
A1 B2 1 6
A2 B3 1 7
A2 B4 1 8
A2 B5 1 9
A3 B6 2 10
A3 B7 1 11
A3 B8 2 12
A4 B9 1 13

 

[Robert]

Re : copie champs

Bonjour Reve, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim cel As Range 'déclare la variable cel

For Each cel In Range("A2:A" & Cells(Application.Rows.Count, 2).End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne A
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value 'si la colonne est vide, récupère la valeur de la cellule au-dessus
Next cel 'prochaine cellule de la boucle
End Sub

 

[reve24]

Re : copie champs

Merci a toi
impeccable