clic sur une cellule= chiffre sur une autre Résolu/Fermé

Question

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

g · Answer

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.

pijaku · Answer

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

g · Answer

ReBonjour,

Pas d'excuses..... Intrusion tout à fait oportune.

Bien cordialement.

wervol · Answer

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

pijaku · Answer

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 :
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? --

wervol · Answer

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

pijaku · Answer

Bonjour,
Il existe d'autres "évènements" permettant d'exécuter automatiquement une procédure. Là nous avions choisit : Worksheet_SelectionChange c'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...

wervol · Answer

BONJOUR
merci pour ton aide pijaku c'est mieux avec la dernière procédure avec le double clique pour moi c'est parfait comme cela merci beaucoup
bonne soirée

Clic sur une cellule= chiffre sur une autre

8 réponses

Discussions similaires