VBA. Nom de Tableau dynamique.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA. Nom de Tableau dynamique.

Boosterx

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.

Publicité

Marc L

Bonjour, bonjour !

S'affranchir du ralentisseur Select est preuve d'un code optimisé, inutile de sélectionner un objet pour y accéder !
Respecter la règle TBTO (hiérarchie objet entre autres) est source d'efficacité …
Donc ne pas mélanger des collections même si elles peuvent avoir des éléments en commun !
Appeler un élément d'une collection directement par son numéro d'index :

Code :

With Worksheets(Worksheets.Count).ListObjects(1).ListRows.Add
.Range(2).Value = 10
.Range(3).Value = 15
End With

Boosterx

Merci Marc L
Ca marche!!!! :sol:
Je vais suivre tes recommandations.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA. Nom de Tableau dynamique.

Sujets relatifs
[VBA] Collections et Objets - Quand et comment vider la mémoire	[VBA] - fonction FIND associée à la recherche d'une date
[RESOLU ] [VBA] ERREUR 91 - FINDNEXT	[RESOLU] [VBA] - EXCEL 2010 - Optimisation de code
HELP pour comparaison de cellules VBA	VBA - creer tableau dans word
Ajouter un reset dans un compteur dynamique (fonctionnel) ?	L'indice n'appartient pas à la sélection, VBA Excel
Demande de réunion VBA Excel/Outlook
Plus de sujets relatifs à : VBA. Nom de Tableau dynamique.

Page générée en 0.040 secondes