Microsoft 365 Affichage d'un InputBox après avoir saisit une valeur

[pat66]

Bonjour le Forum,

J'ai besoin d'un coup de main car j'aimerai bien pouvoir :
1 - afficher un InputBox après avoir saisit une valeur exemple "A104" dans E25 avec la valeur 0
2 - saisir une valeur dans InputBox, par exemple "3" pour remplacer le 0
3- cette valeur s'écrit dans E35 et l'InputBox se referme

merci beaucoup pour vos lumières

 

[vgendron]

bonjour
et avec un fichier, ca ne serait pas plus pratique??

pour afficher un Inputbox et mettre la saisie dan E35
range("E35")=application.inputbox("Saisissez une valeur")

 

[pat66]

RE,

voici le fichier

merci

 

[vgendron]

à mettre dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E25")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Range("E35") = Application.InputBox("Saisissez une valeur")
    Application.EnableEvents = True
End Sub

 

[pat66]

re,

merci beaucoup, c'est exactement ce dont j'avais besoin

Cdt