APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX
Résolu
cedric0715
Messages postés
210
Date d'inscription
Statut
Membre
Dernière intervention
-
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX
- Set-top box - Accueil - Box & Connexion Internet
- Appelé en inconnu - Guide
- Adresse ip box - Guide
- Box internet - Accueil - Guide box et connexion Internet
- Box allumé mais pas internet - Guide
2 réponses
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
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
cedric0715
Messages postés
210
Date d'inscription
Statut
Membre
Dernière intervention
https://mon-partage.fr/f/jul8kHZM/
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!!!
prends pas ca mal, mais c'est un vrai B...., tes codes!
bon courage
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 With
End Sub
prends pas ca mal, mais c'est un vrai B...., tes codes!
bon courage