2 macros similaires la 2ème plante

Y

Yvon

Guest
Bonsoir à tous

J'ai deux macro installée au même endroit sur la feuille 1, les deux sont activée par 2 menus déroulants différent la première macro fonctionne très bien, alors que la deuxième active le débogueur avec le message suivant ' Erreur de compilation fontion ou variable attendue', simplement sur activation du menu déroulant,sans ateindre l'objectif fixé

Je vous livre le code

Sub message2()
'Menu déroulant objet de la location'

'message concernant la vente aux particuliers'
If Range('G16') <> 5 Then Range('F16') = Range('G16')
If Range('G16') = 5 Then MsgBox 'Le client doit faire une demande à la mairie compter 3 mois', vbInformation, 'Information'
'Insertion de commentaire personnel'
If Range('G16') <> 7 Then Range('E16') = Range('G16')
If Range('G16') = 7 Then Insertioncomm1.Show
End Sub
Sub insertioncomm2()
'Menu déroulant disposition de la salle'
'insertion de commentaire'
If Range('G19') <> 7 Then Range('E19') = Range('G19')
If Range('G19') = 7 Then insertioncomm2.Show

End Sub

Par avance Merci

Bon Week end
Yvon
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir Yvon, bonsoir le forum,

Ce qui me choque c'est que ton UserForm : insertioncomm2 (insertioncomm2.Show) porte le même nom que ta macro qui le lance : insertioncomm2 (Sub insertioncomm2()). Peut-être l'anomalie vient-elle de là tout simplement ?
 

Bricofire

XLDnaute Impliqué
Bonsoir Yvon, Robert :)

Pour limiter le champ de la textbox, il faut utiliser sa propriété 'MaxLenght' dans la fenêtre propriété ou par code, par défaut elle est à zéro ce qui équivaut à indéfini (lilité par la config mémoire...)

Bonne nuit,

Bfr

édition : euh, limité, pas lilité :)

Message édité par: bricofire, à: 31/10/2005 00:45
 

Discussions similaires

Statistiques des forums

Discussions
312 812
Messages
2 092 309
Membres
105 352
dernier inscrit
Djianik