Problemes avec un ComboBox

[Mathieu]

bonjour,

Quelqu'un peut il m'aider à resoudre mon petit problème.

voici clairement ce qui me 'turlupine'

j'aimerais, à la manière d'une Textbox faire l'action si dessous :

Textbox1.Value = Range('CMOV!D19').Value

mais avec une Combobox et ça ne me rappelle pas la valeur de la cellule quand j'ouvre le Userform

merci d'avance

Mathieu

 

[PascalXLD]

Bonjour

essaies

Textbox1.Value = sheets('CMOV').Range('D19').Value

Bon courage

 

[PascalXLD]

Oups J'ai mal lu

Je comprends pas trop elle est alimenté comment ta combobox ???

Tu lui mets juste une valeur ???

combobox1.additem sheets('CMOV').Range('D19').Value

Sinon tu peux préciser

 

[_Thierry]

Bonjour Pascal, Mathieu, le Forum

Moi aussi, je me pose des questions, une ComboBox pour une Valeur... Ptet que Mathieu a mal formulé sa question..

Sinon Voici X-Méthodes

Méthode AddItem (One Item)

Private Sub UserForm_Initialize()
    With Me.ComboBox1
      .AddItem Sheets('Mov').Range('D19')
      .ListIndex = 0
    End With
End Sub

Méthode RowSource

Private Sub UserForm_Initialize()
With Me.ComboBox1
    .RowSource = 'Mov!D19' ' <= On peut mettre aussi 'Mov!D19:D30' pour une plage
    .ListIndex = 0
End With
End Sub

Méthode AddItem (Several Items)

Private Sub UserForm_Initialize()
Dim i As Byte
    With Me.ComboBox1
        For i = 19 To 30
            .AddItem Sheets('Mov').Cells(i, 4)
        Next
    .ListIndex = 0
    End With
End Sub

Méthode List / Array (Several Items)

Private Sub UserForm_Initialize()
Dim MyArray As Variant
    MyArray = Sheets('Mov').Range('D19:D30')
        With Me.ComboBox1
            .List() = MyArray
            .ListIndex = 0
        End With
End Sub

Voilà au cas où, Mathieu est parré !

Bonne Journée
@+Thierry