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

[Fabouf]

Bonjour à tous,

Nouveau sur vba en raison d'un stage, je cherche à retranscrire une ligne de tableau juste en dessous d'un autre tableau.
J'ai déjà réussi à copier cette ligne grâce à un code vba ainsi qu'à trouver le numéro de la dernière ligne du nouveau tableau, mais je ne trouve pas comment la sélectionner à partir de ce même numéro...
Merci de votre aide !!

 

[Fabouf]

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 :/

 

[Phil69970]

Bonjour @Fabouf
Bienvenu sur XLD

J'ai pas vu ton fichier

@Phil69970

 

[Fabouf]

Bonjour @Fabouf
Bienvenu sur XLD

J'ai pas vu ton fichier

@Phil69970

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

 

[Phil69970]

@Fabouf

j'ai trouvé la solution

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

@Phil69970

 

[Fabouf]

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

 

[Phil69970]

Bonjour @Fabouf

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

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