Tri de feuilles suivant le contenu d'une cellule

[Francis]

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]

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

Bonjour Francis

Pour cacher toutes les feuilles contenant toto en A1 :

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

@+

 

[Baside]

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]

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]

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