Comment supprimer un onglet portant son nom dans une cellule
Résolu
Alex03
-
alex141077 Messages postés 52 Statut Membre -
alex141077 Messages postés 52 Statut Membre -
bonjour,
je suis face à une grosse difficulté et je n'arrive plus a avancer dans la construction de mes macro.
bon je vais essayer d'etre le plus explicite possible
j'ai une cellule "a1" qui porte le meme nom que l'onglet
exemple a1 = "recette1" et l'onglet porte le nom "recette1"
sur chaque ligne, j'ai inseré une petite icône (corbeille). j'aimerai pouvoir supprimer la ligne entière en "a1" mais j'aimerais également supprimer l'onglet qui correspond.
mon exemple se répéte sur plusieurs lignes
a2 = recette2
a3 = recette3
je suis face à une grosse difficulté et je n'arrive plus a avancer dans la construction de mes macro.
bon je vais essayer d'etre le plus explicite possible
j'ai une cellule "a1" qui porte le meme nom que l'onglet
exemple a1 = "recette1" et l'onglet porte le nom "recette1"
sur chaque ligne, j'ai inseré une petite icône (corbeille). j'aimerai pouvoir supprimer la ligne entière en "a1" mais j'aimerais également supprimer l'onglet qui correspond.
mon exemple se répéte sur plusieurs lignes
a2 = recette2
a3 = recette3
3 réponses
-
Bonjour
Supprimer d'abord l'onglet cliquer droit sur l'onglet et options supprimer
Pour supprimer la ligne 1
cliquer droit sur le 1 et option supprimer
-
merci philou pour ta reponse mais j'aimerai automatiser tout ca par une macro si possible
j'ai un exemple de macro que j'utilise mais que je n'arrive pas à adapter
Dans la ligne "montexte = Worksheets(10).Name", il faudrait que (10) corresponde à la valeur de la cellule de gauche ("A...") de la cellule active ("B...)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
montexte = Worksheets(10).Name
Sheets(Range("b25").Value).Delete
ActiveSheet.Shapes("Picture 92").Visible = False
ActiveSheet.Shapes("Picture 378").Visible = False
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 522").Visible = False
Sheets("Menu").Range("b25").Select
Selection.ClearContents
Range("c18").Select
Sheets("Synthèse").Activate
If Range("A46") = montexte Then
ActiveSheet.Shapes(montexte).Delete
Range("A44:A50").Delete
Range("A1").Select
Sheets(1).Activate
Else
Sheets(1).Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If -
grrrrrrrr....
je suis toujours coincé avec mon ""montexte = Worksheets(10).Name".
je n'arrive pas à adapter mon code pour décaler d'une cellule à gauche...
par exemple : montexte = worksheets "(nom de la cellule de gauche) puis trouver et supprimer l'onglet du "meme nom" puis effacer la ligne concerné...
