Excel VBA Relation Cellule/Onglets

Fermé
Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011 - 18 mai 2011 à 16:48
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 19 mai 2011 à 09:40
Bonjour,

J'ai sur ma feuille 1 une liste de noms propre en colonne A.
Chaque cellule en A:A, sauf l'en-tête biensûr, a son propre onglet. Ainsi en A2, il y a Aymeric, en A3 Bastien et en A4 Caroline. Ma feuille2 est donc Aymeric, la 3 est Bastien, et la 4 est Caroline.
Sur cette feuille 1, j'ai une InputBox qui apparaît quand j'active une macro. Cette macro consiste à effacer la cellule de mon choix.
Je bugue à partir d'ici : Comment puis-je faire pour que lorsque je supprime une cellule en A:A, l'onglet correspondant se supprime aussi?

Merci,

1 réponse

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
19 mai 2011 à 09:40
Bonjour,

il suffit de rajouter ce code :
Sheets("Feuil2").Delete

mais comme ton nom correspond à une cellule:
nomfeuille = sheets("Feuil1").cells(1,1) 'nomfeuille est une variable et doit être égale à la valeur ou se trouv ta liste de nom et à la cellule que tu veux supprimer
Sheets(nomfeuille).Delete
0