Excel, cliquer sur une cellule
Fermé
Romain
-
23 juin 2010 à 10:47
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 24 juin 2010 à 13:58
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 24 juin 2010 à 13:58
A voir également:
- Excel cliquer sur une cellule pour aller sur une autre
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Calculer une moyenne sur excel - Guide
- Verrouiller cellule excel - Guide
- Déplacer une colonne excel - Guide
8 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
23 juin 2010 à 10:49
23 juin 2010 à 10:49
Salut,
Oui mais en VBA si tu as quelques notions
Oui mais en VBA si tu as quelques notions
pépé35530
Messages postés
2942
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 382
23 juin 2010 à 11:07
23 juin 2010 à 11:07
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...
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
23 juin 2010 à 17:33
23 juin 2010 à 17:33
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!
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 23/06/2010 à 21:44
Modifié par Mike-31 le 23/06/2010 à 21:44
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.
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
24 juin 2010 à 13:58
24 juin 2010 à 13:58
Puis je mettre le statut de la discussion en résolu
