Suppression feuilles spécifiques [Résolu]

[CLAUDE19]

Bonjour le forum

J'ai le code ci-dessous qui fonctionne correctement et qui me supprime bien la feuille:

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub Delete ()
For Each Feuille In ActiveWorkbook.Wofsheets
If Left (Ucase(Feuille.Name, 7) = "Contrat" Then
Application.DisplayAlerts = False
Feuille.Delete
Application.DisplayAlerts = True
Exit For
End If
Next Feuille
End Sub

Ce que je souhaiterais, c'est de modifier plusieurs feuilles (et uniquement celles-ci) qui commencent par "contrat"
Les feuilles nommées peuvent être du style:
"contrat (1)" ou bien "contrat N°1" ainsi de suite...

D'avance merci

Cordialement

[Philippe JOCHMANS]

Bonjour

Je ne comprends pas ta question, car à priori ton code fonctionne, alors ?

Que veux-tu dire par modifier ?

Philippe

[gFZT82]

Bonjour,

Une solution

Code :

1
2
3
4
5
6
7
Sub Test()
    For Each Feuille In ActiveWorkbook.Worksheets
        If Left(UCase(Feuille.Name), 7) = "CONTRAT" Then
            MsgBox "Action à réaliser sur la feuille " & Feuille.Name
        End If
    Next Feuille
End Sub

Cordialement.

[Ormonth]

Envoyé par CLAUDE19

J'ai le code ci-dessous

Code :

Bonjour,

A éviter : employer des mots clefs VBA en noms de procédures, variables etc !

ici Delete est le nom d’une Méthode que tu emploies d'ailleurs ensuite,

Sinon même remarque que Philippe

cordialement,

Didier

[CLAUDE19]

Je vais avoir du mal à être plus clair, mais je vais essayer.

Sur la feuille "contrat" c'est ok. Mais les futurs utilisateurs, vont créer à l'utilisation du fichier, des feuilles commencant par "contrat" et chacune de ces feuilles crées vont avoir des extensions aprés un espace, exemple "contrat N1" ou "contrat 12" ou "contrat AB".
Toutes ces feuilles et uniquement celles ci (commencant par "contrat") je souhaite qu'elles soient supprimées à la fermeture du fichier.

Ma question est: Comment puis je rédiger ma ligne de code pour que ces feuilles soient supprimées?

[bbil]

en corrigeant tes 3 premières lignes de codes

Code :

1
2
3
4
Sub DeleteFeuille () 'Eviter les mots réservés comme nom ..
For Each Feuille In ActiveWorkbook.Worksheets 'Erreur de framme 
If Left (Ucase(Feuille.Name, 7) = "CONTRAT" Then 'Ucase c'est pour majuscule..
(...)

ce n'est pas bon ?

[CLAUDE19]

Non, ce n'est pa ce que je souhaite. Ce sont les lignes que j'ai écris au début de la discussion.
Ce que je souhaite c'est supprimer, toutes les feuilles contenant "Contrat".
Donc la feuille peut s'appeler "1ier contrat" ou bien "Contrat début" ou bien Fin de contrat" etc...

Mais je ne souhaite pas, que les autres feuilles (ne contenant pas "Contrat" soit supprimer.

Et ceci, lorsque l'utilisateur ferme son fichier. Et donc sans action de sa part.

Mais peut être que cela n'est pas possible

[CLAUDE19]

Je crois avoir trouvé, les lignes ci-dessous fonctionnent

Code :

1
2
3
4
5
6
7
8
9
10
11
 Sub DeleteFeuille()
Dim i
Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
If Left (Sheets(i).Name, 7) = "Contrat" Then
Sheets (i).Select
ActiveWindow.SelectedSheets.Delete
Else
End If
Next i
End Sub

Merci à tous

Cordialement

[bbil]

ton dernier code ne fait rien de plus que le précédent..! .IL ne traite que les noms débutant par contrat tu devrai regarder InStr. de façon à prendre en compte le fait nouveau de ton dernier post "Contrat" peu-être situé n'importe-ou dans le nom de la feuille et pas seulement au début comme annoncé précédemment.