Un clic je coche, un clic je décoche.
Résolu
Angelo1
Messages postés
133
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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 +
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 +
A voir également:
- Un clic je coche, un clic je décoche.
- Atout clic - Télécharger - Éducatifs
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Clic gauche souris ne fonctionne plus - Forum souris / Touchpad
- Clic droit sans souris - Forum Windows 10
- Clic molette ne fonctionne plus ✓ - Forum Matériel & Système
9 réponses
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
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 :-)
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
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 :-(
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
Ci-dessous un nouveau lien:
https://www.cjoint.com/?BBtlIJEtvha
Pour decompresse le fichier apres recuperation: click droit souris et Extraire ICI.
Bonne suite
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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.
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
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
Re,
En cliquant sur le texte en bleu ci-dessous vous allez recuperez un exemple de ce que vous voulez
https://www.cjoint.com/?BBtlIJEtvha
A bientot
En cliquant sur le texte en bleu ci-dessous vous allez recuperez un exemple de ce que vous voulez
https://www.cjoint.com/?BBtlIJEtvha
A bientot
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.
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.
