Comment changer la valeur d'une cellule en cliquant dessus ?

Est-il possible de modifier la valeur d'une cellule en cliquant dessus dans Excel ? Par exemple, lorsque vous cliquez sur une cellule spécifique A1 pour la première fois, elle affiche le texte « Excel », si vous cliquez à nouveau sur A1, le texte « Word » s'affiche, et un texte « Outlook » apparaît lorsque vous cliquez une troisième fois sur cette cellule. Dans ce cas, la valeur dans la cellule A1 alternera entre « Excel » à « Word » à « Outlook » à « Excel » … comme illustré dans la capture d'écran suivante :

Changer la valeur d'une cellule en cliquant dessus avec un code VBA

Changer la valeur d'une cellule en cliquant dessus avec un code VBA

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

1. Faites un clic droit sur l'onglet de la feuille où vous souhaitez changer la valeur de la cellule en cliquant dessus, puis choisissez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications ouverte, copiez et collez le code suivant dans le Module vide :

Code VBA : Changer la valeur d'une cellule en cliquant dessus :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
  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

Remarque : Dans le code ci-dessus, A1 est la cellule où vous souhaitez changer la valeur en cliquant dessus, « Excel », « Word », « Outlook » sont les valeurs de cellule que vous souhaitez afficher de manière récurrente, vous pouvez les modifier selon vos besoins.

2. Après avoir collé le code, enregistrez-le et fermez la fenêtre. Maintenant, lorsque vous cliquez sur la cellule A1 pour la première fois, le texte « Excel » s'affiche immédiatement, cliquez à nouveau dessus, le texte « Word » apparaît, et le texte « Outlook » est affiché si vous cliquez dessus une troisième fois, voir la capture d'écran :

Plus d'articles connexes :

Comment filtrer des données simplement en cliquant sur le contenu d'une cellule dans Excel ?

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