Problème RowSource

[beepbeep]

Bonjour à tous,

Dans mon fichier Excel, j'ai un problème sur la feuille DD-RI
Lorsque je clique sur le bouton "Ajouter un DD", j'ai mon Userform qui doit s'ouvrir et je doit remplir la ComboBox "ComboBoxEntite" mais j'ai une erreur d'exécution sur la ligne

frmAjoutDD.ComboBoxEntite.RowSource = Str1

Est ce que quelqu'un aurait l'amabilité de me dire ou est le problème ?

Merci pour les réponses

 

[Arnaud]

Salut ,

tu a oublier les simple cote ' entre le nom de ta feuille :

Str1 = "'" & FeuilleDonnees & "'!$E$2:$E$" & Trim(Str(Workbooks(ClasseurDispo).Sheets(FeuilleDonnees).Range("B4").Value + 2 - 1))

 

[beepbeep]

Merci, merci beaucoup.....

ça fait 1 heure que je cherchais.....

On voit que je ne suis pas encore habitué au VB mais je vais persévérer et je le materais.....

 

[ChTi'160]

Salut "beepbeep"
j'ai modifié de la sorte estce la bonne mais celà ouvre le USF avec a liste entité approvisionnée
Private Sub Userform_Activate()
Dim Str1 As String
Dim Str2 As String
Str1 = Sheets(FeuilleDonnees).Range("B65536").End(xlUp).Value + 1
frmAjoutDD.ComboBoxEntite.RowSource = "E2:E" & Str1

End Sub
tiens nous au courant
A+++
Jean Marie

 

[ChTi'160]

oups j'ai pas Arnaud
salut à toi
de plus ca ne marche qu'en feuille "Donnees Systeme" excuses
A+++
Jean Marie