Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Selectionner une cellule par choix dans dans une liste

Selectionner une cellule par choix dans dans une liste

3 réponses
Avatar
Domi
Bonsoir,

Eric Jeanne avait proposé il y pas de temps cette macro pour activer la
cellule de la plage Liste qui contient la valeur en A1.
A partir d'un combobox de la boite à outil Contrôles, alimenté par la même
"Liste" et avec A1 pour cellule liée, est-il possible d'obtenir un resultat
similaire ?
On selectionne une valeur dans la liste du combobox et la cellule de la
Plage Liste est selectionnée...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo laFin
If Target.Address = "$A$1" Then Range("Liste").Find(Target,
LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

Merci
Domi
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonsoir,
Peut-être en ajoutant ceci dans le m^me module de worksheet:

Private Sub ComboBox1_Change()
On Error GoTo laFin
Range("Liste").Find([a1], LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

'lsteph
"Domi" a écrit dans le message de news:
%
Bonsoir,

Eric Jeanne avait proposé il y pas de temps cette macro pour activer la
cellule de la plage Liste qui contient la valeur en A1.
A partir d'un combobox de la boite à outil Contrôles, alimenté par la même
"Liste" et avec A1 pour cellule liée, est-il possible d'obtenir un
resultat
similaire ?
On selectionne une valeur dans la liste du combobox et la cellule de la
Plage Liste est selectionnée...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo laFin
If Target.Address = "$A$1" Then Range("Liste").Find(Target,
LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

Merci
Domi




Avatar
Domi
Excellent ! ;o)
Merci
Domi

"LSteph" a écrit dans le message de
news:%
Bonsoir,
Peut-être en ajoutant ceci dans le m^me module de worksheet:

Private Sub ComboBox1_Change()
On Error GoTo laFin
Range("Liste").Find([a1], LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

'lsteph
"Domi" a écrit dans le message de news:
%
Bonsoir,

Eric Jeanne avait proposé il y pas de temps cette macro pour activer la
cellule de la plage Liste qui contient la valeur en A1.
A partir d'un combobox de la boite à outil Contrôles, alimenté par la
même


"Liste" et avec A1 pour cellule liée, est-il possible d'obtenir un
resultat
similaire ?
On selectionne une valeur dans la liste du combobox et la cellule de la
Plage Liste est selectionnée...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo laFin
If Target.Address = "$A$1" Then Range("Liste").Find(Target,
LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

Merci
Domi








Avatar
LSteph
Bonjour,
tant mieux car j'ai suivi l'idée mais n'ai pas vraiment testé.

à bientôt
'lSteph


"Domi" a écrit dans le message de news:
%
Excellent ! ;o)
Merci
Domi

"LSteph" a écrit dans le message de
news:%
Bonsoir,
Peut-être en ajoutant ceci dans le m^me module de worksheet:

Private Sub ComboBox1_Change()
On Error GoTo laFin
Range("Liste").Find([a1], LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

'lsteph
"Domi" a écrit dans le message de news:
%
Bonsoir,

Eric Jeanne avait proposé il y pas de temps cette macro pour activer la
cellule de la plage Liste qui contient la valeur en A1.
A partir d'un combobox de la boite à outil Contrôles, alimenté par la
même


"Liste" et avec A1 pour cellule liée, est-il possible d'obtenir un
resultat
similaire ?
On selectionne une valeur dans la liste du combobox et la cellule de la
Plage Liste est selectionnée...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo laFin
If Target.Address = "$A$1" Then Range("Liste").Find(Target,
LookAt:=xlWhole).Activate
End
laFin: MsgBox "Pas trouvé !"
Target.Select
End Sub

Merci
Domi