Urgent pb ouverture USERFORM

[jeromeN95]

Bonjoour,
j'ai un fichier excel avec une USF.
Un bouton me lance cette USF.

Sub Afficher()
MonUSF.Show
End Sub
J'ai rien modifier et excel me fait une erreur d'execution '380':
Impossible de définir la propriété Value.Valeur de propriété non valide.

A quoi est-ce du SVP???

 

[Robert]

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...

 

[mutzik]

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 ?)

 

[jeromeN95]

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

 

[jeromeN95]

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.

 

[Robert]

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 :

If Combofournisseur = "diversey" Then

[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.

 

[jeromeN95]

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?

 

[jeromeN95]

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.

 

[Robert]

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...

 

[jeromeN95]

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.