XL 2010 "RESOLU"multipage

dg62

XLDnaute Barbatruc

• 27 Janvier 2020

• #2

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

 

Dernière édition: 27 Janvier 2020

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 27 Janvier 2020

• #3

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Janvier 2020

• #4

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

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 27 Janvier 2020

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Janvier 2020

• #6

dg62 à dit:

Mais le click devrait fonctionner.

Cliquez pour agrandir...

Pouvez-vous joindre votre fichier ?

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 27 Janvier 2020

• #7

je le simplifie et l'envoi

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 27 Janvier 2020

• #8

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

 

Pièces jointes

• Sommaire Cours Test Vers 06.xlsm

  320.5 KB · Affichages: 12

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Janvier 2020

• #9

A priori ça marche avec quelques modifications

 

Pièces jointes

• Sommaire Cours Test Vers 06 (1).xlsm

  323.5 KB · Affichages: 24

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 27 Janvier 2020

• #10

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
"

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 28 Janvier 2020

• #11

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 28 Janvier 2020

• #12

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

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 28 Janvier 2020

• #13

Je te remercie beaucoup

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #14

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 28 Janvier 2020

• #15

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

VB:

Private Sub CommandButton13_Click()
Unload Me
UserForm2.Show

End Sub

Private Sub CommandButton14_Click()

Unload Me
UserForm2.Show

End Sub

 

Vote positif 0 Vote négatif