Microsoft 365 msgbox avec liste de choix

[Usine à gaz]

Bonjour à toutes et à tous,


Je me tourne une nouvelle fois vers nos ténors 😉

J'ai fait des p'tits tests UF pour faire des choix de nombres ... Pas de souci particulier pour ça 🙂
Mais les UF, me semble-t-il, alourdissent les classeurs et les miens sont déjà plutôt lourds et "Usines à gaz" comme disent les Amis lol.

Je me demandais si ce ne serait pas mieux (si c'est possible ?) de faire ce choix à l'aide, par exemple, d'un msgbox avec liste de choix ?
J'ai fait des recherches et pas mal d'essais sans succès.

Si c'est possible, auriez-vous le bon code ?
En cas, je joins une fichier test.
Merci pas avance,
Amicalement,
lionel,

 

[job75]

Bonsoir Lionel,

Avec le double-clic sur la cellule concernée :

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x$, pos1%, pos2%, pos3%
x = ActiveCell
pos1 = InStr(x, "proposition")
If pos1 = 0 Then Exit Sub
Cancel = True
pos2 = InStr(pos1, x, vbLf)
If pos2 = 0 Then pos2 = Len(x) + 1
pos3 = InStrRev(Left(x, pos2), " - ")
If pos3 < pos1 Then Exit Sub
ActiveCell = Left(x, pos3 - 1) & Mid(x, pos2)
End Sub

A+

 

[Usine à gaz]

Bsr Gérard,

Merci pour ce nouveau code 🙂
Génial nickel Merci beaucoup,
lionel 🙂