Clic cellule

[OUDJAT]

Bonjour à tous

Voici mon probleme

je souhaite qu'en cliquant sur A1. A3 s'acremmente de 1 en 1
et qu'en cliquant sur A2. A3 dimininue de 1 en 1 .


J'espere etre clair. je suis impatient de cette solution


Merci d'avance

Oudjat

 

[Ti]

place cette procédure dans le code de ta feuille et ça marchera :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ti
With Target
If .Count > 1 Then Exit Sub
Select Case .Address
Case "$A$1"
[A3] = [A3] + 1
Case "$A$2"
[A3] = [A3] - 1
Case Else
Exit Sub
End Select
[A3].Select
End With
End Sub

 

[OUDJAT]

je te remercie j'essaie de suite


OUDJAT

 

[OUDJAT]

ca ne marche pas du tout

je l'ai modifié en consequence mais je pense ne pas mettre tromper.

voici ma modif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ti
With Target
If .Count > 1 Then Exit Sub
Select Case .Address
Case "$b$8"
[d8] = [d8] + 1
Case "$c$8"
[d8] = [d8] - 1
Case Else
Exit Sub
End Select
[d8].Select
End With
End Sub

je l'ai mis en Feuil1 (Feuil1)

merci de venir a mon secour

oudjat

 

[OUDJAT]

ok ca fonctionne (erreur de frappe)

par contre je doit repercuter cela sur un nombre de ligne en dessus comment faire?

exemple
B8 donne D8=D8+1 et C8 donne D8=D8-1
B9 donne D9=D9+1 et C9 donne D9=D9-1
B10 donne D10=D10+1 et C10 donne D10=D10-1
B11 .....................ainsi de suite environ 115 ligne

merci de ton savoir

Oudjat

 

[Ti]

Vous aimez quelquefois les complications ! Pourquoi ne nous as-tu pas dit dès le départ que cette macro devait fonctionner sur plus de 100 lignes ? Telle qu'elle est écrite, cette macro sera extrêmement lourde à gérer, je ne te conseille pas de l'utiliser sur plus de quelques cellules. Donc il faudra une nouvelle macro pour répondre à ton NOUVEAU besoin. Mais là, désolé, tu devras attendre un peu.

 

[OUDJAT]

je te remercie de ta reponse en ce qui concerne la complication ca viens du faite que je pensais qu'en connaissant la reponse pour une cellule il suffisait de copier et de changer les noms de celulle (j'ai essayer et ca marche pas donc je retourne vers toi pour cette meconnaissance de ma part)

encore merci Ti je patiente pour cette reponse.


encore merci oudjat

 

[sylsyl]

Salut Ti, salut oudjat,

en attendant une reponse surement plus pertinente de Ti tu peux essayer ca...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
For i = 1 To 10 'ligne de 1 a 10
If .Address = "$A$" & i Then
Cells(i, 3) = Cells(i, 3) + 1
Cells(i, 3).Select
End If

If .Address = "$B$" & i Then
Cells(i, 3) = Cells(i, 3) - 1
Cells(i, 3).Select
End If
Next i
End With
End Sub

Ne clique pas trop vite ou tu te retrouveras "dans" la cellule du resultat. C'est bien sur a adapter a tes cellules.

A++, Sylsyl.

 

[Ti]

voilà la macro modifiée.
Au fait, je précise que je sélectionne la cellule qui change de façon à pouvoir cliquer plusieurs fois dans la même cellule tout en déclenchant l'événement SelectionChange

 

[sylsyl]

Salut Ti,

par curiosite, il y a t-il un moyen d'eviter les double-clicks. Car si oudjat veut incrementer de 2 (ou plus), il est oblige d'attendre la fin du delai d'un double-click (=temps entre les 2 click du double-click).

Merci.

 

[sylsyl]

oups !
je precise que cette question est relative a ton premier code, je ne peux pas lire ton FJ zippe.

 

[Ti]

? non, il n'est nullement question d'un double clic, la cellule cible est incrémentée sur simple sélection de la cellule + ou - avec un simple clic donc.

 

[sylsyl]

Oui !
j'avais compris puisque c'est ce que j'ai reutilise.

Ma question est: en voulant aller trop vite pour incrementer de 2 (ou plus), on a tendance a cliquer 2 fois rapidement et avec mon code on atterrit dans la barre de formule de la cellule resultat (meme avec un double-click sur A1). Peux-t-on eviter ca ? (peut etre en ajoutant un Wait ?)

C'etait juste par curiosite... ...tant pis.

Un autre truc rigolo:
A cause de ca ,seulement un clic sur 2 est pris en compte quand les clics sont trop rapides.
Sauf quand la cellule resultat est negative (donc avec un mois) alors la un double clic nous donne "=A1-5".

A++, Sylsyl.