Comment supprimer un onglet portant son nom dans une cellule
Résolu/Fermé
Alex03
-
Modifié par alex141077 le 15/12/2014 à 19:00
alex141077 Messages postés 52 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 8 février 2022 - 16 déc. 2014 à 13:08
alex141077 Messages postés 52 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 8 février 2022 - 16 déc. 2014 à 13:08
A voir également:
- Comment supprimer un onglet portant son nom dans une cellule
- Comment supprimer une page dans word - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Supprimer compte instagram - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Rouvrir un onglet fermé - Guide
3 réponses
PHILOU10120
Messages postés
6394
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
2 janvier 2025
811
15 déc. 2014 à 19:18
15 déc. 2014 à 19:18
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
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
alex141077
Messages postés
52
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
8 février 2022
2
Modifié par alex141077 le 15/12/2014 à 20:16
Modifié par alex141077 le 15/12/2014 à 20:16
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...)
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
alex141077
Messages postés
52
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
8 février 2022
2
16 déc. 2014 à 13:08
16 déc. 2014 à 13:08
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é...
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é...