XL 2010 Sélectionner une ligne à partir de son numéro

F

Fabouf

XLDnaute Nouveau

• 5 Mai 2022

• #2

Mon code fonctionne parfaitement quand j'utilise :
Feuil1.Rows("19").Select

19 étant une ligne où coller ma copie, mais quand je remplace ce 19 par ma variable intitulée "ligne" qui désigne la même chose, cela ne fonctionne plus :/

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Mai 2022

• #3

Bonjour @Fabouf
Bienvenu sur XLD

J'ai pas vu ton fichier

@Phil69970

 

Vote positif 0 Vote négatif

F

Fabouf

XLDnaute Nouveau

• 5 Mai 2022

• #4

Phil69970 à dit:

Bonjour @Fabouf
Bienvenu sur XLD

J'ai pas vu ton fichier

@Phil69970

Cliquez pour agrandir...

Merci, dsl j'aurais du fermer le topic puisque j'ai trouvé la solution mais je ne sais pas comment faire

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Mai 2022

• #5

@Fabouf

Fabouf à dit:

j'ai trouvé la solution

Cliquez pour agrandir...

Solution que tu t'es empressé de partager puisque tu es sur un forum d'entraide et de partage !!!

@Phil69970

 

Vote positif 0 Vote négatif

F

Fabouf

XLDnaute Nouveau

• 6 Mai 2022

• #6

Forum d'entraide et de partage qui sait accueillir en tout cas

J'admets mon erreur, voici le code qui m'a permis de retranscrire la ligne de mon tableau dans un nouveau tableau définitif:

Dim ligne As Integer
Range("A2:O2").Select 'ligne à recopier
Selection.Copy
ligne= [A500].End(xlUp).Row + 1
Feuil1.Rows(ligne).Select
Selection.PasteSpecial _ Paste:=xlPasteValues, _
operation:=xlNone, _
skipblanks:=False, _
Transpose:=False
Application.CutCopyMode=False

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Mai 2022

• #7

Bonjour @Fabouf

Perso je préfère comme cela c'est plus propre : (mais il y a d'autre solution)

VB:

Sub Copie()
Application.ScreenUpdating = False
Dim Derlig&
With Worksheets("Feuil1")
    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & Derlig + 1 & ":O" & Derlig + 1) = .Range("A" & Derlig & ":O" & Derlig).Value
End With
End Sub

*Merci de ta réponse

@Phil69970

 

Vote positif 0 Vote négatif