Urgent pb ouverture USERFORM

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2011

• #2

Re : Urgent pb ouverture USERFORM

Bonjour Jérome, bonjour le forum,

Vérifie le code d'Initialisation ou d'activation qui doit comporter une erreur. Tu peux exécuter le code de l'UserForm pas à pas avec la touche [F8] et tu verras quelle est la ligne qui plante. Sinon sans fichier on pourra pas t'aider plus que ça...

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 18 Avril 2011

• #3

Re : Urgent pb ouverture USERFORM

Bonjour Jérome, Salut Robert, bonjour le forum,

un indice supplémentaire,
ton code d'ouverture de ton USF se trouve à quel endroit (module? feuille ?)

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 18 Avril 2011

• #4

Re : Urgent pb ouverture USERFORM

SVP, aidez moi.
Le code :
Sub Afficher()
MonUSF.Show
End Sub
Ce trouve sur une feuille nomé Machine.

Effectivement, avec le fichier, vous irrez plus vite.

Free - Envoyez vos documents

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 18 Avril 2011

• #5

Re : Urgent pb ouverture USERFORM

En faisant F8, j'ai les lignes en Jaune une a une.


Désoler, j'ai pas fait attention mais les onglets sont masquer.
ALT + F11 pour VBA, mais vous savez mieux que moi...lol

Le bouton de lancement de l'USF et sur l'onglet 'Blanchisserie' = ETUDE.

Merci a vous.

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2011

• #6

Re : Urgent pb ouverture USERFORM

Bonjour Jérome, Mutzik, bonjour le forum,

Il est regrettable que tu n'écoutes pas les conseils ! J'ai fait ce que je t'avais proposé dans ma première réponse et j'ai vu que ça plantait ici :

Code:

If Combofournisseur = "diversey" Then

Code:

[COLOR=black]Me.ComboDoseur = .cells(1, 13)[/COLOR]
[COLOR=black]End If[/COLOR]

En effet, tu as défini la propriété Syle de la comobox ComboDoseur comme 2-fmStyleDropDownList. Cela signifie qu'elle n'accepte que les valeurs de la liste. Comme la cellule A13 de l'onglet Regles est vide, Me.ComboDoseur = .cells(1, 13) plante... Et du coup ton UserForm ne s'ouvre pas.

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 18 Avril 2011

• #7

Re : Urgent pb ouverture USERFORM

Bonjour,
En effet, je ne comprend pas toujours tous ce que je fait malheuresement.
En faite, je suis en train de construire un petit programme pour la société qui m'emploie.

Je cherche sur le forum et essai d'appliquer à mes besoins.
Comme par exemple ici, je comprend ce que tu m'explique, mais je ne voit pas où est le problème et ne sais donc comment le résoudre.

Sans vouloir abuser de ton expérience, tu pourrait me dire ce que je doit faire pour résoudre le problème?

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 18 Avril 2011

• #8

Re : Urgent pb ouverture USERFORM

j'ai trouver la commande est l'ai mise en : 0- fmstyledowncombo
et il m'indique une autre erreur :
sur la ligne :
Me.Controls("TextBox" & i / 2).Value = Sheets("Regles").cells(26 + i, DécalageColonne)

Je ne comprend pas cqar j'ai rien modifier pour avoir ce problème.

par contre tu dit :
Comme la cellule A13 de l'onglet Regles est vide, Me.ComboDoseur = .cells(1, 13) plante... Et du coup ton UserForm ne s'ouvre pas.

Cette cellule n'est jamais vide.?


Edit: pardon mais je croit que tu te trompe, il s'agit de M1 de l'onglet Regles.
.cells(1,13) = le premier chiffre est cellui de la ligne.

Mais pourquoi il me fait une erreur lorsqu'elle est égale à tablette/poudre??
STP.

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2011

• #9

Re : Urgent pb ouverture USERFORM

Bonsoir le fil, bonsoir le forum,

En effet Jerome je me suis méchamment planté .Cells(1,13) n'est pas A1 mais M1 comme tu le corriges. Maintenant, pourquoi ça marche pas ? C'est toi qui a créé le code tu devrais en avoir au moins une vague idée non ?
Je suis désolé mais là je n'ai plus le temps de me pencher sur ton problème car je vais m'absenter 15 jours...

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Avril 2011

• #10

Re : Urgent pb ouverture USERFORM

Bonsoir, oui en effet, et j'y ai passer du temps.
Depuis ce matin et j'ai tout revu et réctifier.
Il y avait pas mal d'erreur sur ce fichier.
Merci a toi.

 

Vote positif 0 Vote négatif