Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment changer la valeur de la cellule en cliquant sur la cellule?

Est-il possible pour nous de changer la valeur de la cellule en cliquant sur une cellule dans Excel? Par exemple, lorsque vous cliquez sur une cellule spécifique A1, la première fois, elle affiche un texte "Excel", si vous cliquez à nouveau sur A1, un texte "Word" s'affiche et un texte "Outlook" s'affiche lorsque vous cliquez sur cellule dans la troisième fois. Dans ce cas, la valeur dans la cellule A1 sera récurrente de "Excel" à "Word" à "Outlook" à "Excel" ...... comme sur la capture d'écran suivante:

doc changer la valeur en cliquant sur 1

Changer la valeur de la cellule en cliquant sur une cellule avec le code VBA


flèche bleue droite bulle Changer la valeur de la cellule en cliquant sur une cellule avec le code VBA


Pour terminer cette tâche dans Excel, le code VBA suivant peut vous aider, procédez comme suit:

1. Cliquez avec le bouton droit sur l'onglet de la feuille que vous souhaitez modifier la valeur de la cellule en cliquant sur, puis choisissez Voir le code à partir du menu contextuel, et dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans le module vide:

Code VBA: changez la valeur de la cellule en cliquant sur une cellule:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161123
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

doc changer la valeur en cliquant sur 2

Note: Dans le code ci-dessus, A1 est la cellule où vous voulez changer la valeur en cliquant sur ",Excel","Word","Outlook"Sont les valeurs de cellules que vous voulez afficher de façon récurrente, vous pouvez les changer à votre besoin.

2. Après avoir collé le code, enregistrez le code et fermez la fenêtre. Maintenant, quand vous cliquez sur la cellule A1 à la première fois, le texte "Excel" est affiché immédiatement, cliquez à nouveau, le texte "Word" est apparu, le texte "Outlook" est affiché si vous cliquez dessus à la troisième fois, voir capture d'écran:

doc changer la valeur en cliquant sur 1


Plus d'articles connexes:

Comment filtrer les données en cliquant simplement sur le contenu des cellules dans Excel?

Comment trier les données de colonne en cliquant sur l'en-tête dans Excel?



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Zack · 1 years ago
    I am trying to apply this to an entire column of individual cells, not just one cell. Is this possible? When I change the range from "A1" to "A1:A100" nothing happens when I click the cells in that range.