Problème RowSource

A

Arnaud

Guest

• 3 Février 2005

• #2

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

 

Vote positif 0 Vote négatif

B

beepbeep

Guest

• 3 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 3 Février 2005

• #4

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

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 3 Février 2005

• #5

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

 

Vote positif 0 Vote négatif