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

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

pygocentus

XLDnaute Nouveau

soan

XLDnaute Barbatruc

pygocentus

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency