XL 2010 "RESOLU"multipage

[Toubabou]

Bonjour à tous,
Dans un formulaire "UserForm2", j'ai mis un multipage. Sur chaque page de celui-ci une image me permettant de revenir au "userForm1 avec les codes suivant:

Private Sub Image2_Click()
  UserForm1.Show
End Sub
Private Sub Image3_Click()
 UserForm1.Show
End Sub

Private Sub Image4_Click()
 UserForm1.Show
End Sub

Private Sub Image5_Click()
 UserForm1.Show
End Sub
Private Sub Image6_Click()
 UserForm1.Show
End Sub
Private Sub Image7_Click()
 UserForm1.Show
End Sub
Private Sub Image8_Click()
 UserForm1.Show
End Sub
Private Sub Image10_Click()
 UserForm1.Show
End Sub

Bien évidement, cela ne fonctionne pas .
Auriez-vous un peu de temps pour m'aider???
Merci par avance.
Toubabou

 

[dg62]

Bonjour,
Un message d’erreur ??
Essayer avec mousemove
Il faudrait joindre le fichier car comme cela je ne vois pas pourquoi image_click ne fonctionne pas

 

[Toubabou]

Bonjour dg62,
Non pas de message d'erreur, si ce n'ai le message de "Débogage"
Comment ecrire un code avec mousemove?

 

[dg62]

Un clic droit sur l'image, code et choisir mousemove dans procédure.
Mais le click devrait fonctionner.

 

[Toubabou]

Effectivement cela fonctionne au survol de la souris sur mon image (j'aurais préféré un clic)

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub

Merci tout de même

 

[dg62]

Mais le click devrait fonctionner.

Pouvez-vous joindre votre fichier ?

 

[Toubabou]

je le simplifie et l'envoi

 

[Toubabou]

Pour avoir accès a l'UserForm1 cliquez sur le bouton,
Dans l'userform1 pour avoir accès à l'UserForm2 Cliquez sur "Recettes"
Pour fermer l'UserForm1, cliquez sur l'image "MOOC en haut à droite

 

[dg62]

A priori ça marche avec quelques modifications

 

[Toubabou]

Merci beaucoup, je regarde ce soir . Là je pars travailler. Serait-il possible de simplifier dans l'userForm Initialise les lignes "For j...." pour que cela se fasse automatiquement sans être obligé de réécrire le code a chaque rajout ?
Merci beaucoup
"

 

[Toubabou]

Bonjour dj62,
Cela ne fonctionne pas le message d'erreur est:
"Feuille déjà affichée; affichage nodal impossible"

 

[dg62]

Bonjour,
c'est normal je n'ai pas tout vérifié.
je regarde pour simplifier l'initialisation du userform1

 

[Toubabou]

Je te remercie beaucoup

 

[patricktoulon]

bonjour

je vois qu'il y a mon code de base (resize et redim controls sans api )

les deux userform non modal ca fonctionne et c'est normal tu ne peut avoir l'un modal et l'autre non

 

[herve62]

Bonsoir Salut mon JM
encore !! ( tu sais de quoi je parle) essaye ça, normalement c'est mieux j'ai fait 10 clics sans l'erreur (400) , j'ai aussi supprimé un modal 0 ... je sais plus où , mais bon n'en restait qu'un tu vas trouver

Private Sub CommandButton13_Click()
Unload Me
UserForm2.Show

End Sub

Private Sub CommandButton14_Click()

Unload Me
UserForm2.Show

End Sub