J'ai besoin de votre aide, j'ai une macro qui fonctionne dont voiçi le code :
VB:
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
Bonjour Netparty,
Si le nom des feuilles est appelé à changer, alors utilisez leur indice, il est immuable. Par ex :
VB:
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
Bonjour Netparty,
Si le nom des feuilles est appelé à changer, alors utilisez leur indice, il est immuable. Par ex :
VB:
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
Bonjour Netparty,
Si le nom des feuilles est appelé à changer, alors utilisez leur indice, il est immuable. Par ex :
VB:
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