Un clic je coche, un clic je décoche. Résolu/Fermé

Question

Bonjour tout le monde,

Avec le tableur Exell 2007.

Tout est dans le titre. 

Je me suis fais un petit relevé bancaire perso.

Je voudrais créer, en début de ligne juste avant la cellule de la date, une cellule  dans laquelle je puisse cocher une croix ( une coche) avec un clic de souris. Est ce possible ?  

Bien entendu en faisant un nouveau clic sur la même cellule je dois pouvoir "décocher" 

Merci beaucoup. 


A +

Configuration: Windows XP / Firefox 10.0.2

f894009 · Answer

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

Angelo1 · Answer

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

f894009 · Answer

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

Angelo1 · Answer

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

f894009 · Answer

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

Angelo1 · Answer

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.

Angelo1 · Answer

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

Angelo1 · Answer

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.

Angelo1 · Answer

Re f894009,

Eureka !!

J'ai compris :-) 

ça marche :-) 

Encore merci pour votre patience :-) 


A bientôt.

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

9 réponses

Discussions similaires