Discussion :

[Jeyjey1]

Bonjour,
Mon code a pour but que lorsque j'indique une donnée (colonne C) dans une textbox, des infos s'affichent dans une autre textbox (colonne X meme ligne).J'ai surligné en rouge la ligne du code qui me pose probleme, car je n'arrive pas a afficher les donnees sur la 2eme textbox, quelqu'un aurait il une idée a me soumettre s'il vous plait, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextBox1_Change()
 
Dim i As Integer
Dim j As Integer
 
With Worksheets("Tool_Dossiers")
 
    For i = 1 To .Range("C65536").End(xlUp).Row - 1
    For j = 1 To .Range("X65536").End(xlUp).Row - 1
 
If Left(.Range("C5").Cells(i, 1), Len(TextBox1)) = TextBox1 Then TextBox2 = .Range("X").Cells(j, 1) 
 
 
Next j
Next i
    End With
 
End Sub

[jfontaine]

je ne comprend pas bien le but de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("C5").Cells(i, 1)

Soit tu utilises Range, soit tu utilises Cells, mais les 2 !!!!
Y a t'il quelque chose qui m'échappe?

[patbou]

bonjour,

pour afficher ds un textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
textbox1.value = "toto"