jeanyves31
XLDnaute Nouveau
Bonjour à tous
Je me pose la question suivante, de savoir si il serai possible de nommer un tableau de manière "dynamique"?
Contexte:
Je crée, via un onglet menu, un onglet Fournisseur_x
Cette macro me permets donc de créer l'onglet et de renommer le tableau sous la forme tbl_Four_x
Sur mon onglet fournisseur, j'ai créer un macro pour extraire les données.
J'ai donc le code suivant:
cette macro est issue de l’enregistreur...
Est il possible que le nom du tableau soit automatiquement reconnu tbl_Four_1, tbl_Four_2, tbl_Four_3,...
J'ai essayé, mais pour l'instant....
Un idée?
Merci
Jean Yves
Je me pose la question suivante, de savoir si il serai possible de nommer un tableau de manière "dynamique"?
Contexte:
Je crée, via un onglet menu, un onglet Fournisseur_x
VB:
Sub Dupliquer_Modele()
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Range("e1").Value = "Fournisseur " & Sheets.Count - 5
.ListObjects(1).Name = "tbl_Four_" & Sheets.Count - 5
End With
End SubSur mon onglet fournisseur, j'ai créer un macro pour extraire les données.
J'ai donc le code suivant:
VB:
Sub Extraire()
'
' Extraire Macro
'
ActiveWindow.SmallScroll ToRight:=1
Range("E15").Select
Application.CutCopyMode = False
Range("tbl_Four_[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Modèle!Criteria"), CopyToRange:=Range( _
"Modèle!Extract"), Unique:=False
Range("o8").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("BD-Achats").Select
Range("c15").End(xlDown).Offset(1, 0).Select
ActiveSheet.paste
End Subcette macro est issue de l’enregistreur...
Est il possible que le nom du tableau soit automatiquement reconnu tbl_Four_1, tbl_Four_2, tbl_Four_3,...
J'ai essayé, mais pour l'instant....
Un idée?
Merci
Jean Yves