Clic sur une cellule= chiffre sur une autre

Résolu/Fermé

wervol Messages postés 651 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 1 juin 2020 - 15 janv. 2010 à 14:24
wervol Messages postés 651 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 1 juin 2020 - 18 janv. 2010 à 17:28

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

A voir également:

Clic sur une cellule= chiffre sur une autre
Aller à la ligne dans une cellule excel - Guide
Bloquer une cellule excel - Guide
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Double clic excel renvoi cellule ✓ - Forum Excel
Si cellule contient texte alors ✓ - Forum Excel

8 réponses

Réponse 1 / 8

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 573
16 janv. 2010 à 09:34

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.

Réponse 2 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 748
16 janv. 2010 à 09:54

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

Réponse 3 / 8

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 573
16 janv. 2010 à 10:23

ReBonjour,

Pas d'excuses..... Intrusion tout à fait oportune.

Bien cordialement.

Réponse 4 / 8

wervol Messages postés 651 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 1 juin 2020 133
16 janv. 2010 à 23:05

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 748
17 janv. 2010 à 10:11

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

Réponse 6 / 8

wervol Messages postés 651 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 1 juin 2020 133
17 janv. 2010 à 12:42

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

Réponse 7 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 748
18 janv. 2010 à 09:20

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

Réponse 8 / 8

wervol Messages postés 651 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 1 juin 2020 133
18 janv. 2010 à 17:28

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

Discussions similaires

Clic molette qui ne marche pas

Excel : colorer une cellule sous condition d'une autre ?

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Remplir une cellule (texte) en fonction d'une autre (texte).

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters