Macro copier coller avec une boucle

[jfdelval]

Bonjour a tous

Je suis novice , je souhaiterai créer une macro sur deux feuilles excel sur la feuille 1, je rentre des données sur la colonne B, ensuite des que je lance la macro cela copie et colle la colonne B sur la feuille 2, ensuite le lendemain je ressaisis des données sur la feuille 1 colonne B , des que je lance la macro cela recherche la colonne vide suivante de la feuille 2 puisque la colonne B est rempli des données de la veille

Pouvez vus m'aider pour cette macro qui balaye les colonne de la feuille des qu il trouve une colonne vide il colle les données

Merci de votre aide

Jean François

 

[ninbihan]

Re : Macro copier coller avec une boucle

Bonsoir,

En l'absence de fichier exemple voici un code essai:

Sub copie_quotidienne()
i = Application.WorksheetFunction.Max(2, Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column + 1)
Sheets(1).Columns("B").Copy Destination:=Sheets(2).Cells(1, i)
End Sub

Bonne soirée,

Ninbihan

 

[jfdelval]

Re : Macro copier coller avec une boucle

Bonjour

Merci pour la réponse

Je vais essayer