renvoi combobox sur textbox

Vidal Salvador · 3 Mai 2024

Bonsoir Mr.
Je suis nouveau dans la plate forme "Je soutiens Excel Downloads" et j'ai un souci, au fait j'aimerais que à chaque fois que je sélection un équipement dans un combobox que le textbox me renvoi automatiquement les caractéristiques. j'ai les noms des équipements et les caractéristiques dans un tableau.
Merci à vous!!

piga25 · 4 Mai 2024

Bonjour à tous,
Dans la feuille formulaire il faut une colonne avec les caractéristiques de chaque équipement.

VB:

Private Sub cboEquipements_Change()
'
    With cboEquipements
        If .ListIndex > -1 Then
        Me.txtCaractéristiques.Value = Sheets("Formulaire").Range(.RowSource)(.ListIndex + 1, 2).Value
        End If
    End With
End Sub

piga25 · 3 Mai 2024

Bonjour,
Il y a bien les équipements mais ou sont les caractéristiques de ceux ci?

Vidal Salvador · 4 Mai 2024

piga25 à dit:
Bonjour,
Il y a bien les équipements mais ou sont les caractéristiques de ceux ci?

Bonjour,
je vous prise de m'excuse c'était le mauvais fichier. svp je veux un programme vba permettant de faire cette tache .

ChTi160 · 4 Mai 2024

Bonjour Salvador
ne pourrais tu pas ajouter a ton Tableau "TEquipements" une Colonne qui définirait , si c'est un Equipement de "Boulangerie" ,"Charcuterie" etc
tu pourrais ainsi choisir entre "Boulangerie" ,"Charcuterie" etc et obtenir la Liste des Equipements de la rubrique sélectionnée !
Jean marie

piga25 · 4 Mai 2024

Bonjour à tous,
Dans la feuille formulaire il faut une colonne avec les caractéristiques de chaque équipement.

VB:

Private Sub cboEquipements_Change()
'
    With cboEquipements
        If .ListIndex > -1 Then
        Me.txtCaractéristiques.Value = Sheets("Formulaire").Range(.RowSource)(.ListIndex + 1, 2).Value
        End If
    End With
End Sub

ChTi160 · 4 Mai 2024

Re
Un exemple pour voir Lol
je n'ai traité que le remplissage des Combobox !
Jean marie

Vidal Salvador · 4 Mai 2024

piga25 à dit:
Bonjour à tous,
Dans la feuille formulaire il faut une colonne avec les caractéristiques de chaque équipement.

VB:

Private Sub cboEquipements_Change() ' With cboEquipements If .ListIndex > -1 Then Me.txtCaractéristiques.Value = Sheets("Formulaire").Range(.RowSource)(.ListIndex + 1, 2).Value End If End With End Sub

Je vous remercie énormément Mr.

Vidal Salvador · 4 Mai 2024

ChTi160 à dit:
Re
Un exemple pour voir Lol
je n'ai traité que le remplissage des Combobox !
Jean marie

Merci énormément Jean Marie.

renvoi combobox sur textbox

Vidal Salvador

XLDnaute Nouveau

Pièces jointes

piga25

piga25

XLDnaute Barbatruc

Vidal Salvador

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Pièces jointes

Vidal Salvador

XLDnaute Nouveau

Vidal Salvador

XLDnaute Nouveau

Discussions similaires