Excel, cliquer sur une cellule

Bonjour à tous,
Concernant Excel, je souhaite pouvoir cliquer sur une cellule et faire apparaitre un chiffre (par exemple "1"), mais je ne sais pas si cela est possible...
Je ne veux pas utiliser de menu déroulant, simplement cliquer sur la cellule A2 par exemple et voir apparaitre 1, B2 et voir apparaitre 2, C2: 3, D2: 4, etc.
Cela est-il possible sur Excel?
Merci d'avance pour votre aide!

8 réponses

  1. Salut,

    Oui mais en VBA si tu as quelques notions
    0
    1. Bonjour,

      Tu as la commande "insérer un commentaire" qui permet d'afficher une info-bulle lorsque l'on passe la souris sur la cellule....

      A+

      pépé
      0
      1. Re-bonjour,
        Merci de vos réponses mais je n'ai pas de notions en VBA justement...
        Et pour le commentaire, cela ne me servirait pas car je veux effectuer une somme de ces chiffres ensuite.
        Donc pour résumer: je veux cliquer sur des cellules et qu'apparaisse un chiffre dans chacun d'elles...
        0
        1. Re,

          Pour traiter par exemple la plage A2 à J2, clic droit sur l'onglet de feuille concerné/Visualiser le code et colle le code ci-dessous.
          Reviens sur ta feuille de calcul lorsque tu cliqueras s cellule de A2 à J2 le numéro de colonne s'affichera en A2 tu auras 1 en B2 tu auras 2 etc

          Private Sub Worksheet_SelectionChange(ByVal Target As Range)
          Dim C As Long
          Dim plg As Range
          Set plg = Range("A2:J2")
          If Not Application.Intersect(Target, plg) Is Nothing Then
          C = ActiveCell.Column
          Target = C
          End If
          End Sub
          0
          1. OK c'est génial Mike!
            Une dernière petite chose:
            Je veux effectuer cela des cellules H2 à K2, c'est à dire commencer à 1 en H2 pour finir à 4 en K2.
            Crois-tu que cela est possible?
            Merci beaucoup!
            0
            1. Re,

              Avec Excel, presque tout est possible, remplace l'ancien code par celui ci

              Private Sub Worksheet_SelectionChange(ByVal Target As Range)
              Dim C As Long
              Dim plg As Range
              Set plg = Range("H2:K2")
              If Not Application.Intersect(Target, plg) Is Nothing Then
              C = ActiveCell.Column - 7
              Target = C
              End If
              End Sub
              A+
              Mike-31

              Une période d'échec est un moment rêvé pour semer les graines du savoir.
              0
              1. C'est génial, un grand merci Mike!
                A +
                0
                1. Puis je mettre le statut de la discussion en résolu
                  0