Discussion :

[Bubale]

Bonjour à tous,
Je ne comprend pas pourquoi mon code ne marche pas: j'ai plusieurs onglets dans mon fichier excel, et ils commencent tous pas "absences_" et je voudrais supprimer l'onglet dont le nom est "abscences_" & l , l étant une variable définie plus haut et dont la valeur est la suite du nom de l'onglet!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim l as variant
l = SupprimerMatiere.ListMatiere.Text
Dim s As Variant
For Each s In Worksheets
     If Sheets(s).Name = "absence_" & l Then
          Sheets(s).Delete
     End If
Next

Si qqun peut m'aider...
Merci d'avance
Bonne journée
Bubale

[Le Pierre]

bonjour

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets(s).Name = "absence_" & l Then

il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If left(Sheets(s).Name ,7)= "absence" Then

à plus

[wilfried_42]

Bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim s As Variant
For Each s In Worksheets
     If Sheets(s).Name = "absence_" & l Then
          Sheets(s).Delete
     End If
Next

en definissant s en Variant, tu lui indiques de prendre le format qui lui sera affecté en foction de l'ordre choisi
or dans ton ordre for each tu lui affectes un format objet de type worksheet

donc tu dois l'utiliser comme cet objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if s.name = "absence_" & l then 
     s.delete
end if

je dois te preciser qu'un message automatique va te demander la confirmation de la suppression de la feuille. si tu veux enlever ce message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if s.name = "absence_" & l then
     application.displayalerts = false
     s.delete
     application.displayalerts = true
end if

bonne journée

[Bubale]

Dsl, j'ai pas été très clair!
Non, en fait, tous les onglets commencent par "absences_", mais ils ont chacun un nom différents (genre "absences_maths" ou "absences_anglais"..) et le nom de la matiere est contenu dans la variable l. Je ne veux pas supprimer tous les onglets qui commencent par "absences_" mais uniquement l'onglet "absences_" & l !

[Bubale]

Ok, merci Wilfried, je n'avais pas lu ton post avant de répondre!
Merci,ca marche!
Bonne journée