Annuler InputBox vide ma cellule

Bonjour à tous,

J'ai une feuille dont toutes les cellules sont verrouillées (avec sélection possible) sur laquelle j'autorise l'utilisateur à faire des modifications sur quelques cellules ! Pour ce faire, plutôt que de laisser les cellules déverrouillées en permanence, il est plus prudent pour moi d'utiliser une InputBox liée à l'évènement Double Click ! Jusque là pas de problème tout fonctionne ! On entre la nouvelle valeur dans l'InputBox qui remplace l'ancienne valeur dans la cellule ! Impeccable ! Toutefois, mon soucis c'est quand je clique sur le bouton annuler sur l'InputBox... ça me vide la cellule alors que je voudrais que ça conserve le contenu initial ! Quelqu'un a une idée

Merci par avance,

Benoit

Bonjour,
une idée comme une autre serait de mettre dans une variable le contenu de la cellule avant l'appel de l'inputbox et après l'inputbox faire un test pour voir si la cellule est vide. Si c'est le cas je donne à la cellule la valeur de la variable.
Voici un exemple simple avec un clic sur la cellule D4 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim vval As String If Target.Address = [D4].Address Then 'sauvegarde la valeur de la cellule dans une variable vval = Target.Value   'j'efface le contenu de ma cellule Target.Value = ""   'j'appelle mon inputbox Target.Value = InputBox("saisir votre texte:")   'je vérifie si ma cellule est vide si c'est le cas je lui donne 'la valeur de ma variable If Target.Value = "" Then Target.Value = vval End If End Sub

---

Ce n'est pas parfait mais ça fonctionne. Adapte le à ton cas.

Merci... Je n'y avais pas pensé ! Maintenant ça fonctionne...