Microsoft 365 Copier une ligne d'une feuille vers une autre

[netparty]

Bonjour à tous

J'ai besoin de votre aide, j'ai une macro qui fonctionne dont voiçi le code :

Sub Ajouter_Départ()

     Sheets("Base").Select
    Rows("3:4").Select
    Selection.Copy
    Sheets("TD ...").Select
   
   
    Range("c" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Select
   
    Selection.Insert Shift:=xlDown
   
    Application.CutCopyMode = False


End Sub

Le problème que je rencontre, si je change le nom de ma feuille "TD..." en par exemple "TD numéro 1" cela ne fonctionne plus parce que j'ai définit dans mon code

Sheets("TD ...").Select

Comment faire pour résoudre cela

Merci d'avance

Bonne journée à tous

 

[sylvanu]

Bonjour Netparty,
Si le nom des feuilles est appelé à changer, alors utilisez leur indice, il est immuable. Par ex :

Sub Ajouter_Départ()
    Sheets(2).Rows("3:4").Copy
    Range("c" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Le "Sheets("TD ...").Select" est inutile puisque le bouton étant sur cette feuille, c'est la feuille par défaut.
On peut éviter les select dans Sheet.select Rows.select Selection.copy en faisant :
Sheets(2).Rows("3:4").Copy

 

[netparty]

Bonjour Netparty,
Si le nom des feuilles est appelé à changer, alors utilisez leur indice, il est immuable. Par ex :

Sub Ajouter_Départ()
    Sheets(2).Rows("3:4").Copy
    Range("c" & Rows.Count).End(xlUp).Offset(1, 0).EntireRow.Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Le "Sheets("TD ...").Select" est inutile puisque le bouton étant sur cette feuille, c'est la feuille par défaut.
On peut éviter les select dans Sheet.select Rows.select Selection.copy en faisant :
Sheets(2).Rows("3:4").Copy

Super un grand merci

Bonne journée