APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX Résolu/Fermé

Question

Bonjour, 
via une feuille" DONNEE EQUIPEMENT "
 des lors que je Sélectionne le "ComEQUI"  dans mon userform ,je veux que cela remplisse les élément automatiquement dans urserform
trouvez ci dessous mon code et mon fichier 
'APPELE DES DONNEE'

Private Sub ComEQUI_Change()
    With ThisWorkbook.Sheets("Donné équipement")
        For Each Nom In .Range("b1:b" & .[b65000].End(xlUp).Row)
            If CStr(Nom) = CStr(Me.ComEQUI.Value) Then
                Me.TextMISE.Value = .Cells(Nom.Row, 10) 'colone j'
                Me.Textdurvie.Value = .Cells(Nom.Row, 12) 'colone L'
            End If
        Next
    End With
End Sub

j ai une erreur mais je ne sais pas ou 

merci

 https://www.cjoint.com/c/FKwodXZ0G2q

Configuration: Windows 7 / Firefox 42.0

michel_m · Answer

Bonjour,

Si tu as plusieurs occurrences de ton combo dans colonnes B, peut-^tre envoyer les résultats dans des listbox plutôt que des textbox ?
 
met plutôt ton classeur sur mon-patage.fr que sur cjoint qui n'accepte plus les classeurs avec macro
d'avance merci

michel_m · Answer

a mon humble avis ton combo devrait répertorier la colonne A plut^t que "B" 

si tel est le cas
après avoir mis dans les propriétés de ComEQUI à la ligne rowsource
'donné equipement'!A2:A647

Attention aux lignes vides!!!
Private Sub ComEQUI_Change()Dim Ligne As Integer    With ThisWorkbook.Sheets("Donné équipement")        Ligne = .Columns("A").Find(Me.ComEQUI.Value, .Range("a1"), xlValues).Row         Me.TextMISE.Value = .Cells(Ligne, "J") 'colone j'         Me.TextDUREVIE.Value = .Cells(Ligne, "L") 'colone L'    End WithEnd Sub 

prends pas ca mal, mais c'est un vrai B...., tes codes!
bon courage

APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX

2 réponses

Discussions similaires