suivi de projet

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

  • Lancement Nouveau Projet - Copie.xlsm
    40.9 KB · Affichages: 8
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+

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Lancement Nouveau Projet - Copie.xlsm
    35.9 KB · Affichages: 3

job75

XLDnaute Barbatruc
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

  • Lancement Nouveau Projet - Copie.xlsm
    41.5 KB · Affichages: 9

Discussions similaires

Réponses
2
Affichages
403

Statistiques des forums

Discussions
313 283
Messages
2 096 813
Membres
106 752
dernier inscrit
Tahiri1976