Un clic je coche, un clic je décoche.
Résolu/Fermé
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
-
19 févr. 2012 à 08:28
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 19 févr. 2012 à 20:47
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 19 févr. 2012 à 20:47
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 souris ne fonctionne plus ✓ - Forum Windows
- Clic gauche souris ne fonctionne plus ✓ - Forum souris / Touchpad
- Option-clic pour définir un point source à utiliser pour réparer l'image. - Forum MacOS
9 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
19 févr. 2012 à 10:04
19 févr. 2012 à 10:04
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
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
Modifié par Angelo1 le 19/02/2012 à 10:47
Modifié par Angelo1 le 19/02/2012 à 10:47
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 :-)
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 19/02/2012 à 11:01
Modifié par f894009 le 19/02/2012 à 11:01
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
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
19 févr. 2012 à 11:12
19 févr. 2012 à 11:12
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 :-(
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 19/02/2012 à 11:37
Modifié par f894009 le 19/02/2012 à 11:37
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
19 févr. 2012 à 11:37
19 févr. 2012 à 11:37
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
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
19 févr. 2012 à 11:46
19 févr. 2012 à 11:46
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.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
19 févr. 2012 à 11:48
19 févr. 2012 à 11:48
Re,
Que ne comprenez vous pas???
Que ne comprenez vous pas???
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
19 févr. 2012 à 11:56
19 févr. 2012 à 11:56
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
19 févr. 2012 à 11:59
19 févr. 2012 à 11:59
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
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
19 févr. 2012 à 18:51
19 févr. 2012 à 18:51
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.
Angelo1
Messages postés
133
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
31 août 2023
23
19 févr. 2012 à 20:02
19 févr. 2012 à 20:02
Re f894009,
Eureka !!
J'ai compris :-)
ça marche :-)
Encore merci pour votre patience :-)
A bientôt.
Eureka !!
J'ai compris :-)
ça marche :-)
Encore merci pour votre patience :-)
A bientôt.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
19 févr. 2012 à 20:47
19 févr. 2012 à 20:47
Re,
Tout vient a point a qui sait attendre voir perseverer.
Tout vient a point a qui sait attendre voir perseverer.
