APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX

Résolu/Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 22 nov. 2016 à 15:04
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 22 nov. 2016 à 18:45

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

A voir également:

APPELE DES DONNES DANS PLUSIEUR TEXT BOX VIA UN COMBOX
Adresse ip box - Guide
Tera box - Télécharger - Stockage
Ai text classifier - Guide
Appelé en inconnu - Guide
Box sfr un seul voyant allumé - Forum SFR / NeufBox / Numéricable

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 nov. 2016 à 15:36

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

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
22 nov. 2016 à 15:50

https://mon-partage.fr/f/jul8kHZM/

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 nov. 2016 à 16:46

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 With
End Sub

prends pas ca mal, mais c'est un vrai B...., tes codes!
bon courage

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
22 nov. 2016 à 18:45

merci maintenant pour ce qui de mes codes je prend notes
n’hésite pas a me dire ou son mes erreurs
c est en apprenant que l'on s’améliore
merci encore

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

Arnaque du site light in the box

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

comment donner les droits sur fichier partage

copie de texte

Discussions similaires

Newsletters