suppression onglet

[manuBX]

bonjour à tous
pouvez vous m indiquer le code pour supprimer tous les onglets supérieurs à l onglet 3 "FEUILL3"

MERCI D AVANCE

 

[pierrejean]

Re : suppression onglet

bonjour manuBx

Teste:

Sub supp()
For n = Sheets.Count To 1 Step -1
  x = CInt(Replace(Sheets(n).Name, "Feuil", ""))
  If x > 3 Then
    Application.DisplayAlerts = False
      Sheets(n).Delete
    Application.DisplayAlerts = True
  End If
Next n
End Sub

 

[tototiti2008]

Re : suppression onglet

Bonjour manuBX,

Quand tu dit "supérieur", ça veut dire placé à droite ?

Edit : bonjour PierreJean 😉

 

[13GIBE59]

Re : suppression onglet

Bonjour manuBX 🙂

Le code :

Sub suppr()
Application.DisplayAlerts = False
For i = Worksheets.Count To 4 Step -1
    Sheets(i).Select
    ActiveSheet.Delete
  Next i
End Sub

Attention : la ligne "Application.DisplayAlerts = False" évite l'apparition du message "voulez-vous supprimer...etc".
Donc : Attention !
Mais tu peux la supprimer, si tu préfères.


Edit : salut pierrejean et tototiti.

 

[pierrejean]

Re : suppression onglet

Re

Jean-Bernard

Attention , avec ton code les feuilles doivent imperativement etre classées dans l'ordre

 

[13GIBE59]

Re : suppression onglet

@ Pierrejean : oui, mais j'ai cru comprendre dans la demande initiale que c'était le cas.
Attendons l'avis de manuBX...

 

[tototiti2008]

Re : suppression onglet

Bonjour Jean-Bernard,
Re,

d'où ma question 😉

 

[manuBX]

Re : suppression onglet

Bonsoir
excusez mon absence
j ai bien lu vos réponse mais aucune des 2 ne correspond
mes feuilles dans VBA s appelle Feuil1(az) Feuil2(at)Feuil3(uaz)Feuil5(arz)Feuil6(arz) Feuil4(arerz)et ainsi de suite et pas forcement dans l ordre
et donc je cherche à supprimer toutes les feuilles > Feuil3(uaz)
MERCI

 

[tototiti2008]

Re : suppression onglet

Re,

et donc ce ne sont pas les onglets à droite mais dont le nom VBA a un indice supérieur à 3 ?

désolé, mais le concept de feuille supérieure à une autre m'est étranger 😕

 

[job75]

Re : suppression onglet

Bonjour à tous,

Un petit coucou depuis la Normandie, avec juste une modif du code de pierrejean :

Sub supp()
Dim n, x
Application.DisplayAlerts = False
For n = Sheets.Count To 1 Step -1
  x = [COLOR="Red"]Val[/COLOR](Replace(Sheets(n).Name, "Feuil", ""))
  If x > 3 Then Sheets(n).Delete
Next n
End Sub

A+

 

[job75]

Re : suppression onglet

Re,

J'avais mal compris, en fait il s'agit du CodeName !

Sub supp()
Dim n, x
Application.DisplayAlerts = False
For n = Sheets.Count To 1 Step -1
  x = Val(Replace(Sheets(n).CodeName, "Feuil", ""))
  If x > 3 Then Sheets(n).Delete
Next n
End Sub

A+

 

[pierrejean]

Re : suppression onglet

Re

Heureux de te croiser Job

Avec le codeName on est assuré de supprimer des feuilles pourvu qu'il y en ait plus de 3
Par contre je ne vois pas bien l'interet de remplacer le Cint par Val a moins d'avoir plus de 32 767 feuilles

 

[job75]

Re : suppression onglet

Re pierrejean,

J'avais d'abord utilisé Val, pensant que le nom des feuilles était du genre "Feuil4(xyz)".

Mais même avec le CodeName c'est mieux, car Val renvoie 0 s'il n'y a pas de nombre trouvé, alors que CInt crée un bug.

A+

 

[manuBX]

Re : suppression onglet

Merci PierreJean et Job 75
Non seulement vous m avez débloqué mais en plus vous m avez fait découvrir d autres solutions
Merci à vous et au forum