Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BRUNO GILL

XLDnaute Nouveau
Bonjour à tous,
Je suis nouveau sur ce Forum et novice en ce qui concerne Excel.
Je suis entrain d'essayer de créer un dossier Excel qui me permettra de suivre le process complet de réalisation de nouveau projet.
Je viens de commencer et je me heurte à un premier soucis.
Sur la ligne 59 ,tant que la case n'est pas cochée je souhaiterais que le Bouton 1 soit inactif , ou idéalement non visible !!!
Cela est-il techniquement possible et si oui quelqu'un peut-il m'aider ?
Par avance merci pour vos éclaircissements.
Bon Week-end.
Bruno
 

Pièces jointes

Solution
Bonjour BRUNO GILL, bienvenue sur XLD,

La macro affectée à la case à cocher :
VB:
Sub Coche()
Sheets("Recap").Shapes("Bouton 1").Visible = Sheets("Recap").[C60]
End Sub
et dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Coche
Me.Saved = True 'évite l'invite si aucune modification
End Sub
Nota : beaucoup de références étaient cochées MANQUANT (menu VBA Outils-Références).

Salut sylvanu, pas fafraîchi.

A+
Bonjour Bruno, et bienvenu sur XLD,
1- Dans votre fichier plein de références absentes étaient cochées, je les ai invalidées.
2- J'ai modifiée cette ligne qui posait problème :
VB:
fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf,Fichier .*(*.*),*.*")
Remplacée par :
fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf), *.pdf", , "CHOISSISSEZ LE FICHIER A TRAITER", , False)
( je n'ai fait la modif que sur Module 1 )
3- J'ai rajouté cette macro en Module4 :
Code:
Sub Caseàcocher38_Clic()
    If [C60] = False Then
        ActiveSheet.Shapes("Bouton 1").Visible = False
    Else
        ActiveSheet.Shapes("Bouton 1").Visible = True
    End If
End Sub
Elle s'exécute automatiquement lorsque on clique la case à cocher.
 

Pièces jointes

Bonjour BRUNO GILL, bienvenue sur XLD,

La macro affectée à la case à cocher :
VB:
Sub Coche()
Sheets("Recap").Shapes("Bouton 1").Visible = Sheets("Recap").[C60]
End Sub
et dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Coche
Me.Saved = True 'évite l'invite si aucune modification
End Sub
Nota : beaucoup de références étaient cochées MANQUANT (menu VBA Outils-Références).

Salut sylvanu, pas fafraîchi.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour