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

suppression des feuilles contenant le mot [VBA-EXCEL 2003][resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 09-11-2005 à 16:16:00    

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

Code :
  1. Private Sub CommandButton4_Click()
  2. Application.DisplayAlerts = False
  3. If CheckBox1 = True Then
  4. Sheets("villa" ).Delete
  5. End If
  6. End Sub


 
merci d avance

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

Marsh Posté le 09-11-2005 à 16:16:00   

Reply

Marsh Posté le 09-11-2005 à 16:19:23    

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 :)

Reply

Marsh Posté le 09-11-2005 à 16:21:16    

a supprimer les feuilles XXXvillaXXX
 
excel 2003

Reply

Marsh Posté le 09-11-2005 à 16:31:29    

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

Reply

Marsh Posté le 09-11-2005 à 16:44:57    

non c est le nom de la feuille  
http://img283.imageshack.us/img283/3427/sanstitre26fl.jpg

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

Marsh Posté le 09-11-2005 à 17:17:36    

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 :
  1. Sub SuppFeuille()
  2. 'tes variables
  3. Dim i
  4. 'Pour ne pas avoir à valider la suppression
  5. Application.DisplayAlerts = False
  6. 'boucles pour tester le nom des feuilles (on part de la fin du classeur pour aller
  7. 'vers le début sinon les n° de feuilles buggeront)
  8. For i = Worksheets.Count To 1 Step -1
  9.      'Villa c 'est les 5 caractères à gauche du nom de la feuille
  10.      If Left(Sheets(i).Name, 5) = "Villa" Then
  11.           Sheets(i).Select
  12.           ActiveWindow.SelectedSheets.Delete
  13.      Else
  14.      End If
  15. Next i
  16. 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 :)

Reply

Marsh Posté le 09-11-2005 à 17:37:12    

merci ça marche nickel

Reply

Marsh Posté le 09-11-2005 à 18:18:45    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed