Bouton visible sous conditions

[wowette]

Bonjour Bonjour le Forum,

Je suis un peu perdue dans la facon de proceder et écrire mon code.
Voici mon petit soucis:

J'ai 5 feuilles dans mon classeurs. Sur la premiere feuille je propose de choisir quelles feuilles seront affichées (2,3,4 et/ou 5) les autres seront masquées.

Une fois que cela est fait les feuilles s'affichent mais j'aimerais proposer sur chaque feuille des boutons vers les autres feuilles SSI elle sont visibles.

Ex: je choisi de ne voir que la 2,4 et 5. Donc concernant les boutons, je voudrais voir sur la feuille 2 un bouton "aller vers la page 4" et un autre "aller vers le page 5". Sur la feuille 4: "aller vers la page 2 " et un autre "aller vers le page 5", etc.

Je sais faire le lien du bouton à une feuille mais je suis bloquee quant a la methode pour faire "si la feuille 2 est visible, alors affiche dans chaque autre page visible le bouton "aller vers la page 2";

J'espere que c'est assez clair?

Merci d'avance!

 

[skoobi]

Re : Bouton visible sous conditions

Bonjour wowette,

Sur la premiere feuille je propose de choisir quelles feuilles seront affichées (2,3,4 et/ou 5) les autres seront masquées.

Comment? via un userform? des coches dans la feuille 1?
Pourrais-tu envoyer le fichier avec le code stp?

 

[wowette]

Re : Bouton visible sous conditions

Oui des cases a cocher dans la feuille 1 qui renvoie la valeur true ou false et d'après cela j'ai tout simplement:

If Range("I35").Value = True Then
Sheets("1").Visible = True
End If

If Range("I36").Value = True Then
Sheets("2").Visible = True
End If

If Range("I37").Value = True Then
Sheets("3").Visible = True
End If

If Range("I38").Value = True Then
Sheets("4").Visible = True
End If

If Range("I39").Value = True Then
Sheets("5").Visible = True
End If

mais jusque là je n'ai pas de soucis. C'est la facon dont je pourrais écrire le code pour les boutons qui m'ennuie.

 

[tom_the_cat]

Re : Bouton visible sous conditions

Je ne suis pas sur de pouvoir t'aider mais en tous cas ton idée m'intéresse.

Tu pourrais m'être un fichier d'exemple pour qu'on puisse mieux t'aider?

Merci

 

[Paritec]

Re : Bouton visible sous conditions

Bonjour Skoobi et tous,
tu peux essayer cela , mais la demande de Skoobi reste valable car a mon avis !!!
a+
Papou 🙂

if commandbutton1 then 
commandbutton1.visible= true 
else 
commandbutton1.visible= false
end if

 

[wowette]

Re : Bouton visible sous conditions

Voilà ce que j'ai fait pour la partie qui m'interesse.

Cela me semble un peu long et vous pourriez peut etre m'aider a simplifier le code? Sinon ca marche c'est l'essentiel mais il va falloir que je copie-colle cette partie pour chaque feuille. Car ce que j'ai là c'est "sur la feuille 1, affiche les boutons vers le feuilles qui sont visibles, sinon masque les".

If Sheets("1").Visible = True Then
    
    If Sheets("2").Visible = True Then
    Sheets("1").Shapes("CommandButton1").Visible = True
    Else: Sheets("1").Shapes("CommandButton1").Visible = False
    End If

    If Sheets("3").Visible = True Then
    Sheets("1").Shapes("CommandButton2").Visible = True
    Else: Sheets("1").Shapes("CommandButton2").Visible = False
    End If

    If Sheets("3").Visible = True Then
    Sheets("1").Shapes("CommandButton3").Visible = True
    Else: Sheets("1").Shapes("CommandButton3").Visible = False
    End If

    If Sheets("4").Visible = True Then
    Sheets("1").Shapes("CommandButton4").Visible = True
    Else: Sheets("1").Shapes("CommandButton4").Visible = False
    End If

    If Sheets("5").Visible = True Then
    Sheets("1").Shapes("CommandButton4").Visible = True
    Else: Sheets("1").Shapes("CommandButton5").Visible = False
    End If

End If

Merci quand meme à tous

 

[Efgé]

Re : Bouton visible sous conditions

Bonjour wowette, Paritec 🙂, skoobi,
Pour la dernière demande je verrai bien :

[COLOR=blue]Sub[/COLOR] Test()
    [COLOR=blue]For[/COLOR] i = 2 [COLOR=blue]To[/COLOR] 5
        Sheets("1").Shapes("CommandButton" & i).Visible = Sheets(i).Visible = [COLOR=blue]True[/COLOR]
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End Sub[/COLOR]

Mais si non je me joint au concert de demandes:

Pourrais-tu envoyer le fichier avec le code stp?

Tu pourrais m'être un fichier d'exemple pour qu'on puisse mieux t'aider?

...mais la demande de Skoobi reste valable car a mon avis !!!

Cordialement

 

[skoobi]

Re : Bouton visible sous conditions

Re,
bonjour le fil,

.....
Car ce que j'ai là c'est "sur la feuille 1, affiche les boutons vers le feuilles qui sont visibles, sinon masque les".
......

Et j'ajouterai: dans ce cas de quelle macro événementielle s'agit-il?
Car plutôt que de mettre le code dans chaque feuille il est possible de le mettre dans "ThisWorkbook", mais pour cela il faut savoir ce qui déclenche la macro, et pour ça, le fichier permettra de comprendre de suite...


Bon week-end à tous.

 

[Fo_rum]

Re : Bouton visible sous conditions

Salut

pour ton dernier code, essaie

  Dim n As Byte
  If Sheets("1").Visible = True Then
    For n = 2 To 5
      Sheets("1").Shapes("CommandButton" & n).Visible = Sheets(CStr(n)).Visible
    Next
  End If

 

[wowette]

Re : Bouton visible sous conditions

Coucou tous,

Un tout grand merci pour votre aide. Je ne peux malheureusement pas poster le fichier car c'est un fichier du boulot mais vos réponses m'ont vraiment bien aidées.

Je vous souhaite a tous une bonne soirée et encore merci pour tous vos conseils et votre disponibilité.