Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 TextBox

[fb62840]

Bonjour à toutes et tous,

Je cherche à obtenir, au survol de la souris sur un élément d'une combobox l'alimentation d'une textbox afin d'afficher le contenu d'une cellule en entier (cellule adjacente à celle de la rowsource)

Je m'explique :
une combobox est associée à une rowsource
exemple : Sources!A2:A10
avec de A2 à A10
Unité 1, Unité 2, Unité 3 etc

Et en colonne B de B2 à B10
détail de l'unité 1, détail de l'unité 2, détail de l'unité 3 etc

Je souhaite connaître le code à ajouter pour qu'au survol d'un item de la combobox le texte adjacent soit affiché dans une textbox (exemple texte détail de l'unité 2 si l'élément Unité 2 est survolé)

Merci Beaucoup pour votre aide

 

[Pierrot93]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Bonjour,

essaye peut être ceci :

Option Explicit
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With ComboBox1
    If .ListIndex <> -1 Then TextBox1 = Sheets("Feuil1").Cells(.ListIndex + 1, 2)
End With
End Sub

mais perso j'opterais plutôt pour l'événement "click" ou "change" du combo.... enl'état nécessite de repasser sur la combo après selection....

bonne journée
@+

 

[fb62840]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Bonjour Pierrot,

ça marche mais c'est très lent, environ 30 secondes entre le clic sur combobox et actualisation de la textbox

Je mets en pièce jointe le fichier test.
en mode macro voir le formulaire.

Une idée pour accélérer les choses ?

Bonjour,

essaye peut être ceci :

Option Explicit
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With ComboBox1
    If .ListIndex <> -1 Then TextBox1 = Sheets("Feuil1").Cells(.ListIndex + 1, 2)
End With
End Sub

mais perso j'opterais plutôt pour l'événement "click" ou "change" du combo.... enl'état nécessite de repasser sur la combo après selection....

bonne journée
@+

 

[Pierrot93]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Re,

ça marche mais c'est très lent, environ 30 secondes entre le clic sur combobox et actualisation de la textbox

pas de souci chez moi... réactualisation immédiate....

mais comme je l'avais précisé...

enl'état nécessite de repasser sur la combo après selection....

 

[fb62840]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Effectivement, si je repasse sur la combobox ça marche, y aurait-il alors possibilité de "faire croire" à la combobox qu'elle a été survolée ?

Re,



pas de souci chez moi... réactualisation immédiate....

mais comme je l'avais précisé...

 

[Pierrot93]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Re,

Effectivement, si je repasse sur la combobox ça marche, y aurait-il alors possibilité de "faire croire" à la combobox qu'elle a été survolée ?

comme dit également....

mais perso j'opterais plutôt pour l'événement "click" ou "change" du combo

 

[fb62840]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Répondre, désolé effectivement avec le code non plus sur change mais sur click l'actualisation est immédiate,

Merci beaucoup Pierrot

Re,



comme dit également....

 

[mécano41]

Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te

Bonjour à tous,

Une solution bâtarde...mais si tu tiens à avoir une textbox à côté, pourquoi pas?

Je n'ai pas trouvé comment afficher l'information à côté du N° lors du survol.

Cordialement