Copie de ligne

[romualdlecordier]

Bonjour

Pouez vous me dire comment créer une macro qui va recopier la ligne 1 colonne A, B et C jusqu'à la prochaine ligne non vide

Pour être plus explicite, j'ai mis en feuil 1 le tableau de départ et en feuil 2 celui que j'aimerai

Merci de votre aide

Romuald

 

[Modeste]

Re : Copie de ligne

Bonsoir,

Pour autant que j'aie bien compris et en considérant que la feuille active au moment de lancer la macro soit la feuil1, essaie ceci:

Sub remplir()
    For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 1) = "" Then Cells(i, 1).Resize(1, 3) = Cells(i - 1, 1).Resize(1, 3).Value
    Next i
End Sub

 

[romualdlecordier]

Re : Copie de ligne

Bonjour

Merci Modeste cela fonctionne super bien

Par contre quand je lance la macro, j'ai Microsoft Visual Basic qui s'ouvre (voir pièce jointe)

Comment faire pour que cela ne s'ouvre pas à chaque fois

Merci de votre aide

Romuald

 

[Modeste]

Re : Copie de ligne

Re-bonsoir,

On est d'accord que le code affiché dans l'éditeur Vbe est celui qui figurait déjà dans le classeur que tu as déposé?
Comment fais-tu pour "lancer la macro"?

 

[romualdlecordier]

Re : Copie de ligne

Bonjour

J'ai refait macro dans une feuille ou il y a toutes les données, ensuite j'ai créé un bouton

Voici la macro complete

Romuald

 

[Modeste]

Re : Copie de ligne

Re²,

La question est: "à quoi servent ces deux instructions répétées un nombre incalculable de fois?":

Selection.Locked = False
Selection.FormulaHidden = False

... et que fait celle-ci:

Application.Goto Reference:="Macro1"

😕

 

[romualdlecordier]

Re : Copie de ligne

Bonjour

Merci Modeste, j'ai trouvé, j'ai supprimé les choses inutiles

Romuald