Multipage a rafraichir

[freddyUp]

Salut à tous et je debute en VBA sous excel et j'ai besoin d'aide car j'ai pas trouvé mon bonheur dans le forum.

J'ai une multipage a 2 onglets
si on clique sur la MULtiPAGE 1 une MSGBOX apparait et si on repond 'NON' on revient sur la MULTIPAGE 0.
Le probleme c'est que l'onglet se deplace bien mais pas le contenu de la MULTIPAGE.


Private Sub MultiPage1_Change()
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0

End Sub

 

[TYPX]

Bonsoir le Forum,Bonsoir FreddyUp

Je bricole un peu sur du multipage mais je ne comprend pas ton souci,Envoi nous ton fichier qu'on voie un peu

slt
typx

 

[FreddyUP]

Voici mon fichier...

Comme je te l'ai dit je debute donc c'est un peu lourd comme fichier.

Si tu va sur l'onglet 'modifier' et que tu repond 'non' tu retourne sur l'onglet ' rechercher' mais sa coince un peu

 

[FreddyUP]

FreddyUP écrit:

Voici mon fichier...

Comme je te l'ai dit je debute donc c'est un peu lourd comme fichier.

Si tu va sur l'onglet 'modifier' et que tu repond 'non' tu retourne sur l'onglet ' rechercher' mais sa coince un peu

 

[FreddyUp]

FreddyUP écrit:

Voici mon fichier...

Comme je te l'ai dit je debute donc c'est un peu lourd comme fichier.

Si tu va sur l'onglet 'modifier' et que tu repond 'non' tu retourne sur l'onglet ' rechercher' mais sa coince un peu

 

[FreddyUp]

voici endin mon fichier enfin si ca marche

[file name=macro2.zip size=40402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro2.zip[/file] [file name=macro2.zip size=40402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro2.zip[/file]

 

[TYPX]

[file name=MULTIPAGE.zip size=7592]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MULTIPAGE.zip[/file]
je t'ai fait un multipage qui fonctionne mais effectivement je n'avais jamais rencontré ce pb
Je regarde ton fichier
typx

 

[TYPX]

ca n'est pas Change mais Click et Add Control

Click tout seul marche une fois sur deux et avec Add Control C'est Ok J'ai essayé sur ton fichier.

Private Sub MultiPage1_AddControl(ByVal Index As Long, ByVal Control As MSForms.Control)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub



Private Sub MultiPage1_Click(ByVal Index As Long)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub


Bon courage
Typx

 

[TYPX]

ca n'est pas Change mais Click et Add Control

Click tout seul marche une fois sur deux et avec Add Control C'est Ok J'ai essayé sur ton fichier.

Private Sub MultiPage1_AddControl(ByVal Index As Long, ByVal Control As MSForms.Control)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub



Private Sub MultiPage1_Click(ByVal Index As Long)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub


Bon courage
Typx

 

[TYPX]

ca n'est pas Change mais Click et Add Control

Click tout seul marche une fois sur deux et avec Add Control C'est Ok J'ai essayé sur ton fichier.

Private Sub MultiPage1_AddControl(ByVal Index As Long, ByVal Control As MSForms.Control)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub



Private Sub MultiPage1_Click(ByVal Index As Long)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub


Bon courage
Typx

 

[FreddyUp]

Merci beaucoup pour votre aide....

Penser a dormir un peu aussi 😉