Excel, cliquer sur une cellule
Romain
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 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!
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!
A voir également:
- Cliquer sur une cellule pour aller sur une autre cellule
- Aller à la ligne dans une cellule excel - Guide
- Comment bloquer une cellule sur excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
8 réponses
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é
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é
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...
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...
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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!
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!
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.
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.
