macro : suppr des onglets fonction des résultats d'une cellule

Question

Bonjour, 

Je souhaiterais supprimer des onglets qui ne me sont pas utiles, je m'explique.
Mon fichier contient plusieurs onglets d'offres et de besoin client.
Si dans mon onglet description des besoins j'ai le mot "VT" je voudrais supprimer les onglets ne correspondant pas aux offres VT mais pas les onglets besoin client.
En gros si VT supprimer onglet untel, untel et untel, si LP supprimer onglet untel, untel et untel ainsi de suite.
Merci d'avance pour votre aide

Configuration: Windows / Firefox 45.0

f894009 · Answer

Bonjour,

un exemple de code a adapter si besoin
Sub sup_feuille()
    Dim T_Feuil()
    
    Application.DisplayAlerts = False       'pas de messagebox pour suppression
    nf = Worksheets.Count       'nombre de feuille
    ReDim T_Feuil(nf + 1)           'dimension tableau nom feuille
    'boucle our recup nom de feuille
    For n = 1 To nf
        T_Feuil(n) = Worksheets(n).Name
    Next n
    On Error Resume Next        'traite erreur a la suite sup feuille
    For n = 1 To nf
        If Worksheets(T_Feuil(n)).Range("A1") = "VT" Or Worksheets(T_Feuil(n)).Range("A1") = "LP" Then
            Worksheets(T_Feuil(n)).Delete
        End If
    Next n
    Application.DisplayAlerts = True
End Sub

Macro : suppr des onglets fonction des résultats d'une cellule

1 réponse

Discussions similaires

Newsletters