Tri de feuilles suivant le contenu d'une cellule

Francis · 23 Avril 2007

Bonjour le forum

J’ai essayé de trier (suivant le contenu d’une cellule) des onglets de feuilles d’un classeur en vue de les cacher
Mais cela ne marche pas.
Si un XLDnaute a une idée..

For i = 0 To sheets.Count - 1
If sheets(i + 1).Range("A1").Value = "toto" Then
.sheet(i).Visible = False
End If
Next
End Sub

Et en guise de tuto, s’il y a d’autres méthodes je suis preneur
Merci
Francis

SergiO · 23 Avril 2007

Re : Tri de feuilles suivant le contenu d'une cellule

Bonjour Francis

Pour cacher toutes les feuilles contenant toto en A1 :

Code:

For i = 1 To Sheets.Count
If Sheets(i).Range("A1").Value = "toto" Then
Sheets(i).Visible = False
End If
Next
End Sub

@+

Baside · 23 Avril 2007

Re : Tri de feuilles suivant le contenu d'une cellule

Bonjour le Forum, le Fil

Attention, je crois que c'est l'onglet 1 à masquer si l'onglet 2 contient "toto' en A1, donc mettre

Sheets(i - 1).Visible = False

dans ce cas.

Amicalement, Hervé.

P.S. Mais attention à gérer l'erreur si l'onglet 1 contient "toto" en A1.

wilfried_42 · 23 Avril 2007

Re : Tri de feuilles suivant le contenu d'une cellule

bonjour à tous

For i = 0 To sheets.Count - 1
If sheets(i + 1).Range("A1").Value = "toto" Then
.sheet(i).Visible = False
End If
Next

devient :

For i = 1 To sheets.Count
If sheets(i + 1).Range("A1").Value = "toto" Then sheet(i).Visible = False
Next

Francis · 23 Avril 2007

Re : Tri de feuilles suivant le contenu d'une cellule

Bonjour le forum

Ah, ces problèmes de syntaxe dans la programmation! C'est ce qui fait le charme dans la recherche d'une solution... grâce à vous
Merci pour votre aide

Francis

Tri de feuilles suivant le contenu d'une cellule

Francis

XLDnaute Junior

SergiO

XLDnaute Accro

Baside

XLDnaute Impliqué

wilfried_42

XLDnaute Barbatruc

Francis

XLDnaute Junior

Discussions similaires