Merci beaucoup pour cette vidéo, j'étais bloqué dans le copier / coller de plusieurs colonnes de plusieurs feuilles où j'arrivais pas à mettre les données les unes à la suite des autres sans s'écraser :D
@sandrinematos1806
Жыл бұрын
Bonjour. Tout d'abord merci pour votre video. Je suis débutante dans le codage VBA et je tente de mettre en pratique ce code en l'adaptant a mes besoins. Du coup forcément je pêche sur le fait que toute la colonne n'est pas copié et je n'arrive pas a comprendre pourquoi? Voici mon code: Sub compiler() Application.ScreenUpdating = False Dim ws_feuil1 As Worksheet Dim ws_feuil2 As Worksheet Dim lstrw_feuil1 As Long Dim lstrw_feuil2 As Long 'identifier les onglets Set ws_feuil1 = Worksheets(1) Set ws_feuil2 = Worksheets(2) 'identifier la dernière ligne des données a copier lstrw_feuil1 = ws_feuil1.Cells(Rows.Count, 1).End(xlUp).Row '**copier coller 'lundi 'identifier la dernière ligne lstrw_feuil2 = ws_feuil2.Cells(Rows.Count, 1).End(xlUp).Row 'Ajout CD/E ws_feuil1.Range(ws_feuil1.Cells(4, 1), ws_feuil1.Cells(lstrw_feuil1, 1)).Copy ws_feuil2.Cells(lstrw_feuil2 + 1, 1) 'ajouter l'info1 -colonneB ws_feuil1.Range(ws_feuil1.Cells(4, 2), ws_feuil1.Cells(lstrw_feuil1, 2)).Copy ws_feuil2.Cells(lstrw_feuil2 + 1, 2)
@sandrinematos1806
Жыл бұрын
Bon j'ai trouvé du coup. merci quand même. il fallait que je redéfinisse la colonne a copier sur la feuille 1.
Пікірлер: 3