VBA correspondance cellule

Dranreb

XLDnaute Barbatruc

• 7 Août 2016

• #2

Bonjour.
Mettez une ComboBox au lieu de la TextBox.
Mais mettez sa propriété ShowDropButtonWhen à 0 pour encourager fortement le choix uniquement par frappe.
Notez qu'après avoir tapé quelques caractères, la liste pourra être affichée quand même, si besoin est, par touches Alt+flèche bas.

 

Dernière édition: 7 Août 2016

Vote positif 0 Vote négatif

E

Edd93

XLDnaute Occasionnel

• 7 Août 2016

• #3

Merci, ensuite comment obtenir un Msgbox qui nous donne la valeur de la cellule de la colonne 2 associé à la cellule de la colonne 1 de la même ligne

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Août 2016

• #4

Ne mettez pas de MsgBox, mais un Label dans l'UserForm
Dans la Sub UserForm_Initialize Affectez la Value de la plage en 1ère colonne à sa List.
Dans la Sub de l'évènement Change de la ComboBox utilisez son ListIndex pour trouver le décalage par rapport à la 1ère cellule de la seconde colonne. Affecté la Value de cette cellule au Caption du Label.

 

Vote positif 0 Vote négatif

E

Edd93

XLDnaute Occasionnel

• 7 Août 2016

• #5

je sais pas comment faire...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Août 2016

• #6

Qu'est-ce qui vous bloque ?
Utilisez les deux grandes listes déroulantes qui surmontent la fenêtre de code.
Elles vous aideront à implanter les modèles de procédures évènements.

 

Dernière édition: 7 Août 2016

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2016

• #7

Bonjour Edd93, Bernard,

Apparemment on veut quelque chose de simple :

Code:

Private Sub CommandButton1_Click()
Dim c As Range
Set c = Sheets("Feuil2").Columns(1).Find(TextBox1, , xlValues, xlWhole)
If TextBox1 <> "" And Not c Is Nothing Then MsgBox c(1, 2)
End Sub

ou sans bouton :

Code:

Private Sub TextBox1_Change()
Dim c As Range
Set c = Sheets("Feuil2").Columns(1).Find(TextBox1, , xlValues, xlWhole)
If TextBox1 <> "" And Not c Is Nothing Then MsgBox c(1, 2)
End Sub

A+

 

Vote positif 0 Vote négatif

E

Edd93

XLDnaute Occasionnel

• 8 Août 2016

• #8

Bonjour ! Merci à vous pour votre aides !

 

Vote positif 0 Vote négatif