XL 2010 Copier coller avec itération dans une autre feuille

pygocentus · 18 Novembre 2020

Bonjour,
voici le problème : je souhaite pouvoir grâce à une macro faire la copie des résultats des valeurs des cellules "an26:as31" de la feuille1 a la suite des autres dans la feuille2 sans effacer les précédents résultats en sachant que les résultats de "an28:as31" peuvent être vide

soan · 18 Novembre 2020

Bonjour pygocentus,

voici juste une piste : pour une ligne de AN26:AS31 qui est vide : ne pas la copier ;
sinon, la copier en ligne n° lg2, lg2 étant la dernière ligne du tableau de Feuil2
plus 1 : lg2 = Worksheets("Feuil2).Cells(Rows.Count, "A").End(xlUp).Row + 1
ou : lg2 = Worksheets("Feuil2).Cells(Rows.Count, 1).End(3).Row + 1

utilise lg1 pour lire les lignes du tableau de Feuil1 ; pour déclarer lg1 et lg2 :
Dim lg1 As Long, lg2 As Long ou Dim lg1&, lg2&

soan

soan · 18 Novembre 2020

Bonjour pygocentus,

voici juste une piste : pour une ligne de AN26:AS31 qui est vide : ne pas la copier ;
sinon, la copier en ligne n° lg2, lg2 étant la dernière ligne du tableau de Feuil2
plus 1 : lg2 = Worksheets("Feuil2).Cells(Rows.Count, "A").End(xlUp).Row + 1
ou : lg2 = Worksheets("Feuil2).Cells(Rows.Count, 1).End(3).Row + 1

utilise lg1 pour lire les lignes du tableau de Feuil1 ; pour déclarer lg1 et lg2 :
Dim lg1 As Long, lg2 As Long ou Dim lg1&, lg2&

soan

pygocentus · 19 Novembre 2020

Merci Soan
Après plusieurs tentatives j'ai trouvé et ça donne ceci
Sub Bouton3_Clic()
'
' Bouton3_Clic Macro
' essai3
'

'
Range("AN26:AS31").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A65536").End(xlUp).Select
ActiveSheet.Paste
End Sub

XL 2010 Copier coller avec itération dans une autre feuille

pygocentus

XLDnaute Nouveau

soan

soan

XLDnaute Barbatruc

pygocentus

XLDnaute Nouveau

Discussions similaires