Bonjour matinal à tous,
Dans le cadre de mon cursus scolaire, je dois réaliser un projet citoyen. Afin d'avoir des données crédibles et visuelles, j'essaye de créer un tableau de bord avec différents onglets et un onglet de synthèse qui représentera graphiquement les chiffres clés de mon projet.
Bien que je débute en VBA, je suis avide d'apprendre et cherche toujours à m'améliorer (même si ce n'est pas gagné ).
Bref, voici mon problème :
J'ai créé un tableau qui s'incrémente automatiquement avec une macro à partir d'un formulaire (onglet Inscriptions). Le problème, c'est qu'à chaque fois que j'ajoute une personne via la macro, cela ajoute une ligne dans la feuille et décale la mise en page de mon menu latéral.
Existe-t-il une solution pour que les données s'insèrent à la fin du tableau sans ajouter de ligne ? (N'hésitez pas à me dire si je ne suis pas clair)
Voici le code VBA que j'ai réalisé :
Je vous serai extrêmement reconnaissante si vous avez des propositions de code à me faire car j'ai cherché sur le forum mais sans succès.
Merci d'avance et bonne journée
Cherrylie
Dans le cadre de mon cursus scolaire, je dois réaliser un projet citoyen. Afin d'avoir des données crédibles et visuelles, j'essaye de créer un tableau de bord avec différents onglets et un onglet de synthèse qui représentera graphiquement les chiffres clés de mon projet.
Bien que je débute en VBA, je suis avide d'apprendre et cherche toujours à m'améliorer (même si ce n'est pas gagné ).
Bref, voici mon problème :
J'ai créé un tableau qui s'incrémente automatiquement avec une macro à partir d'un formulaire (onglet Inscriptions). Le problème, c'est qu'à chaque fois que j'ajoute une personne via la macro, cela ajoute une ligne dans la feuille et décale la mise en page de mon menu latéral.
Existe-t-il une solution pour que les données s'insèrent à la fin du tableau sans ajouter de ligne ? (N'hésitez pas à me dire si je ne suis pas clair)
Voici le code VBA que j'ai réalisé :
VB:
Sub ajouter_qqn()
'Permet d'ajouter une personne dans la liste des inscrits
With Sheets("Inscriptions")
[Inscrits].ListObject.ListRows.Add 1
[Inscrits[Nom]].Rows(1) = .[G5]
[Inscrits[Prénom]].Rows(1) = .[G9]
[Inscrits[Statut]].Rows(1) = .[I5]
[Inscrits[Promo]].Rows(1) = .[I9]
[Inscrits[Date]].Rows(1) = .[K9]
[Inscrits[Adresse mail]].Rows(1) = .[K5]
.Range("G5,G9,I5,I9,K5,K9").ClearContents
End With
End Sub
Je vous serai extrêmement reconnaissante si vous avez des propositions de code à me faire car j'ai cherché sur le forum mais sans succès.
Merci d'avance et bonne journée
Cherrylie