James Dean
XLDnaute Nouveau
Bonjour, Bonsoir, je me présente : James Dean.
J'aimerai créer un tableau sur excel grâce au VBA.
Je ne sais absolument pas comment faire donc si possible je veux bien une explication avec svp.
Voici les critères :
- Les données sont aléatoires, donc le tableau doit être "intelligent" et s'adapter aux nombres de lignes et de colonnes, même s'il peut exister des trous ! (c'est chiant mais pas le choix). Du coup petite aide : il n'y a jamais 2 cellules vides adjacentes, si 2 cellules sont vides alors c'est "hors tableau". (Le tableau n'existe pas encore mais cela peut être considéré comme une limite pour aider à sa création)
- La macro doit pouvoir être utilisé sur plusieurs feuilles d'un même fichier. Donc la nomination du tableau doit être différente à chaque nouvelle création de tableau (c'est mon plus gros problème)
- J'aimerai que les titres de colonnes se mettent directement. Exemple : Colonne 1 se renomme "Nom_001"
J'ai déjà un début de code pour ceux qui veulent partir dessus mais pas sûr que cela aide. Merci d'avance !
J'aimerai créer un tableau sur excel grâce au VBA.
Je ne sais absolument pas comment faire donc si possible je veux bien une explication avec svp.
Voici les critères :
- Les données sont aléatoires, donc le tableau doit être "intelligent" et s'adapter aux nombres de lignes et de colonnes, même s'il peut exister des trous ! (c'est chiant mais pas le choix). Du coup petite aide : il n'y a jamais 2 cellules vides adjacentes, si 2 cellules sont vides alors c'est "hors tableau". (Le tableau n'existe pas encore mais cela peut être considéré comme une limite pour aider à sa création)
- La macro doit pouvoir être utilisé sur plusieurs feuilles d'un même fichier. Donc la nomination du tableau doit être différente à chaque nouvelle création de tableau (c'est mon plus gros problème)
- J'aimerai que les titres de colonnes se mettent directement. Exemple : Colonne 1 se renomme "Nom_001"
J'ai déjà un début de code pour ceux qui veulent partir dessus mais pas sûr que cela aide. Merci d'avance !
VB:
Option Explicit
Sub Creation_Tableau()
'Création tableau
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
'Création d'un nom pour le tableau
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F$53"), , xlNo).Name = _
"Tableau_Compte"
Range("Tableau_Compte[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "Date"
Range("Tableau_Compte[[#Headers],[Colonne2]]").Select
ActiveCell.FormulaR1C1 = "Dépenses"
Range("Tableau_Compte[[#Headers],[Colonne3]]").Select
ActiveCell.FormulaR1C1 = "Revenus"
Range("Tableau_Compte[[#Headers],[Colonne4]]").Select
ActiveCell.FormulaR1C1 = "Débiteur"
Range("Tableau_Compte[[#Headers],[Colonne5]]").Select
ActiveCell.FormulaR1C1 = "Types de Dépense"
Range("Tableau_Compte[[#Headers],[Colonne6]]").Select
ActiveCell.FormulaR1C1 = "Types de Revenu"
End Sub