Conflit USF

[raclette]

Bonjour,

j'ai un petit souci avec ma usf, dès que je met quelque chose dans private sub useform1_initialize cela me provoque une erreur dans userform1.show

quelqu'un peu t'il jeter un oeil (ou deux)

 

[Guest]

Re : Conflit USF

Bonjour,

Lorsque le programme s'arrête fait un débogage pas à pas par F8 tu verras quelle ligne est en cause dans Initialize.

A+

 

[Pierrot93]

Re : Conflit USF

Bonjour,

pas ouvert ton fichier, ce n'est pas le nom de l'usf qu'il faut indiquer mais l'objet... logiquement tu cliques dans la combo en haut à droite dans l'éditeur vba pour choisir la bonne procédure concernée...

Private Sub UserForm_Initialize()

bon après midi
@+

Edition : bonjour Hasco

 

[raclette]

Re : Conflit USF

Ca ne fonctionne pas même en mettant Private Sub UserForm_Initialize()

 

[Guest]

Re : Conflit USF

Re,

Tu as fais ce que je t'ai dit?

C'est à l'intérieur de la sub Initiatlize qu'il y a une erreur. Je l'ai vue!

A+

 

[raclette]

Re : Conflit USF

Re,

Tu as fais ce que je t'ai dit?

C'est à l'intérieur de la sub Initiatlize qu'il y a une erreur. Je l'ai vue!

A+

Je suis tout disposé à te croire mais si j'écris c'est que je ne trouve pas l'erreur

 

[roro69]

Re : Conflit USF

Bonjour
Suremnt cette ligne:

Set rgMotif = Feuil2.Range("B1", Feuil2.Range("B3").End(xlUp))

A++

 

[Guest]

Re : Conflit USF

Re,

Et moi, ce que je te donne c'est le moyen de retrouver la ligne qui provoque l'erreur!

Quand le programme s'arrête sur UserForm1.Show Tu fais une première fois F8 (cela appelle la ligne suivante dans l'ordre de l'éxécution)
tu vois s'afficher UserForm_Initialize() (en jaune)
tu refais F8, ça exécute la ligne et se déplace sur la ligne suivante.
tu refais encore F8 en examinant tes lignes une à une.
Au moment où tu as un message d'erreur tu sauras que c'est la dernière ligne sur laquelle tu as fais F8 qui pose problème.

OFFSET???????

A+

[Edit] roro, du tout cuit, sans explication! Je passe la main

 

[raclette]

Re : Conflit USF

Et il faut la remplacer par quoi ? Qu'est ce qu'y ne va pas?

 

[Guest]

Re : Conflit USF

Re,

D'autant plus que ce n'est pas cette ligne qui provoque directement l'arrêt sur erreur!

A+

 

[raclette]

Re : Conflit USF

Re,

[Edit] roro, du tout cuit, sans explication! Je passe la main

Je ne demande que ça des explications moi, je te remercie de m'aiguiller sur la façon de chercher l'erreur et effectivement l'erreur intervient sur la ligne .List = rgMotif.Offset.Value mais je ne vois pas ou est l'erreur car je n'ai pas fais ce code.

 

[Guest]

Re : Conflit USF

Re,

Bon maintenant que tu as cerné le problème plus précisement, on peut en discuter.
Je t'ai donné un indice tout à l'heure OFFSET (qu'est-ce qu'il vient faire là). regarde l'aide excel sur Offset.

A+

 

[roro69]

Re : Conflit USF

Re
edit n'apporte rien à la discussion
A++

 

[raclette]

Re : Conflit USF

Ok, alors à priori cela sert à décaler l'objet offset(1,1) décalera d'une colonne et une ligne, en revanche même en le retirant et en indiquant .List = rgMotif.Value cela ne fonctionne toujours pas, dois je appliquer autre chose?

Edit Roro : Oui ca marche mais je me retrouve avec une liste déroulante enorme et non pas de 3 items peux tu m'expliquer?

 

[Guest]

Re : Conflit USF

Re,

Tu insistes roro

D'autant que s'il fait ça il aura des valeurs non souhaitées dans sa combobox! As-tu regardé le fichier?

A+