Copie de données

SVP, je cherche une fonction pouvant copier une cellule dans les cellules précédentes de la même colonne, tel que décris ci-après:

La cellule contenant le chiffre 6024 doit être copiée dans les 13 cellules précédentes de la même colonne; La cellule contenant le chiffre 6031 doit être copiée dans les 5 cellules précédentes d la même colonne et ainsi de suite, sans avoir à copier les cellule une par une? Merci. LuckyLucka. J'ai joint un petit fichier.

2711.00

2711.00

2711.00

2711.00

2713.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

6024 6024.00

2713.00

2711.00

2711.00

2711.00

2711.00

6030 6030.00

2711.00

2711.00

2711.00

2711.00

2711.00

6031 6031.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

2711.00

6041 6041.00

Bonsoir,

Un essai avec ce code à mettre en feuille 1.

Sub test()
Dim lRow%, i%
    Application.ScreenUpdating = False
    With Me
        lRow = .Range("a1000").End(xlUp).Row
        For i = lRow To 2 Step -1
           lRow = .Range("a" & i).End(xlUp).Row
           .Range("a" & i).Copy Destination:=.Range("a" & i - 1 & ":a" & lRow + 1)
           i = lRow + 1
        Next
    End With
End Sub

Cdlt,

Darzou

Merci Darzou. Je n'arrive pas à la faire fonctionner. Je ne suis pas un "wizard" de ces fonctions. Un peu d'aide sur comment intégrer code serait grandement apprécié. Merci.

Bonjour,

Un autre code :

Sub Remplissage()
Application.ScreenUpdating = False
With Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
    .Value = .Value
End With
End Sub

tu peux également le faire sans macro.

Le principe :

• Sélectionne la colonne A
• Appuie sur "F5", puis dans la boîte de dialogue, clique sur "Cellules"
• Sélectionne "Cellules Vides"
• Dans la 1ère cellule vide de la colonne A, donc la cellule A2, tu rentres cette formule :

=A3

Tu appuies sur "Ctrl" (Contrôle), et sur Entrée simultanément

Tu auras donc cette formule dans toutes les cellules vides

Tu sélectionnes de A2 à A73 (dans ton fichier exemple), tu fais "Copier", puis "Collage Spécial/Valeurs"

Et voili

Le fichier exemple avec la macro :

Bon courage, et bon dimanche

Bonjour,

Alt+F11 double clique sur feuil1 à gauche et tu colle le code à droite. Ensuite Alt+F8 puis exécuter.

Cdlt,

Darzou