Onglet visible et invisible

[ipod]

Bonsoir à tous,

Je met un fichier qui je pense sera plus clair😕
pour expliqué ce que j'aimerai faire.

Merci d'avance de votre aide.

 

[skoobi]

Re : Onglet visible et invisible

Bonjour,

ton fichier est en version excel 2007.
Tu auras plus de chance d'avoir une réponse en créer le message dans le forum prévu à cet effet.

 

[ipod]

Re : Onglet visible et invisible

Merci, je vais le reposter

 

[jeanpierre]

Re : Onglet visible et invisible

Bonsoir ipod, skoobi,

Ou mieux, post un fichier enregistré sous le format 97-2003, car ta question n'est pas spécifique à 2007, elle reste d'un ordre très général. Donc, c'est ici.

A te lire et bonne soire.

Jean-Pierre

 

[ipod]

Re : Onglet visible et invisible

Bonsoir, Jean Pierre

Je remt le fichier est en version 97-2003

Merci

 

[job75]

Re : Onglet visible et invisible

Bonsoir ipod, salut skoobi et jeanpierre,

Votre GROS problème se résoud par une toute petite macro, à placer dans le code de la feuille Onglets (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Visible = True
End Sub

Ci-joint votre fichier.

Bonne nuit.

 

[job75]

Re : Onglet visible et invisible

Re,

J'ai amélioré la macro. Quand on clic ailleurs que sur un nom d'onglet, tous les onglets de rang > 2 sont de nouveau masqués :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Visible = True
If Err Then
For Each sh In Sheets
If sh.Index > 2 Then sh.Visible = False
Next
End If
End Sub

Re bonne nuit.

 

[ipod]

Re : Onglet visible et invisible

Merci beaucoup job75,

c'est pratiquement ce que je voulais, le super du super serait que à chaque fois que je séléctionne un nom, l'onglet apparaisse (ce qui se passe actuellement).

Mais que si je recherche un autre onglet, celui sélectionné avant redevienne invisible, et que lorsque mes recherches sont finies, aucun mise à part "devis et "onglets ne soient visibles.

Encore merci pour le coup de main.

Cordialement.

 

[ipod]

Re : Onglet visible et invisible

Re-bonjour et re-merci job75

Dans la précipitation, je n'avais pas regardé le 2ème post.

C'est vraiment super!!!!!!!!

encore merci.

Cordialement

 

[job75]

Re : Onglet visible et invisible

Bonjour ipod,

Une autre version, afin que seul l'onglet dont le nom est choisi soit visible. Elle est plus simple que la précédente version, mais vous choisirez celle que vous préférez.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For Each sh In Sheets
If sh.Index > 2 Then sh.Visible = False
Next
Sheets(Target.Value).Visible = True
End Sub

A+

 

[ipod]

Re : Onglet visible et invisible

Bonsoir Job75,

De nouveau merci, pour cette nouvelle version.

Cordialement.