Combobox

[spyte]

j'ai fun tableur avec un combobox don la capacité est trops pepite pour le contenu de ma cellule qq peu m'aider?
merci

 

[spyte]

Re : Combobox

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
Set f = Sheets("bd2")
Set Dpt = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
Set cp = f.Range("b2:b" & f.[b65000].End(xlUp).Row)
Set ville = f.Range("c2:c" & f.[c65000].End(xlUp).Row)
temp = Dpt
For i = 1 To UBound(temp, 1)
MonDico(temp(i, 1)) = 1
Next i
Me.ComboBox1.List = MonDico.keys
Me.ComboBox1.SetFocus
SendKeys "{F4}"
End Sub
Private Sub ComboBox1_Change()
Set MonDico = CreateObject("Scripting.Dictionary")
d = Application.Match(Me.ComboBox1, Dpt, 0)
Me.ComboBox2.Clear

For i = d To d + Application.CountIf(Dpt, Me.ComboBox1) - 1
MonDico(cp(i).Value) = 1
Next i
Me.ComboBox2.List = MonDico.keys
Me.ComboBox2.SetFocus
SendKeys "{F4}"





End Sub


Private Sub ComboBox2_Change()
If Me.ComboBox2 <> "" Then
Me.ComboBox3.Clear
d = Application.Match(Val(Me.ComboBox2), cp, 0)
If IsError(d) Then d = Application.Match(Me.ComboBox2, cp, 0)
For i = d To d + Application.CountIf(cp, Me.ComboBox2) - 1
Me.ComboBox3.AddItem ville(i)
Next i
Me.ComboBox3.SetFocus
SendKeys "{F4}"
End If
End Sub
Private Sub ComboBox3_Change()

no_ligne = Range("A65536").End(xlUp).Row + 1



Cells(no_ligne, 37) = ComboBox3.Value
Cells(no_ligne, 38) = ComboBox2.Value
Cells(no_ligne, 39) = ComboBox1.Value
Unload Me
End Sub

 

[DoubleZero]

Re : Combobox

Bonjour à toutes et à tous, bonjour, Jean-Marcel 🙂,

Bonjour et bienvenue sur XLD, spyte !

j'ai fun tableur avec un combobox don la capacité est trops pepite pour le contenu de ma cellule qq peu m'aider?
merci

Je ne peux aider sur le problème exposé mais la lecture de Lien supprimépourrait favoriser l'obtention de propositions.

A bientôt...

 

[spyte]

Re : Combobox

Voila c'est un userfrom constitué de 3 combobox qui prennent les valeurs de cellules mon prob est quand une cellule est trop importante en texte j'ai une erreur "13"

 

[david84]

Re : Combobox

Bonjour à toi aussi, à 00🙂 et à Jean-Marcel🙂,
allez, au hasard🙄, peut-être en passant la propriété AutoSize à True...
A+

 

[spyte]

Re : Combobox

je m'excuse je ne suis par tres poli bonjour a tous et un grand merci d'avance

 

[spyte]

Re : Combobox

Tu peux développer un peu david84
merci

 

[david84]

Re : Combobox

Re
difficile de développer sans savoir avec exactitude ce que tu veux et sans fichier exemple, impossible de tester...
d'après ce que je crois comprendre, tu veux pouvoir afficher la totalité du contenu de la cellule dans ton combo.
Donc je te dis simplement d'afficher les propriétés du combo (affichage de la fenêtre Propriétés) et de passer la propriété AutoSize sur True...et de voir si cela change quelque chose. Pour savoir à quoi cette propriété sert, clique sur Autosize et appuie sur la touche F1 (aide d'Excel).
A+

 

[spyte]

Re : Combobox

Ok j'ai compris je teste
merci je te dis quoi...