Probleme de code

Gorfael

XLDnaute Barbatruc

• 3 Mai 2011

• #2

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 3 Mai 2011

• #3

Re : Probleme

Bonjour Gorfael


@+

Max

 

Dernière édition: 3 Mai 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 3 Mai 2011

• #4

Re : Probleme de code

Re,

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

Merci d'avance

Cordialement

Max

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 3 Mai 2011

• #5

Re : Probleme de code

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2011

• #6

Re : Probleme de code

Re, bonjour Gorfael

essaye comme ceci :

Code:

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

 

Dernière édition: 3 Mai 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 3 Mai 2011

• #7

Re : Probleme de code

Bonjour Pierrot

Je te remercie sa marche nickel

Je te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif