textbox qui ne se remplie pas

[chtimili]

bonjour a tous

dans mon userform , Ma textbox ne se remplie pas .

je choisie dans combobox 1 le bâtiment ( colonne B)
combobox 2 l'etage (colonne C)
combobox3 la piece (colonne F)
dans la textbox devrait s'afficher en fonction de mes choix l'identifiant (colonne G)

merci de votre aide

 

[BigDaddy154]

Re : textbox qui ne se remplie pas

Bonjour,

il faut savoir que tout ce que est inscrit dans une textbox est considéré comme du texte change ton code ainsi et ça devrait passer :

Private Sub ComboBox3_Change()
With Sheets("Tableau")
    derligne = .Range("F" & Rows.Count).End(xlUp).Row
    For I = 5 To derligne
        If ComboBox3.Value <> "" Then
        TextBox1.Value = ""
        On Error GoTo fin
            If .Range("F" & I) = CSng(ComboBox3.Value) Then
                TextBox1 = .Range("G" & I)
                I = derligne
                End If
Else
     TextBox1.Value = ""
          End If
    Next I
End With
fin:
End Sub

Cordialement

 

[Paf]

Re : textbox qui ne se remplie pas

Bonjour chtimili, BigDaddy154,

ou faire l'inverse, 'caster' la valeur de la cellule en string :

If CStr(.Range("F" & I)) = ComboBox3.Value Then

A+