OVH Cloud OVH Cloud

Afficher les cellules d'une ligne dans un UserForm

3 réponses
Avatar
bob
Salut,

J'ai cr=E9er un formulaire et je voudrais =E0 partir de mon=20
combobox faire afficher dans mes diff=E9rents textbox les=20
cellules de la ligne correspondant =E0 ma s=E9lection.

Merci d'avance

bob

3 réponses

Avatar
Ellimac
Bonjour Bob,

Avec un chmp nommé Début coorespondant à la 1ère cellule
du tableau (A2 chez moi) :
Private Sub ComboBox1_Change()
i = ComboBox1.ListIndex
TextBox1 = Range("Début").Offset(i, 1)
TextBox2 = Range("Début").Offset(i, 2)
End Sub

Camille
-----Message d'origine-----
Salut,

J'ai créer un formulaire et je voudrais à partir de mon
combobox faire afficher dans mes différents textbox les
cellules de la ligne correspondant à ma sélection.

Merci d'avance

bob
.



Avatar
-----Message d'origine-----
Bonjour Bob,

Avec un chmp nommé Début coorespondant à la 1ère cellule
du tableau (A2 chez moi) :
Private Sub ComboBox1_Change()
i = ComboBox1.ListIndex
TextBox1 = Range("Début").Offset(i, 1)
TextBox2 = Range("Début").Offset(i, 2)
End Sub

Camille
-----Message d'origine-----
Salut,

J'ai créer un formulaire et je voudrais à partir de mon
combobox faire afficher dans mes différents textbox les
cellules de la ligne correspondant à ma sélection.

Merci d'avance

bob
.

.

Salut Camille,


Merci pour ton conseil, mais malheureusement j'ai un
message d'erreur quand je sélectionne un élément :
La méthode 'Range' de l'objet '_Global' a échoué
Y-a-t-il un paramétrage à faire sur les propriétés du
ComboBox ou du TextBox

Bob


Avatar
Ellimac
Re,

Dans ma macro je fais référence à un champ nommé Début
correspondant à la cellule A2.
Soit tu nommes la cellule A2 (ou une autre) Début, soit
dans la macro tu remplaces Range("Début") par range("A2")
ou autre.

Camille

-----Message d'origine-----

-----Message d'origine-----
Bonjour Bob,

Avec un chmp nommé Début coorespondant à la 1ère cellule
du tableau (A2 chez moi) :
Private Sub ComboBox1_Change()
i = ComboBox1.ListIndex
TextBox1 = Range("Début").Offset(i, 1)
TextBox2 = Range("Début").Offset(i, 2)
End Sub

Camille
-----Message d'origine-----
Salut,

J'ai créer un formulaire et je voudrais à partir de mon
combobox faire afficher dans mes différents textbox les
cellules de la ligne correspondant à ma sélection.

Merci d'avance

bob
.

.

Salut Camille,


Merci pour ton conseil, mais malheureusement j'ai un
message d'erreur quand je sélectionne un élément :
La méthode 'Range' de l'objet '_Global' a échoué
Y-a-t-il un paramétrage à faire sur les propriétés du
ComboBox ou du TextBox

Bob
.