Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RGI
Bonjour
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click() USF_RazDonnees.Hide For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls If op1 Then Select Case op1.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls If op2 Then Select Case op2.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls If op3 Then Select Case op3.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls If op4 Then Select Case op4.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls If op5 Then Select Case op5.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls If op6 Then Select Case op6.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next
Dim reponse, I, TheNum As Byte TheDate = Month(Date) TheNum = CByte(Month(Date)) reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _ & " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!") If reponse = vbYes Then For I = TheNum To 12 With Worksheets(I) .Range("C22:C52").ClearContents .OLEObjects("lblDateDeSignature").Object.Caption = "" End With Next I 'Sheets("Récapitulatif").Range("C4:I20").ClearContents Else: Exit Sub End If End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données Frame 2 : Raz Donnée A Frame 3 : Raz Donnée B Frame 4 : Raz Donnée C Frame 5 : Raz Donnée D Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut option button 1 : Mois en cours option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
http://cjoint.com/?llodeo15xD
Merci beaucoup, Jacques
Bonjour
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click()
USF_RazDonnees.Hide
For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls
If op1 Then
Select Case op1.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls
If op2 Then
Select Case op2.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls
If op3 Then
Select Case op3.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls
If op4 Then
Select Case op4.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls
If op5 Then
Select Case op5.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls
If op6 Then
Select Case op6.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
Dim reponse, I, TheNum As Byte
TheDate = Month(Date)
TheNum = CByte(Month(Date))
reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _
& " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!")
If reponse = vbYes Then
For I = TheNum To 12
With Worksheets(I)
.Range("C22:C52").ClearContents
.OLEObjects("lblDateDeSignature").Object.Caption = ""
End With
Next I
'Sheets("Récapitulatif").Range("C4:I20").ClearContents
Else: Exit Sub
End If
End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données
Frame 2 : Raz Donnée A
Frame 3 : Raz Donnée B
Frame 4 : Raz Donnée C
Frame 5 : Raz Donnée D
Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut
option button 1 : Mois en cours
option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois
faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres
frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click() USF_RazDonnees.Hide For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls If op1 Then Select Case op1.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls If op2 Then Select Case op2.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls If op3 Then Select Case op3.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls If op4 Then Select Case op4.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls If op5 Then Select Case op5.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls If op6 Then Select Case op6.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next
Dim reponse, I, TheNum As Byte TheDate = Month(Date) TheNum = CByte(Month(Date)) reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _ & " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!") If reponse = vbYes Then For I = TheNum To 12 With Worksheets(I) .Range("C22:C52").ClearContents .OLEObjects("lblDateDeSignature").Object.Caption = "" End With Next I 'Sheets("Récapitulatif").Range("C4:I20").ClearContents Else: Exit Sub End If End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données Frame 2 : Raz Donnée A Frame 3 : Raz Donnée B Frame 4 : Raz Donnée C Frame 5 : Raz Donnée D Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut option button 1 : Mois en cours option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
http://cjoint.com/?llodeo15xD
Merci beaucoup, Jacques
Jacques
RGI, le forum
Merci, pour ton aide. Je vais essayer cela.
Merci, Jacques
Bonjour
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click() USF_RazDonnees.Hide For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls If op1 Then Select Case op1.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls If op2 Then Select Case op2.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls If op3 Then Select Case op3.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls If op4 Then Select Case op4.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls If op5 Then Select Case op5.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls If op6 Then Select Case op6.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next
Dim reponse, I, TheNum As Byte TheDate = Month(Date) TheNum = CByte(Month(Date)) reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _ & " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!") If reponse = vbYes Then For I = TheNum To 12 With Worksheets(I) .Range("C22:C52").ClearContents .OLEObjects("lblDateDeSignature").Object.Caption = "" End With Next I 'Sheets("Récapitulatif").Range("C4:I20").ClearContents Else: Exit Sub End If End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données Frame 2 : Raz Donnée A Frame 3 : Raz Donnée B Frame 4 : Raz Donnée C Frame 5 : Raz Donnée D Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut option button 1 : Mois en cours option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
http://cjoint.com/?llodeo15xD
Merci beaucoup, Jacques
RGI, le forum
Merci, pour ton aide.
Je vais essayer cela.
Merci, Jacques
Bonjour
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click()
USF_RazDonnees.Hide
For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls
If op1 Then
Select Case op1.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls
If op2 Then
Select Case op2.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls
If op3 Then
Select Case op3.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls
If op4 Then
Select Case op4.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls
If op5 Then
Select Case op5.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls
If op6 Then
Select Case op6.Caption
Case "Du mois en cours": MsgBox "OptionButton1"
Case "A partir du mois en cours": MsgBox "OptionButton2"
Case "Depuis le début": MsgBox "OptionButton3"
End Select
Exit For
End If
Next
Dim reponse, I, TheNum As Byte
TheDate = Month(Date)
TheNum = CByte(Month(Date))
reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _
& " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!")
If reponse = vbYes Then
For I = TheNum To 12
With Worksheets(I)
.Range("C22:C52").ClearContents
.OLEObjects("lblDateDeSignature").Object.Caption = ""
End With
Next I
'Sheets("Récapitulatif").Range("C4:I20").ClearContents
Else: Exit Sub
End If
End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données
Frame 2 : Raz Donnée A
Frame 3 : Raz Donnée B
Frame 4 : Raz Donnée C
Frame 5 : Raz Donnée D
Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut
option button 1 : Mois en cours
option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois
faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres
frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
A vous de voir le traitement à la place des msgbox
Private Sub cmdValider_Click() USF_RazDonnees.Hide For Each op1 In USF_RazDonnees.frm_ToutesLesDonnees.Controls If op1 Then Select Case op1.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op2 In USF_RazDonnees.frm_DonneesHeures.Controls If op2 Then Select Case op2.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op3 In USF_RazDonnees.frm_DonneesSalarie.Controls If op3 Then Select Case op3.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op4 In USF_RazDonnees.frm_DonneesURSSAF.Controls If op4 Then Select Case op4.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op5 In USF_RazDonnees.frm_DonneesEmployeur.Controls If op5 Then Select Case op5.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next For Each op6 In USF_RazDonnees.frm_DonneesEnfant.Controls If op6 Then Select Case op6.Caption Case "Du mois en cours": MsgBox "OptionButton1" Case "A partir du mois en cours": MsgBox "OptionButton2" Case "Depuis le début": MsgBox "OptionButton3" End Select Exit For End If Next
Dim reponse, I, TheNum As Byte TheDate = Month(Date) TheNum = CByte(Month(Date)) reponse = MsgBox("Voulez-vous réelement mettre les feuilles" _ & " de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!") If reponse = vbYes Then For I = TheNum To 12 With Worksheets(I) .Range("C22:C52").ClearContents .OLEObjects("lblDateDeSignature").Object.Caption = "" End With Next I 'Sheets("Récapitulatif").Range("C4:I20").ClearContents Else: Exit Sub End If End Sub
salutations
RGI
Salut a toutes et tous.
J'ai 6 Frames avec a l'interieur 3 options buttons.
Frame 1 : Toutes les données Frame 2 : Raz Donnée A Frame 3 : Raz Donnée B Frame 4 : Raz Donnée C Frame 5 : Raz Donnée D Frame 6 : Raz Donnée E
Dans ces Frames, j'ai 3 options button
option button 1 : Dépuis le debut option button 1 : Mois en cours option button 1 : A partire du mois en cours.
Donc la frame 1 me permet de changer toutes les autres frame, si je dois faire la même opération dans toutes les frames (2 a 6).
Mais je dois pouvoir modifier les options button séparement dans les autres frames, si l'opération n'est pas identique de partout.
Je vous joint le fichier, qui je pense sera plus facile a comprendre.
