Discussion :

[fifou91]

Bonjour a tous,

J'ai un petit probleme, qui devrait vous prendre quelques petites minutes, mais qui m'ont deja pris plusieurs heures, debutant que je suis!

Pour mettre a jour un fichier excel, je voudrais copier/coller a l'aide d'une macro une ligne de plusieurs colones (AC5:AG5) dans les lignes d'en dessous, et je voudrais que ce copiage/collage s'arrete des qu'il rencontre la premiere ligne vide. (car le nombre de lignes a mettre a jour varie selon les informations que j'ai a traiter, je ne veux pas copier/coller 500 lignes a chaque fois si je n'ai que 200 lignes a mettre a jour)

J'ai essaye de faire une boucle, mais je vous avoue que je n'a pas tres bien compris le fonctionnement... quelqu'un pourrait-il m'aider svp!

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Actualizar()
 
Range("AC5:AG5").Select
Selection.Copy
    While ActiveCell.value <> Empty
         Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, Transpose:=False
         ActiveCell.offset(1, 0).Select
     Wend
 
End Sub

[Fvandermeulen]

Bonjour,
Si j'ai bien compris tu veux "écraser" un nombre de ligne variable avec les données des cellules "Ac5:AG5" et dans ce cas le code ci-dessous devrait te convenir.
Attention, j'ai considéré que les lignes à remplacer commencaient à la ligne 6 dans les mêmes colonnes, il faut donc adapter le code à tes besoins.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
 
'Compte le nombre de ligne remplie sur base de la colonne AC
NbLigne = Application.Subtotal(3, Sheets("sheet1").Range("ac:ac"))
 
Range("a5:g5").Copy
 
'Sélectionne la zone à "écraser" 6 car à partir de ligne 6 et 29 car colonne AC
Range(Cells(6, 29), Cells(NbLigne + 6, 29)).Select
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Application.CutCopyMode = False
 
End Sub

Bonne continuation.

PS il y a d'autres moyen de définir la plage à écraser...

[fifou91]

ok ca marche parfaitement!! merci bcq!