Copier coller de données par macro

[ascarter]

Bonjour le forum,
J'ai des données dans la feuille 1 et dans la feuille 2 qui sont concentrées dans une seule colonne. J'aimerais copier les données de la feuille 1 et les coller dans la feuille 3. Puis copier les données de la feuille 2 et les coller à la suite des données de la feuille 1 dans la feuille 3. Ceci en utilisant une macro si possible. J'ajoute pour info que le nombre de données dans les feuille 1 et 2 est variable. J'espére avoir été clair, j'ai mis en pj un exemple avec lequel vous comprendrez un peu mieux je pense. Merci d'avance pour vos réponses.

 

[Papou-net]

Re : Copier coller de données par macro

Bonjour ascarter,

Voici ton fichier avec une macro de démo attachée au bouton Copier.

Espérant avoir répondu.

Cordialement.

 

[ascarter]

Re : Copier coller de données par macro

Sa a l'air de marcher, merci beaucoup. Par contre y-a t-il un autre moyen de désigner les feuille où l'on va chercher les données et où on les colle? Merci.

 

[Papou-net]

Re : Copier coller de données par macro

RE

Voici une autre façon, entre autres, de désigner les feuilles :

Private Sub CommandButton1_Click()
For Each sh In Worksheets
  If Not sh Is Feuil3 Then
    For Each cel In sh.Range("A:A").SpecialCells(xlCellTypeConstants)
      lg = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1
      Sheets("Feuil3").Range("A" & lg) = cel.Value
    Next
  End If
Next
End Sub

On pourrait tout aussi bien utiliser le nom en clair des onglets :

Private Sub CommandButton1_Click()
For Each cel In Sheets("Feuil1").Range("A:A").SpecialCells(xlCellTypeConstants)
  lg = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets("Feuil3").Range("A" & lg) = cel.Value
Next
For Each cel In Sheets("Feuil2").Range("A:A").SpecialCells(xlCellTypeConstants)
  lg = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets("Feuil3").Range("A" & lg) = cel.Value
Next
End Sub

Mais, à mon avis, la solution initiale présente les avantages suivants :

- En cas de changement de nom des onglets, pas besoin de réécrire le code

- Ajout ou retrait de feuilles sans incidences sur le code également, à condition toutefois que la feuille cible reste toujours en dernière position

Voilà, en espérant avoir répondu à tes interrogations.

Cordialement.

 

[ascarter]

Re : Copier coller de données par macro

Merci beaucoup, tu as parfaitement répondu. Comme je débute en VBA, j'essaye de comprendre le maximum de choses. Merci encore.