Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Valeur TextBox

4 réponses
Avatar
DAVID
Bonjour

J'initialise une "zone de liste modifiable" grâce à ceci :

Private Sub UserForm_Initialize()
CmbAlias.RowSource = ("BD!MaListe")
CmbAlias.ListIndex = -1
End Sub

"MaListe" étant une plage (colonne C) nommée avec "Insertion/Nom/Définir"

J'aimerais récupérer dans une "Zone de Texte" la valeur de la colonne D en
rapport au choix de la "zone de liste modifiable"

Faut il créer une autre plage donnée ?

Merci de votre aide


Private Sub CmbAlias_Change()

End Sub

4 réponses

Avatar
michdenis
Bonjour David,

Ta zone de liste est défini avec une plage de cellules ("BD!MaListe")

'Tu obtiens l'index de la valeur affichée dans le combobox
z= CmbAlias.ListIndex

Tu appliques cet index "z" à la plage source de ton combobox
et tu décales d'une colonne pour obtenir la valeur D sur la même
ligne de ta plage source
Msgbox Range("BD!MaListe")(z).offset(,1).value




"DAVID" a écrit dans le message de groupe de discussion :

Bonjour

J'initialise une "zone de liste modifiable" grâce à ceci :

Private Sub UserForm_Initialize()
CmbAlias.RowSource = ("BD!MaListe")
CmbAlias.ListIndex = -1
End Sub

"MaListe" étant une plage (colonne C) nommée avec "Insertion/Nom/Définir"

J'aimerais récupérer dans une "Zone de Texte" la valeur de la colonne D en
rapport au choix de la "zone de liste modifiable"

Faut il créer une autre plage donnée ?

Merci de votre aide


Private Sub CmbAlias_Change()

End Sub
Avatar
DAVID
Bonsoir et merci pour ton aide

J'ai fais comme ceci. C'est bon ? En tout cas cela fonctionne !!

Private Sub CmbAlias_Change()
Txt1.Value = Range("BD!MaListe")(CmbAlias.ListIndex + 1).Offset(, 1).Value
End Sub
Avatar
michdenis
Une légère correction.

Le premier élément d'un combobox a comme index 0
En conséquence, cette ligne de code:
Msgbox Range("BD!MaListe")(z).offset(,1).value
devrait être modifié comme ceci :
Msgbox Range("BD!MaListe")(z+1).offset(,1).value





"michdenis" a écrit dans le message de groupe de discussion :

Bonjour David,

Ta zone de liste est défini avec une plage de cellules ("BD!MaListe")

'Tu obtiens l'index de la valeur affichée dans le combobox
z= CmbAlias.ListIndex

Tu appliques cet index "z" à la plage source de ton combobox
et tu décales d'une colonne pour obtenir la valeur D sur la même
ligne de ta plage source
Msgbox Range("BD!MaListe")(z).offset(,1).value




"DAVID" a écrit dans le message de groupe de discussion :

Bonjour

J'initialise une "zone de liste modifiable" grâce à ceci :

Private Sub UserForm_Initialize()
CmbAlias.RowSource = ("BD!MaListe")
CmbAlias.ListIndex = -1
End Sub

"MaListe" étant une plage (colonne C) nommée avec "Insertion/Nom/Définir"

J'aimerais récupérer dans une "Zone de Texte" la valeur de la colonne D en
rapport au choix de la "zone de liste modifiable"

Faut il créer une autre plage donnée ?

Merci de votre aide


Private Sub CmbAlias_Change()

End Sub
Avatar
DAVID
Merci

C'est exactement ce que j'avais fait après avoir fait des essais.

C'est dur mais je commence à comprendre un peu !!

Bonne soirée