[XL-2010] Annuler InputBox vide ma cellule [Résolu]

[ketum88]

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

[rvtoulon]

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.

[ketum88]

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