2 macros similaires la 2ème plante

[Yvon]

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]

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 ?

 

[Yvon]

Bien joué Robert, c'était cela le problème, suis dégouté, 2 heures que je planche la dessus.

Saurai tu comment limiter la textbox à 60 carractères maxi.

Merci à toi

Bon week-end

a++
Yvon

 

[Bricofire]

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

 

[Yvon]

Merci Bricofire,

Comme je ne suis pas un garçon lilité, j'avais compris.....

Bonne nuit

a++
Yvon