Un clic je coche, un clic je décoche.

Bonjour,
Quelque chose de simple avec CLICK DROIT SOURIS.

Onglet Feuille que vous avez choisie

Ici cellule A1 a A... case a cocher. Police Windings2
cellule B1 a B.... date.

Ouvrir VBA par Alt+F11
Ouvrir la feuille qui vous interesse par double click

Copiez le code ci-dessous.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'dernière ligne de la colonne B
D_L_B = Range("B" & Rows.Count).End(xlUp).Row
If Application.Intersect(Target, Range("A1:A" & D_L_B)) Is Nothing Then
ElseIf ActiveCell.Value = "R" Then
ActiveCell.Value = "£"
ElseIf ActiveCell.Value = "" Or ActiveCell.Value = "£" Then
ActiveCell.Value = "R"
End If
End Sub

Vous pouvez changer les caracteres pour marquer votre case a cocher.

Bonne suite

Bonjour f894009 :-),

Merci d'avoir répondu.

Heu....Je suis désolé mais je sais pas si j'ai tout compris.

Pourriez vous me faire la même chose mais en plus simple, une espèce de "pas à pas " ? je ne maitrise pas trop Excell :-(

Voilà à peu près à quoi ressemble mon relevé:

- A1 à A 31 = Mes cellule à cocher ou décocher. ce sont celles là qui m'intéresse.

- B1 à B31 les dates
- C1 à C31 Les paiements
- D1 à D31 Les libellés etc... etc ...

Merci :-)

Re,
Pas de soucis. Ci-dessous vous pouvez recuperer un fichier ou vous copierez vos donnees en B2 pour les dates, C2 pour les Paiements et ainsi de suite. La colonne A est reservee aux cases a cocher (CLICK DROIT SOURIS).

https://www.cjoint.com/?BBtlaMJdEBb

Bonne suite

Re....f894009

Aï aï c'est encore moi ...Désolé. Le lien renvoie sur une page de code ASCII :-(

Re,

Ci-dessous un nouveau lien:
https://www.cjoint.com/?BBtlIJEtvha

Pour decompresse le fichier apres recuperation: click droit souris et Extraire ICI.

Bonne suite

Re f894009

Ne le prenez pas mal vous n'êtes pas en cause, mais je vais laisser tomber car je n'y comprend rien.

Merci quand même.

A bientôt.

Re :-)

Ne parlons des cellules B, C ou D.

Je voudrais que dans toutes les cellules A1, A2, A3 jusqu'à A 31 par exemple pouvoir avec un clic droit, "une croix", "une coche", appelons cela comme on veut, apparaisse dans la cellule A1, ou A2 etc etc

Voilà.

Merci encore pour votre patience

Salut f894009,

Ok c'est bon votre exemple ( le 2ème fichier ) fonctionne bien. Je coche et je décoche avec le clic droit de la souris, c'est super.

Toutefois.... :-(

1 - C'est votre exemple qui fonctionne :-)

2 - Je ne sais toujours pas comment vous avez fait :-(

En effet je ne vois pas de formule sous le "r" ou le "£" :-(

3- Comment le transposer sur ma feuille à moi qui est déjà toute remplis de mes données ?

J'espère ne pas avoir abusé de votre patience, et si c'est le cas dites le moi, et on arrête.

Merci en tout cas.

Re f894009,

Eureka !!

J'ai compris :-)

ça marche :-)

Encore merci pour votre patience :-)

A bientôt.