Clic sur une cellule= chiffre sur une autre
Résolu
wervol
Messages postés
651
Date d'inscription
Statut
Membre
Dernière intervention
-
wervol Messages postés 651 Date d'inscription Statut Membre Dernière intervention -
wervol Messages postés 651 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je ne sais pas si c'est possible sur excell quand je cliques sur une cellule un chiffre apparait sur une autre cellule
par exemple je cliques sur la cellule A1 le chiffre 1 apparait sur la cellule B1 si je reclique sur la cellule A1 une 2eme fois le chiffre 2 apparait sur la cellule B2
merci pour votre aide éventuelle
cordialement
je ne sais pas si c'est possible sur excell quand je cliques sur une cellule un chiffre apparait sur une autre cellule
par exemple je cliques sur la cellule A1 le chiffre 1 apparait sur la cellule B1 si je reclique sur la cellule A1 une 2eme fois le chiffre 2 apparait sur la cellule B2
merci pour votre aide éventuelle
cordialement
A voir également:
- Clic sur une cellule= chiffre sur une autre
- Excel trier par ordre croissant chiffre - Guide
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment bloquer une cellule sur excel - Guide
- Aller à la ligne dans une cellule excel - Guide
8 réponses
Bonjour,
Tu copies le code VBA ci-dessous dans le module de ta feuille accessible par Alt+F11
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
i = Target.Row
Cells(i + 1, 1).Value = Cells(i + 1, 1).Value + 1
End If
End Sub
pour A1 comme cellule à cliquer et A2 comme cellule de résultat.
Bonne journée.
Tu copies le code VBA ci-dessous dans le module de ta feuille accessible par Alt+F11
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
i = Target.Row
Cells(i + 1, 1).Value = Cells(i + 1, 1).Value + 1
End If
End Sub
pour A1 comme cellule à cliquer et A2 comme cellule de résultat.
Bonne journée.
Bonjour,
Excusez l'intrusion... Wervol souhaite que la cellule "destination" change à chaque clic : B1 = 1 B2 = 2 etc.
Pour cela, en reprenant le code de g :
Excusez l'intrusion... Wervol souhaite que la cellule "destination" change à chaque clic : B1 = 1 B2 = 2 etc.
Pour cela, en reprenant le code de g :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If [B1] = "" Then
[B1] = 1
Else
Range("B65536").End(xlUp).Offset(1, 0).Value = Range("B65536").End(xlUp).Value + 1
End If
End If
End Sub
bonsoie
merci pour vos réponse c'est que je recherchais mais pas que sa changes a chaque fois
merci quand même pour votre disponibilité
cordialement
merci pour vos réponse c'est que je recherchais mais pas que sa changes a chaque fois
merci quand même pour votre disponibilité
cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
SAlut,
Si tu veux que la procédure s'arrête après 2 fois (c a d quand B2 = 2) tu peux faire ceci :
Cordialement, et ..... Bonne Année, mes meilleurs voeux pour 2010!!!
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
Si tu veux que la procédure s'arrête après 2 fois (c a d quand B2 = 2) tu peux faire ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If [B2] = 2 then exit sub If [B1] = "" Then [B1] = 1 Else [B2] = 2 End If End If End Sub--
Cordialement, et ..... Bonne Année, mes meilleurs voeux pour 2010!!!
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
Bonjour
Meilleurs voeux égalemement pour 2010
Pour le code j'ai un petit souci dans la cellule ou on dois cliquer la procedure s'applique egalement quand je deplace avec les fleches directionnelle la cellule s'incrémente aussi de 1 un peu embetant quand je dois déplacer vers d'autres cellule
bon dimanche a vous
Meilleurs voeux égalemement pour 2010
Pour le code j'ai un petit souci dans la cellule ou on dois cliquer la procedure s'applique egalement quand je deplace avec les fleches directionnelle la cellule s'incrémente aussi de 1 un peu embetant quand je dois déplacer vers d'autres cellule
bon dimanche a vous
Bonjour,
Il existe d'autres "évènements" permettant d'exécuter automatiquement une procédure. Là nous avions choisit :
par :
Dans ce cas, la procédure se lancera en double cliquant sur A1...
Il existe d'autres "évènements" permettant d'exécuter automatiquement une procédure. Là nous avions choisit :
Worksheet_SelectionChangec'est à dire lorsque l'on sélectionne une autre cellule dans la feuille excel. Il n'y a pas d'"évènement" au clic dans une cellule néanmoins il y en a qui lance la procédure "avant le double clic"... Il suffit pour vous de remplacer :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
par :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dans ce cas, la procédure se lancera en double cliquant sur A1...