Excel, cliquer sur une cellule

Romain -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Oui mais en VBA si tu as quelques notions
    0
  2. pépé35530 Messages postés 2951 Date d'inscription   Statut Membre Dernière intervention   1 390
     
    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
  3. Romain
     
    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
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Romain
     
    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
  7. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  8. Romain
     
    C'est génial, un grand merci Mike!
    A +
    0
  9. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Puis je mettre le statut de la discussion en résolu
    0