Chargement de Userfom

[TheProdigy]

Bonjour à tous,

Qu'est-ce qui ne va pas dans mon chargement d'Userform?
J'essai d'apprendre pas à pas. 🙂

Merci

 

[pou pouille]

Re : Chargement de Userfom

bonjour , dans le code de l'initialisation, il faut modifier l'origine de la combobox:
ComboBox1.RowSource = "Feuil1!A1:A2"
comme cela par exemple pour les cellules A1 à A2 de la feuille 1

 

[Hulk]

Re : Chargement de Userfom

Hello,

Juste pour commencer, on n'écrit pas

[COLOR="Red"][B]Range(a1)[/B][/COLOR]

mais

[COLOR="Green"][B]Range("A1")[/B][/COLOR]

ou pas

[COLOR="Red"][B]Range(A1, A2)[/B][/COLOR]

mais

[COLOR="Green"][B]Range("A1:A2")[/B][/COLOR]

Pour le RowSource, dans VBA, tu sélectionnes la ComboBox et dans la fenêtre des propriétés, dans RowSource tu mets A1:A2.

Mais le mieux est de mettre par exemple ce bout de code

Private Sub UserForm_Initialize()

    With Sheets("Feuil1")
        ComboBox1.List = .Range("A1:A" & .Range("A65000").End(xlUp).Row).Value
    End With

End Sub

De cette manière, la ComboBox est dynamique, dès que tu rajoutes un nom en colonne A, il apparaîtra dans la ComboBox.

Espérant t'avoir aidé un peu.

Cdt, Hulk.

EDIT : Bj et pardon Pou pouille et le requin.

 

[TheProdigy]

Re : Chargement de Userfom

Merci infinient.

 

[TheProdigy]

Re : Chargement de Userfom

Hulk,

Private Sub UserForm_Initialize()

With Sheets("Feuil1")
ComboBox1.List = .Range("A1:A" & .Range("A65000").End(xlUp).Row).Value
End With

End Sub

Pourquoi tu utilises "with" alors que tu as qu'une seule proprièté?

D'aprés ma connaissance on utilise with quand on plusieurs prriétés d'objets.

Merci à tous

 

[Robert]

Re : Chargement de Userfom

Bonjour le fil, bonjour le forum,

parce que Hulk est un malin... il aurait pu écrire :

ComboBox1.List = [COLOR=red]Sheets("Feuil1")[/COLOR].Range("A1:A" & [COLOR=red]Sheets("Feuil1")[/COLOR].Range("A65000").End(xlUp).Row).Value
End With

mais finalement il a gagné 3 caractères avec With et End With...

J'ai dit malin mais j'aurais pu tout aussi bien pu dire flemmard...

 

[TheProdigy]

Re : Chargement de Userfom

Ah Robert,

Maintenant je comprends. Merci

carcharodon-carcharias,

Pourrais-tu me donne un exemple avec ton code

Merci.

 

[TheProdigy]

Re : Chargement de Userfom

Dis donc!!

Il est magique ton requin? 🙂

Merci infiniment à tous.

 

[Hulk]

Re : Chargement de Userfom

Re,

Pour te répondre Adilprodigy, si tu n'as qu'une seule feuille ou si tu appelles toujours l'Usf depuis la même feuille, oui tu peux très bien écrire

Private Sub UserForm_Initialize()

    ComboBox1.List = .Range("A1:A" & .Range("A65000").End(xlUp).Row).Value

End Sub

mais si tu as plusieurs feuilles et que tu veux appeler l'Usf depuis une autre feuille, il faut toujours référencer la feuille où se trouve ta liste !... Comme ci-dessous.

Private Sub UserForm_Initialize()

    With Sheets("Feuil1")
        ComboBox1.List = .Range("A1:A" & .Range("A65000").End(xlUp).Row).Value
    End With

End Sub

'Ou

Private Sub UserForm_Initialize()

    ComboBox1.List = Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A65000").End(xlUp).Row).Value

End Sub

Voilà l'utilité de mettre un With Sheets... ou Sheets...

Cdt, Hulk.

 

[TheProdigy]

Re : Chargement de Userfom

Merci,

Autre question pourquoi les contrôles sylémentaires ne s'affichent pas. Ils sont désactivés dans Outils.

Merci.