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é)
Re : Combobox Afficher le contenu cellule adjacente à celle de la rowsource dans 1 Te
Bonjour,
essaye peut être ceci :
Code:
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....
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....