Bonjour,
Sur feuil1, j'ai une macro qui ajoute des données dans un tableau qu'Excel a nommé(Tableau2)
Je duplique la feuil1 -> Feuil1 (2)
La macro ne fonctionne plus sur feuil1 (2) car Excel à changer le nom du Tableau .
J'ai un msgBox qui affiche le nom du Tableau dupliqué.
C'est ce Nom dynamique que j'aimerais insérer dans le code
Code :
- Sub Tblo()
- Dim LR As ListRow
- Dim Lo As ListObject 'Affiche le Nom du Tableau
- Set Ws = Worksheets(Sheets.Count)
- For Each Lo In Ws.ListObjects
- MsgBox Lo.Name & ""
- Next
- Range("Tableau2" ).Select 'pas besoin de préciser le nom de la feuille
- Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
- LR.Range.Cells(1, 2) = 10
- LR.Range.Cells(1, 3) = 15
- End Sub
|
En gros.
J'aimerais qu'au lieu d'avoir un affichage par MsgBox du nom du Tableau dupliqué
que ce nom soit remplacé automatiquement dans le code.
Exemple
Si MsgBox trouve "Tableau14"
Range("Tableau2" ).Select devient
Range("Tableau14" ).Select
Merci de votre aide.