Suppression d'onglet

bonjour,

j ai un petit souci, je recherche en-vain le code pour supprimer un onglet. je suis débutant en VBA.

je me doute bien que la réponse est déjà dans forum mais je ne la trouve pas grrrr.(je pense que je dois mal formuler ma recherche )

c'est pourquoi je me dirige vers vous pour trouver une solution.

voici le code que j'utilise pour supprimer un ligne entière. Mais j'aimerais quand même temps, elle me supprime l'onglet dont le nom ce trouve dans la cellule de la colonne "I" concerné de la ligne.(c'est un bouton qui ce déplace sur les ligne quand on sélectionne une cellule du tableau)

Sub efface()

Dim ligne As Integer

For ligne = 4 To 150

If ActiveCell.Value <> "" Then

Sheets("DOSSIER").Unprotect ""

Selection.EntireRow.Delete

Sheets("DOSSIER").Protect ""

Exit Sub

End If

Next ligne

merci de votre aide

Bonjour et bienvenue,

C'est un peu confus.

Joins un petit classeur pour illustrer tes propos.

Cdlt.

bonjour,

une proposition

Sub efface()

        If ActiveCell.Value <> "" Then
            Sheets("DOSSIER").Unprotect ""
            Sheets(Cells(ActiveCell.Row, "I")).Delete
            ActiveCell.EntireRow.Delete
            Sheets("DOSSIER").Protect ""

        End If

End Sub

merci

trop rapide vos réponse excellent;

le code ne fonctionne pas sur mon classeur h2so4 il me mais erreur 14

et Jean-Éric tu as raison je vais joindre mon tableau sera plus simple

Me revoilà

cette fois avec l exemple,

bon la les noms d'onglet ce trouve dans la colonne G et la petit poubelle rouge sur la droite me sert a supprimer la ligne. je voudrais quelle supprime l'onglet dont le nom est en "G" de la ligne de la feuill1

merci de votre aide

Bonjour,

voici le code adapté à ton fichier.

Sub supprimer()

    If ActiveCell.Value <> "" Then
   Sheets(Cells(ActiveCell.Row, "G").Value).Delete
    ActiveCell.EntireRow.Delete
    End If

End Sub

cc h2so4

j ais tester mais marche pas pour ma part, peux tu l intégrer au fichier stp

sa me permaiterais de voir ou je me gour lol

merci d av

bonjour,

pas de langage SMS sur ce site

merci

bonjour

merci h2so4 marche nickel

OK pour le langage sms je ferais plus attention les prochaines fois

merci a touts a bientôt