Probleme de code

[apdf1]

Bonjour

J'ai un probleme dans mon code si quelqu'un pouvait me dire ou ?
Merci d'avance

Cordialement

Max

 

[Gorfael]

Re : Alimenter TextBox

Salut apdf1 et le forum

J'ai un USF avec 1 Combobox et 4 TextBox j'aimerais alimenté les textBox via la combobox.

C'est bien possible, mais dans le fichier d'essai donné, ce n'est pas le cas.
A+

 

[apdf1]

Re : Probleme

Bonjour Gorfael


@+

Max

 

[apdf1]

Re : Probleme de code

Re,

J'ai un probleme dans mon code si quelqu'un pouvait me dire ou ?

Merci d'avance

Cordialement

Max

 

[Hippolite]

Re : Probleme de code

Bonjour à tous,
Ajoute Feuil2. devant les Cells et ça marchera mieux.
A+

 

[Pierrot93]

Re : Probleme de code

Re, bonjour Gorfael

essaye comme ceci :

Private Sub UserForm_Initialize()
    ComboBox1.List = Feuil2.Range("C5:C" & Feuil2.Range("C65536").End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Change()
Dim C As Range
With Feuil2
Set C = .Cells.Find(what:=Me.ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
    Me.TextNord = .Cells(C.Row, 4).Text
    Me.TextEst = .Cells(C.Row, 5).Text
    Me.TextSud = .Cells(C.Row, 6).Text
    Me.TextOuest = .Cells(C.Row, 7).Text
End If
End With
End Sub

bon après midi
@+

Edition : bonjour Hippo, bien vu, j'ai modifié en conséquence...

 

[apdf1]

Re : Probleme de code

Bonjour Pierrot

Je te remercie sa marche nickel

Je te souhaite une bonne soirée

Max