Filldown avec plusieurs cellules

Bonsoir

j'aimerai effectuer un filldown, alors que j'ai plusieurs cellules de sélectionnées.

En A1 et B2 j'ai des formules, je voudrais sélectionner celles ci range("A1:B2")

et les recopier en C1,D2 ; E1,F2...

cordialement

vincent

Bonsoir,

Par VBA ?? et si oui, combien de fois ???

Amicalement

Oui ça serai par VBA, mais d'une longueur variable, sinon j'aurais pu faire un copier/coller.

Par exemple ca pourrais être jusqu’à la première cellule vide de la colonne C

vincent

re,

essaie ceci :

Sub test()
'MAcro Dan pour vinc24 le 08/11/2010
Dim j As Byte, i As Byte
j = 3
For i = 1 To 4
Range("A1").Copy Cells(1, j)
Range("B2").Copy Cells(2, j + 1)
j = j + 2
Next
End Sub

Le i est la variable qui te permet de recopier autant de fois que tu veux. Ici, les cellules A1 et B2 seront recopiées 4 fois.

si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil.

Amicalement

Merci pour la réponse. Je m'était trompé lors de mon explication, je voulais que la copie s'effectue en dessous, et non a droite. Pour ceci j'ai inversé ligne et colonne dans "cells()"

mais étant donné que c'est de longueur variable, j'ai essayer le code suivant, sans réussite!

il y a une erreur pour trouver le row de la dernière cellule remplie dans la colonne C...je ne vois pas pourquoi!

Sub Bouton1_Clic()
'
' Bouton1_Clic Macro
'
Dim g
g = ActiveSheet.Range("C1").End(xlDown).Row

Dim j As Byte, i As Byte
j = 3
For i = 1 To g
Range("A1").Copy Cells(j, 1)
Range("B2").Copy Cells(j + 1, 2)
j = j + 2
Next

End Sub

vincent

Bonjour,

Essaie avec ce code :

Sub Bouton1_Clic()

    Dim g, i

    g = ActiveSheet.Range("C1").End(xlDown).Row

    For i = 3 To g Step 2
        Range("A1").Copy Cells(i, 1)
        Range("B2").Copy Cells(i + 1, 2)
    Next
End Sub

A+