XL 2019 Action lors de la sélection d'une cellule ds une colonne

Hutchy33 · 7 Février 2022

Hello le forum,
J'ai besoin de vos lumières! Dans le fichier joint, je souhaiterai que lorsque l'utilisateur sélectionne une cellule de la colonne F (date de fin attendue), une inputbox apparaisse pour demander à l'utilisateur le nombre de jours pour l'alerte qui déclenchera plus tard une alerte visuelle (couleur) à l'utilisateur lorsque la date du jour se trouve dans la plage du critère.
Pour le moment je ne parviens même pas à faire afficher l'inputbox!
Mon code actuel ne fonctionne pas et je ne vois pas pourquoi, mais de plus le débogage pas à pas (F8) ne fonctionne pas non plus, Excel me renvoi une alerte sonore sans m'en dire plus (Je précise que F8 fonctionne bien sur d'autres macros).
Si quelqu'un a quelques minutes à m'accorder svp.
Merci d'avance.

sousou · 7 Février 2022

bonjour.

inputbox renvoi une variable texte alors dim as integer?
En tous cas pour le moment supprime Application.EnableEvents = false
en cas d'erreur ta macro de démarre plus.
Commence comme ceci pour l'inputbox

Option Explicit
Dim finattendue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
finattendue = "x"

If Target.Column = 6 Then
While IsNumeric(finattendue) = False And finattendue <> ""
finattendue = InputBox("Entrez le nombre de jours pour l'alerte:", "Critère d'alerte")
Wend
End If

End Sub
ATTENTION ton fichier me renvoi une erreur à l'ouverture, j'ai du faire une récuperation!

patty58 · 7 Février 2022

Bonjour Hutchy

Je ne crois pas qu'il existe un évènement pour cela , mais sur click droit ou double click seulement.

Bon courage

sousou · 7 Février 2022

bonjour.

inputbox renvoi une variable texte alors dim as integer?
En tous cas pour le moment supprime Application.EnableEvents = false
en cas d'erreur ta macro de démarre plus.
Commence comme ceci pour l'inputbox

Option Explicit
Dim finattendue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
finattendue = "x"

If Target.Column = 6 Then
While IsNumeric(finattendue) = False And finattendue <> ""
finattendue = InputBox("Entrez le nombre de jours pour l'alerte:", "Critère d'alerte")
Wend
End If

End Sub
ATTENTION ton fichier me renvoi une erreur à l'ouverture, j'ai du faire une récuperation!

Hutchy33 · 7 Février 2022

merci sousou,
effectivement il y avait un souci sur le fichier je sais pas pourquoi exactement mais quand je l'ai réouvert j'ai eu moi aussi l'avertissement!
chez moi ta boucle while ne fonctionne pas mais merci quand même.

XL 2019 Action lors de la sélection d'une cellule ds une colonne

Hutchy33

XLDnaute Nouveau

Pièces jointes

sousou

patty58

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

Hutchy33

XLDnaute Nouveau

Discussions similaires