Rapport (suite)

Ilino · 24 Décembre 2012

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 · 25 Décembre 2012

Re : Rapport (suite)

xhudi69 à dit:
Re Ilino

le code serait:

Code:

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 · 25 Décembre 2012

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 · 25 Décembre 2012

Re : Rapport (suite)

Re bonsoir Ilino

le code:

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 · 25 Décembre 2012

Re : Rapport (suite)

xhudi69 à dit:

Re bonsoir Ilino

le code:

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 · 25 Décembre 2012

Re : Rapport (suite)

Re Ilino

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

Le code:

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 · 25 Décembre 2012

Re : Rapport (suite)

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

Ilino · 25 Décembre 2012

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 · 25 Décembre 2012

Re : Rapport (suite)

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

Le code:

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

Code:

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 · 25 Décembre 2012

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 · 25 Décembre 2012

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 · 25 Décembre 2012

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 · 25 Décembre 2012

Re : Rapport (suite)

re
ci joint un code d'un bouton de basculement

Code:

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

Rapport (suite)

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

xhudi69

XLDnaute Accro

Ilino

XLDnaute Barbatruc

xhudi69

XLDnaute Accro

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

xhudi69

XLDnaute Accro

Ilino

XLDnaute Barbatruc

xhudi69

XLDnaute Accro

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires

Rapport (suite)

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency