Afficher un rectangle grace a un bouton

[creolia]

bonjour je souhaiterais afficher un rectangle sur une autre feuille juste en appuyant sur un bouton et qu'il soit masquer en quittant la feuille comme pour localiser un endroit sur un plan ont ma gentiment donner cette formule

Private Sub CommandButton1_Click()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

mais 'est valable pour un Label et je sais pas du tout comment ont en fait et surtout si elle est adaptable a un rectangle pouvez vous 'aider svp merci

 

[dd25]

Re : Afficher un rectangle grace a un bouton

bonjour je souhaiterais afficher un rectangle sur une autre feuille juste en appuyant sur un bouton et qu'il soit masquer en quittant la feuille comme pour localiser un endroit sur un plan ont ma gentiment donner cette formule

Private Sub CommandButton1_Click()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

mais 'est valable pour un Label et je sais pas du tout comment ont en fait et surtout si elle est adaptable a un rectangle pouvez vous 'aider svp merci

bonjour creolia,
pour creer un rectangle :
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 106.2, 168#, 138.6, 66.6). _
Select
apres pour le masquer :
ActiveSheet.Shapes("Rectangle 3").Visible = False ou true pour l'afficher
attention il faut retrouver le nom de ton rectangle

 

[creolia]

Re : Afficher un rectangle grace a un bouton

merci beaucoup et comment je fais pour connaitre le nom de mon rectangle s'il te plait

 

[creolia]

Re : Afficher un rectangle grace a un bouton

désoler mais je débute j'ai joins un fichier que l'ont ma fais mais au lieu de la crois je voudrais un rectangle peut tu me faire un exemple que je comprenne bien stp

 

[creolia]

Re : Afficher un rectangle grace a un bouton

svp une bonne âme pour m'aider erci

 

[creolia]

Re : Afficher un rectangle grace a un bouton

ou peut être m'expliquer la procédure plus haut s.v.p

 

[Hulk]

Re : Afficher un rectangle grace a un bouton

Hello tout le monde,

Vois le fichier joint Creolia...

Cdt, Hulk.

 

[creolia]

Re : Afficher un rectangle grace a un bouton

Merci pour tes explication et réponse mais c'est bête comment fais ton pour qu'il soit masquer au début

 

[creolia]

Re : Afficher un rectangle grace a un bouton

Merci je viens de comprendre une dernière question une fois afficher comment faire pour qu'il se cache automatiquement une fois j'ai changer de feuille svp merci

 

[Fo_rum]

Re : Afficher un rectangle grace a un bouton

Salut

La démarche est la même avec un rectangle (dans lequel on peut écrire) même s'il est dans une autre feuille.

 

[Hulk]

Re : Afficher un rectangle grace a un bouton

Re,

Bien sûr Fo_rum... dans un rectangle on peut écrire, quel sot moi je double cliquait dedans 😛 mais faut d'abord cliquer droit et "Ajouter du texte" !

Et si je n'étais pas arrivé à le coder avant c'est sûrement que j'ai dû faire un faute de frappe dans le code 🙄

Vois le fichier Creolia pour pour qu'ils se masquent en sortant (ou plutôt en entrant) de la feuille.

Regarde aussi le code dans le Workbook_Open pour l'ouverture du fichier !

Cdt, Hulk.

 

[creolia]

Re : Afficher un rectangle grace a un bouton

Re bonsoir merci pour vos aides je tenterais tous sa demain mais sa semble impeccable a première vue merci encore a tous

 

[creolia]

Re : Afficher un rectangle grace a un bouton

Bonjour une petite question comment fais t'on pour que le bouton ce trouve sur une autre page svp merci

 

[Hulk]

Re : Afficher un rectangle grace a un bouton

Hello Forum, le fil,

Ok j'ai compris pourquoi j'avais un message d'erreur hier (wouah quel exploit 😀)

Je voulais, à ta demande Creolia, masquer le rectangle en quittant la feuille, et plutôt que de mettre ce code dans le Deactivate de la feuille

[COLOR="Green"][B]Private Sub Worksheet_Deactivate()
    
    Shapes("Zone de texte 1").Visible = False
    Shapes("Rectangle 1").Visible = False
    Label1.Visible = False

End Sub[/B][/COLOR]

je mettais

[COLOR="Red"][B]Private Sub Worksheet_Deactivate()
    
    ActiveSheet.Shapes("Zone de texte 1").Visible = False
    ActiveSheet.Shapes("Rectangle 1").Visible = False
    Feuil1.Label1.Visible = False

End Sub[/B][/COLOR]

ce qui est faux !

Donc Creolia, dans le code de la feuille 1 (Alt+F11) remplaces ça

[COLOR="Red"][B]Private Sub Worksheet_Activate()

    ActiveSheet.Shapes("Zone de texte 1").Visible = False
    ActiveSheet.Shapes("Rectangle 1").Visible = False
    Label1.Visible = False

End Sub[/B][/COLOR]

par le code vert !

Pour revenir sur ta demande d'aujourd'hui, je ne te suis plus, précises plus mieux bien stp...
Tu veux le même bouton sur une autre feuille ou un autre qui ferait la même chose ?

Cdt, Hulk.