IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Annuler InputBox vide ma cellule [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Mars 2008
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 10
    Par défaut 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

  2. #2
    Membre Expert Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Mars 2008
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 10
    Par défaut
    Merci... Je n'y avais pas pensé ! Maintenant ça fonctionne...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] cellule vide vs cellule à 0
    Par issoram dans le forum Conception
    Réponses: 12
    Dernier message: 07/03/2023, 15h46
  2. Annuler InputBox en format date. Incompatibilité de type
    Par Mairequimby dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 18/12/2009, 15h01
  3. inputbox pour remplir cellule nommé
    Par bosk1000 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/07/2009, 09h12
  4. fusion de cellules vides avec cellule précédente pleine
    Par camzo dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 03/10/2007, 16h28
  5. [Tableaux] si cellule vide, alors cellule inexistante
    Par afrodje dans le forum Balisage (X)HTML et validation W3C
    Réponses: 6
    Dernier message: 31/07/2007, 13h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo