Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Oui, en fait il y a une ComboBox où l'utilisateur va sélectionner une autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce moment
là que je voudrai que le message s'affiche de nouveau, meme si après avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA a écrit dans le message :
42d91933$0$25044$bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'onclique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Oui, en fait il y a une ComboBox où l'utilisateur va sélectionner une autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce moment
là que je voudrai que le message s'affiche de nouveau, meme si après avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA <anonymousA@wanadoo.fr> a écrit dans le message :
42d91933$0$25044$8fcfb975@news.wanadoo.fr...
bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Oui, en fait il y a une ComboBox où l'utilisateur va sélectionner une autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce moment
là que je voudrai que le message s'affiche de nouveau, meme si après avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA a écrit dans le message :
42d91933$0$25044$bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'onclique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
si tu veux déclencher l'affichage d'un message avant de pouvoir même
cliquer sur le bouton d'option, il te faut utiliser l'evenement Enter de
cet optionbutton.
Si tu le souhaites tu peux remettre ce message dans l'evenement click,
ce qui te fera 2 fois le message affiché pour 1 action de cliquage.
Cependant, je t'informe que si ton bouton n'a pas été décliqué ( par une
action sur un autre bouton d'option) toutes les fois que tu recliqueras
sur le OptionButton1, tu n'obtiendras qu'un seul message (celui de
l'evenement Enter)
Private Sub OptionButton1_Enter()
MsgBox "tata"
End SubOui, en fait il y a une ComboBox où l'utilisateur va sélectionner une
autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce
moment
là que je voudrai que le message s'affiche de nouveau, meme si après
avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA a écrit dans le message :
42d91933$0$25044$bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre
Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'onclique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
si tu veux déclencher l'affichage d'un message avant de pouvoir même
cliquer sur le bouton d'option, il te faut utiliser l'evenement Enter de
cet optionbutton.
Si tu le souhaites tu peux remettre ce message dans l'evenement click,
ce qui te fera 2 fois le message affiché pour 1 action de cliquage.
Cependant, je t'informe que si ton bouton n'a pas été décliqué ( par une
action sur un autre bouton d'option) toutes les fois que tu recliqueras
sur le OptionButton1, tu n'obtiendras qu'un seul message (celui de
l'evenement Enter)
Private Sub OptionButton1_Enter()
MsgBox "tata"
End Sub
Oui, en fait il y a une ComboBox où l'utilisateur va sélectionner une
autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce
moment
là que je voudrai que le message s'affiche de nouveau, meme si après
avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA <anonymousA@wanadoo.fr> a écrit dans le message :
42d91933$0$25044$8fcfb975@news.wanadoo.fr...
bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre
Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
si tu veux déclencher l'affichage d'un message avant de pouvoir même
cliquer sur le bouton d'option, il te faut utiliser l'evenement Enter de
cet optionbutton.
Si tu le souhaites tu peux remettre ce message dans l'evenement click,
ce qui te fera 2 fois le message affiché pour 1 action de cliquage.
Cependant, je t'informe que si ton bouton n'a pas été décliqué ( par une
action sur un autre bouton d'option) toutes les fois que tu recliqueras
sur le OptionButton1, tu n'obtiendras qu'un seul message (celui de
l'evenement Enter)
Private Sub OptionButton1_Enter()
MsgBox "tata"
End SubOui, en fait il y a une ComboBox où l'utilisateur va sélectionner une
autre
date avant d'appuyer de nouveau sur le meme OptionButton, c'est à ce
moment
là que je voudrai que le message s'affiche de nouveau, meme si après
avoir
choisi une date, l'utilisateur revient sur le même bouton d'option.
Peux-tu m'expliquer comment on utilise les évènements enter et exit, je
pense que c'est ça qu'il ma faut
Merci
anonymousA a écrit dans le message :
42d91933$0$25044$bonjour,
la difficulté de ta demande, c'est qu'il n'y a aucun effet lors du 2eme
click sur un même OptionButton et ce par construction des controles de
ce type . Une fois que tu as cliqué sur ce bouton, il reste
désespérement figé tant que tu n'as pas cliqué sur un autre
Optionbutton.
Dans le cas de figure qui t'interesse, y a t-il d'autres optionbuttons
ou d'autres controles car si oui, tu peux utiliser les evenements Enter
et Exit du controle Optionbutton mais ce n'est pas terrible !
A+Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque
l'onclique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été
prolongé de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour.
Pourquoi ne pas utiliser l'événement MouseDown du contrôle OptionButton1?
Il réagit à tout coup.
docm
"jdel" a écrit dans le message news:
42d915a4$0$1222$Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour.
Pourquoi ne pas utiliser l'événement MouseDown du contrôle OptionButton1?
Il réagit à tout coup.
docm
"jdel" <jdel5@wanadoo.fr> a écrit dans le message news:
42d915a4$0$1222$8fcfb975@news.wanadoo.fr...
Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de
" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
Bonjour.
Pourquoi ne pas utiliser l'événement MouseDown du contrôle OptionButton1?
Il réagit à tout coup.
docm
"jdel" a écrit dans le message news:
42d915a4$0$1222$Bonjour,
Le message ne s'affiche que lorsque l'on change de bouton d'option.
Comment faut-il faire pour qu'il s'affiche systématiquement (lorsque l'on
clique deux fois de suite sur le même bouton ?
Merci
Private Sub OptionButton1_Click()
Set ModActive = ActiveWorkbook
Set Feucalc = ModActive.Worksheets(FCalc)
Set NbJrs = Feucalc.Cells(13, 5)
Set nbsem = Feucalc.Cells(14, 5)
nbsem.ClearContents
Feucalc.Cells(14, 6).Copy
Feucalc.Cells(14, 5).PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
Set Delai_pub = Feucalc.Cells(6, 3)
Delai_pub.Value = 52
If NbJrs > 6 Then
Msg = "Il n'y a pas de CAO dans la semaine correspondante"
Msg = Msg & Chr(10) & "le délai de publication de 52 jours a été prolongé
de" & (nbsem) & " semaine(s)."
Boutons = vbOKOnly + vbInformation ' Définit les boutons.
Titre = "Délai de publication" ' Définit le titre.
MsgBox Msg, Boutons, Titre
End If
End Sub
