Rapport (suite)

[Ilino]

Bonsoir Forum
Je vous sollicite encore encore mes chers bénévoles à m'aider pour résoudre mon souci (ci-joint le fichier) :
1. ré initialisation le tableau (B7 : D32) (sans le fusionner) après avoir enregistré une copie c-a-d Remise a zero le tableau
2. j’ai constaté lors de l’enregistrement d’une copie, sur la feuille enregistrée il s’affiche pas le Nom et la Divisons ?
3. Créer des liens dans la feuille SOMMAIRE pour chaque Rapport Enregistré

Merci par Avance ...GRACIE
je suis a votre disposition😱😱

 

[Ilino]

Re : Rapport (suite)

Re Ilino

le code serait:

Private Sub Workbook_Open()
If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
    Construit
End If
End Sub

Mais je ne vois pas l'intérêt d'un tel code, car à chaque fois que tu ouvriras le fichier, le code s'activera et comme l'onglet a déjà été créé tu auras un "Debug"

@+

PS: Dimanche =1
Lundi = 2

Re
Pourquoi j’ai demandé ce code : je voudrais activer le bouton une fois par semaine ( ex chaque LUNDI ) de tel façon de faire travaillé et responsabilisé mes agents

 

[Ilino]

Re : Rapport (suite)

Re
voila donc je cherche comment faire activer ( en code VBA) la propriétés option "visble (true/false)" du bouton selon le num de jour.
merci

 

[xhudi69]

Re : Rapport (suite)

Re bonsoir Ilino

le code:

Private Sub Workbook_Open()
If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
    CommandButton1.Visible = True
    Else
    CommandButton1.Visible = False
End If
End Sub

@+

 

[Ilino]

Re : Rapport (suite)

Re bonsoir Ilino

le code:

Private Sub Workbook_Open()
If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
    CommandButton1.Visible = True
    Else
    CommandButton1.Visible = False
End If
End Sub

@+

Re Bonsoir xHuDi
Gracie pour le code mais il ne fonctionne pas , j'ai une erreur de type :Erreur d'execution 424 Objet requis..
que dois je faire?
merci @+

 

[xhudi69]

Re : Rapport (suite)

Re Ilino

désolé pour le bugg, j'avais oublié 😱

Le code:

Private Sub Workbook_Open()
If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
    Sheets("Rapport Activitées").CommandButton1.Visible = True
    Else
    Sheets("Rapport Activitées").CommandButton1.Visible = False
End If
End Sub

Post Scriptum: il faut mettre la propriété "Visible" à "False" dans les propriétés de "CommandButton1", passer en mode "Création" auparavant.

@+

 

[Ilino]

Re : Rapport (suite)

Re SALUT
JE TE TIRE DEUX CHAPEAUX
UN GRAND MERCI ET ENCORE POUR LA NIEMME FOIS JOYEUX NOEL

 

[Ilino]

Re : Rapport (suite)

Bonsoir
Je reviens encore vers vous et je vous SOLICITE est ce que je peux créer un bouton de double fonction,
1. la première reste la même fonction du bouton SAVE ( cad créer une copie du rapport ) ce bouton est visible chaque Lundi
Sinon la deuxième fonction : il est visible durant toute les jours semaine sauf Lundi et ce bouton il joue le rôle d’enregistrement Du classeur ( la feuil Rapport d’activités)
Merci par avance

 

[xhudi69]

Re : Rapport (suite)

Re..Re..Re.......


Le code:

Private Sub Workbook_Open()
 If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
     Sheets("Rapport Activitées").CommandButton1.Visible = False
     Else
     Sheets("Rapport Activitées").CommandButton1.Visible = True
 End If
 End Sub

Le code pour le bouton

Private Sub Workbook_Open()
 If Weekday(Sheets("Rapport Activitées").Range("K1")) = 2 Then
     Construit
 End If
ThisWorkBook.Save
 End Sub

Mais là, je commence à perdre mon latin 😕😕

Il faut mettre la propriété "Visible" à "True" dans les propriétés de "CommandButton1", passer en mode "Création" auparavant.

 

[Ilino]

Re : Rapport (suite)

Re re RE bonsoir
JE SUIS VRAIMENT DESOLE
JE VOUS AI COMPRIS BIEN MAIS JE SUIS ENTRAIN DE VOUS PARLER DU BOUTON DE BASCULEMENT ( TOGGLE BOUTTON)

 

[xhudi69]

Re : Rapport (suite)

Re:

A mon avis ce n'est pas possible avec un "ToggleButton", maintenant, peut-être que quelqu'un du Forum a une idée............

@+

 

[Ilino]

Re : Rapport (suite)

Re
merci
si tu permet autre question?
comment faire masqué toutes les les feuilles et laisser seulement la feuil1 (Rapport activités ) et la feuil ( SOMMAIRE)
a+

 

[Ilino]

Re : Rapport (suite)

re
ci joint un code d'un bouton de basculement

Private Sub ToggleButton1_Click()
With ToggleButton1
        Select Case .Value
            Case True
            If Weekday(Sheets("Rapport Activités").Range("M2")) = 2 Then
                  Sheets("Rapport Activités").ToggleButton1.Caption = "Créer une copie du Rapport"
                .BackColor = RGB(0, 255, 0) 'Vert
               
                                
            Case False
            If Weekday(Sheets("Rapport Activités").Range("M2")) <> 2 Then
                  Sheets("Rapport Activités").ToggleButton1.Caption = "Enregistrer le Rapport"
                .BackColor = RGB(255, 0, 0) 'Rouge
                
                
        End Select
    End With

End Sub

du Help Please