Excel, cliquer sur une cellule Fermé

Question

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!

Mike-31 · Answer

Salut,

Oui mais en VBA si tu as quelques notions

pépé35530 · Answer

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é

Romain · Answer

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...

Mike-31 · Answer

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

Romain · Answer

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!

Mike-31 · Answer

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.

Romain · Answer

C'est génial, un grand merci Mike!
A +

Mike-31 · Answer

Puis je mettre le statut de la discussion en résolu

Excel, cliquer sur une cellule

8 réponses

Discussions similaires