Macro créer un tableau et le renomer
jo123
-
jo123 -
jo123 -
Bonjour à tous,
Voilà j'ai créée une macro servant à créer un tableau en le renommant avec un code que je copie colle, par ex, code Z34, je copie Z34, et je renomme mon tableau en le copiant à la place de 12 dans Tableau12 (numéro de tableau donné par excel).
Le seul problème est que quand je veux créer un deuxième tableau la macro ne marche plus ...
Hé oui elle m'a créer le tableau : Tableau13 que la macro ne peut pas renommer car elle cherche le Tableau12...
Quelqu'un aurait-il une solution s'il vous plaît?
Merci d'avance!!!!
Voilà j'ai créée une macro servant à créer un tableau en le renommant avec un code que je copie colle, par ex, code Z34, je copie Z34, et je renomme mon tableau en le copiant à la place de 12 dans Tableau12 (numéro de tableau donné par excel).
Le seul problème est que quand je veux créer un deuxième tableau la macro ne marche plus ...
Hé oui elle m'a créer le tableau : Tableau13 que la macro ne peut pas renommer car elle cherche le Tableau12...
Quelqu'un aurait-il une solution s'il vous plaît?
Merci d'avance!!!!
A voir également:
- Macro créer un tableau et le renomer
- Tableau word - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
3 réponses
bonjour,
c'est tout a fait noramal parce que tableau11 est en dur.
Si tu veux que la macro fonctionne, crées une feuille s'intitulant : Liste tableau
en A1 : tableau1
en A2 : tableau2 ....
ensuite, modifies ta macro tel quel :
Sub Macro4()
'
' Macro4 Macro
'
'
i=1
do while sheets("Liste tableau").cells(i,1) <>""
i=i+1
loop
tableau = sheets("Liste tableau").cells(i-1,1)
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C17:N17").Select
selection.name =Tableau
ActiveSheet.ListObjects(Tableau).TableStyle = "TableStyleMedium6"
Range("D4").Select
ActiveCell.FormulaR1C1 = "T09"
Range("ableau).Select
ActiveSheet.ListObjects(Tableau).Name = "TableauT09"
Rows("17:17").Select
Selection.EntireRow.Hidden = True
Range("B15").Select
End Sub
c'est tout a fait noramal parce que tableau11 est en dur.
Si tu veux que la macro fonctionne, crées une feuille s'intitulant : Liste tableau
en A1 : tableau1
en A2 : tableau2 ....
ensuite, modifies ta macro tel quel :
Sub Macro4()
'
' Macro4 Macro
'
'
i=1
do while sheets("Liste tableau").cells(i,1) <>""
i=i+1
loop
tableau = sheets("Liste tableau").cells(i-1,1)
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C17:N17").Select
selection.name =Tableau
ActiveSheet.ListObjects(Tableau).TableStyle = "TableStyleMedium6"
Range("D4").Select
ActiveCell.FormulaR1C1 = "T09"
Range("ableau).Select
ActiveSheet.ListObjects(Tableau).Name = "TableauT09"
Rows("17:17").Select
Selection.EntireRow.Hidden = True
Range("B15").Select
End Sub
Voici mon code.
Insérer deux lignes
créer un tableau
Renommer le tableau
Merci pour ton aide!
Sub Macro4()
'
' Macro4 Macro
'
'
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C17:N17").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$C$17:$N$17"), , xlNo).Name = _
"Tableau11"
Range("Tableau11#All").Select
ActiveSheet.ListObjects("Tableau11").TableStyle = "TableStyleMedium6"
Range("D4").Select
ActiveCell.FormulaR1C1 = "T09"
Range("Tableau11#All").Select
ActiveSheet.ListObjects("Tableau11").Name = "TableauT09"
Rows("17:17").Select
Selection.EntireRow.Hidden = True
Range("B15").Select
End Sub