[VBA-EXCEL 2003][resolu] suppression des feuilles contenant le mot

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA-EXCEL 2003][resolu] suppression des feuilles contenant le mot

sakuraba

bonjour,

je cherche un moyen de supprimer les feuilles excel contenant le mot "villa "

Code :

Private Sub CommandButton4_Click()
Application.DisplayAlerts = False
If CheckBox1 = True Then
Sheets("villa" ).Delete
End If
End Sub

merci d avance

Message cité 1 fois
Message édité par sakuraba le 10-11-2005 à 09:24:05

Publicité

watashi

La démotivation : JAMAIS !

Tu cherches à faire quoi au juste ?
- à suprimer la feuille ou les feuilles se nomant XXXvillaXXX ?
- ou toutes les feuille contenant dans une cellule villa ?

ps : si tu indiques ta version d'excel on pourra être sur de l'aide que l'on t'apporte

sakuraba

a supprimer les feuilles XXXvillaXXX

excel 2003

watashi

La démotivation : JAMAIS !

ok et ton mot villa peut être placé n'importe où dans le nom de la feuille ouil est à un endroit bien précis?

sakuraba

non c est le nom de la feuille

Message cité 1 fois
Message édité par sakuraba le 09-11-2005 à 16:45:22

watashi

La démotivation : JAMAIS !

sakuraba a écrit :

non c est le nom de la feuille
http://img283.imageshack.us/img283 [...] re26fl.jpg

J'avais bien compris que c'était le nom de la feuille mais ta feuille aurait pu s'appeller de plein de manière différentes avec le mot villa n'importe où. Enfin avec l'impression écran ici j'en conclue que c'est toujour le premier mot du nom de la feuille.
La macro pour supprimer les feuilles c'est ceci :

Code :

Sub SuppFeuille()
'tes variables
Dim i
'Pour ne pas avoir à valider la suppression
Application.DisplayAlerts = False
'boucles pour tester le nom des feuilles (on part de la fin du classeur pour aller
'vers le début sinon les n° de feuilles buggeront)
For i = Worksheets.Count To 1 Step -1
'Villa c 'est les 5 caractères à gauche du nom de la feuille
If Left(Sheets(i).Name, 5) = "Villa" Then
Sheets(i).Select
ActiveWindow.SelectedSheets.Delete
Else
End If
Next i
End Sub

Ensuite, je vois que tu as un checkbox qui doit être coché pour lancer la macro avec ton commandbutton. Ce checkbox est dans ta feuille ou dans un userform ?

sakuraba a écrit :

If CheckBox1 = True

car la manière d'otenir sa value est différente

sakuraba

merci ça marche nickel

watashi

La démotivation : JAMAIS !

de rien mets juste un petit résolu dans le titre de ton premier post ça en aidera d'autres

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA-EXCEL 2003][resolu] suppression des feuilles contenant le mot

Sujets relatifs
[Mysql]Resolu Probleme de migration 3.23 -> 4.1	[RESOLU]Sélection d'un tableau Word
[Résolu][VB .net] Drag & drop entre deux applications	compression automatique d'image dans excel
[RESOLU] CSS : id de H1	HELP : VB6 / Excel => COMPATIBILITE / DEPLOIEMENT
[VB] Ouvrir une page internet [résolu]	Mettre en ligne un fichier excel
[resolu][PHP] extraction d'un operateur dans une string	Macro excel: reduction taille des images
Plus de sujets relatifs à : [VBA-EXCEL 2003][resolu] suppression des feuilles contenant le mot

Page générée en 0.049 secondes