Bonsoir,
Lorsque je souhaite copier - coller des données d'une feuille à l'autre, j'utilisais cette solution :
Sheets("Mafeuille").Range("Plage de données").Value = Sheets("Mafeuille2").Range("Plage de données").Value
J'ai été confronté à des soucis en utilisant des plages de données bien définies, aussi j'ai opté pour variabiliser ces dernières.
J'ai donc tenté de m'y prendre ainsi :
Private Sub CommandButton1_Click()
Dim g As Long,
Set ws2 = Worksheets("A")
Set ws3 = Worksheets("B")
g = ws2.Cells(Rows.Count, 2).End(xlUp).Row
ws3.Range(Cells(4, 2), Cells(g + 1, 2)).Value = ws2.Range(Cells(3, 10), Cells(g, 10)).Value
End Sub
Puis comme ça :
Private Sub CommandButton1_Click()
Dim g As Long, h As Long, m As Long
Set ws2 = Worksheets("A")
Set ws3 = Worksheets("B")
g = ws2.Cells(Rows.Count, 2).End(xlUp).Row
For h = 4 To g + 1
For m = 3 To g
ws3.Cells(h, 2).Value = ws2.Cells(m, 10).Value
Next
Next
End Sub
Malheureusement, ça ne fonctionne pas.
La première tentative donne une erreur.
La seconde tentative copie la dernière donnée de la plage de données de la feuille 1 et copie son contenu sur l'ensemble de la plage de données de la feuille 2.
J'ai eu la même chose avec la première donnée de la feuille 1.
Je joins un fichier pour davantage de clarté. Aucune idée de ce qui peut bien clocher...
Merci de votre attention,
Bonne soirée !