suivi de projet

BRUNO GILL · 15 Mars 2024

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

job75 · 16 Mars 2024

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 · 16 Mars 2024

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.

job75 · 16 Mars 2024

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+

BRUNO GILL · 16 Mars 2024

Bonsoir Sylvanu et bonsoir Job75
Merci à tous les 2 pour votre aide.
Les 2 solutions fonctionnent parfaitement.
C'est Parfait .
Je vais pouvoir avancer dans mon Projet.
C'est vraiment cool. de votre part.
Bruno

suivi de projet

BRUNO GILL

XLDnaute Nouveau

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

BRUNO GILL

XLDnaute Nouveau

Discussions similaires