Help message erreur 13

[poussy67]

Bonjour, le forum

J'ai un classeur avec un USF qui me sert à réaliser des impressions selon gatégorie qui fonctionne trés bien de jpt14 . La vba et le usf de ce fichier je l'ai importé dans un autre classeur et la survient le problème erreur 13, le problème provient du usf selecvaleur3 dans la ligne

Private Sub UserForm_Initialize()
selecvaleur3.Caption = message
Call IniCombobox1(CStr(donnee(LBound(donnee))), CStr(donnee(LBound(donnee) + 1)), CLng(donnee(LBound(donnee) + 2)), 1, CBool(donnee(LBound(donnee) + 3)))
End Sub

CStr(donnee(LBound(donnee)))= incompatibilité de type et la je suis bloquer.

en vous remerciant d'avance

ci joint le fichier

cdt poussy

 

[skoobi]

Re : Help message erreur 13

Bonjour,

la variable "donnee" est vide quand tu démarres la macro "affiche_USF1".
Par contre, je vois que tu lui affectes un tableau dans la macro "travdemande".

.........
.........
donnee = Array(nomfeuille1, col1, lidep1, True)
........
..........

 

[poussy67]

Re : Help message erreur 13

bonjour skoobi

Merci pour ton aide
L'erreur était que j'avais indiquer la mauvaise ligne dans

nomfeuille1 = "saisie"
col1 = "a"
lidep1 = 18 (avant =9 au lieu de 18)
nomfeuille2 = "Impression"
col2 = "a"
lidep2 = 18 (avant =9 au lieu de 18)

merci encore 😎

cdt poussy