Copier coller avec une macro

Bonjour Forum,

Je cherche comment copier deux colonnes, une avec le remplissage en série, qu'il me continue ma suite de nombre et l'autre un copier coller à la hauteur de deux autre colonnes qui sont un peu plus rempli.

Je met fichier joint ça sera plus parlant.

Merci de vôtre aide.

Bonjour,

Testes ceci :

Sub Test()

    Range("A26").AutoFill Range("A26:A50"), xlFillSeries
    Range("C26").AutoFill Range("C26:C50"), xlFillCopy

End Sub

Bonjour,

Un test si cela fonctionne sur 2003

Merci a vous deux, les deux formules fonctionnent seulement un petit bémol , les cellules ne seront jamais identique c'est a dire que le Range("A25").Select pourrait être en A150 etc etc ça sera jamais le même chiffre puisque ça sera pour constituer une liste.

Re,

Encore eût-il fallu que je le susse.

A savoir si c'est toujours le même nombre de cellule à incrémenter en colonne A et à recopier en colonne C

Merci de ta réponse

Non ça sera variable ça pourrais être 10 lignes ou 100 lignes, tout dépend.

J'avais fait ça pour un autre copier coller. Mais je bûche sur celui là (le sujet) pas le code en bas

Sheets("Data").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Base").Select
    On Error Resume Next
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Re,

Teste avec cette macro

Sub Recopie()
    Dim DernLigne As Long
    Dim NbLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    NbLigne = InputBox(" De combien de lignes voulez-vous incrémenter ?")
    Cells(DernLigne, 1).Select
    Selection.AutoFill Destination:=Range(Cells(DernLigne, 1), Cells(DernLigne + NbLigne, 1)), Type:=xlFillSeries
    Cells(DernLigne, 3).Select
    Selection.AutoFill Destination:=Range(Cells(DernLigne, 3), Cells(DernLigne + NbLigne, 3)), Type:=xlFillCopy
    Range("A1").Select
End Sub

Merci c'est quasi ça mais sans la boite de dialogue ça serait mieux , je préférais que ça soit automatique, qu'il me mette pile poil à la hauteur des autres lignes, pas que ça déborde quoi

Re,

Alors il faut que tu m'explique comment savoir à l'avance le nombre de ligne à recopier

En prenant appuie sur celles qui sont le plus rempli par exemple la colonne B et D seront toujours plus remplis et identiquement remplis que celle que je veux copier, c'est faisable ça ?

Re,

Comme ceci peut-être

Sub Recopie()
    Dim DernLigne1 As Long
    Dim DernLigne2 As Long
    Dim NbLigne As Long
    DernLigne1 = Range("A" & Rows.Count).End(xlUp).Row
    DernLigne2 = Range("B" & Rows.Count).End(xlUp).Row
    NbLigne = DernLigne2 - DernLigne1
    If NbLigne = 0 Then Exit Sub
    Cells(DernLigne1, 1).Select
    Selection.AutoFill Destination:=Range(Cells(DernLigne1, 1), Cells(DernLigne1 + NbLigne, 1)), Type:=xlFillSeries
    Cells(DernLigne1, 3).Select
    Selection.AutoFill Destination:=Range(Cells(DernLigne1, 3), Cells(DernLigne1 + NbLigne, 3)), Type:=xlFillCopy
    Range("A1").Select
End Sub

Ça par exemple bah c'est nickel

Pourquoi faire compliquer alors que c'est simple

M12 je te remercie 1000 fois