Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel état cellule

état cellule

7 réponses
Avatar
Christophe
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK (case
initialement mise en Ok)

tout cela sans vba.



Merci.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dav
Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne "Visualiser le
code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le tour
est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK (case
initialement mise en Ok)

tout cela sans vba.



Merci.




Avatar
Christophe
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok redevient
ok ?



"Dav" a écrit dans le message de
news:
Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne "Visualiser
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK (case
initialement mise en Ok)

tout cela sans vba.



Merci.






Avatar
JB
Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "OK", "POK", "OK")
Cancel = True
End Sub

JB

On 5 avr, 20:15, "Christophe" wrote:
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok redevie nt
ok ?

"Dav" a écrit dans le message denews:OUIMEV0lIHA.4684@ TK2MSFTNGP06.phx.gbl...



Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne "Visualis er
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
   If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la cellu le.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK ( case
initialement mise en Ok)

tout cela sans vba.

Merci.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
Christophe
Super !!

Pour le moment ,j'utilise une check box (avec la barre outils formulaires)
qui me permet d'avoir un affichage du type :

O Ok (O est représenté par une case normalement), dès que je clique
dessus, la case devient cochée.
Jusque là pas de problème.

Le souci est que j'ai plus de 40 lignes avec le même système et 52 colonnes
Cela fait pas ma de check box a créé.
Le copier coller marche bien mais le problème est que la cellule ou est
affecté le résultat true ou false n'est pas mis à jour

Peux tu me proposer une solution ?

Merci pour l'aide.



"JB" a écrit dans le message de
news:
Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "OK", "POK", "OK")
Cancel = True
End Sub

JB

On 5 avr, 20:15, "Christophe" wrote:
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok
redevient
ok ?

"Dav" a écrit dans le message
denews:



Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne "Visualiser
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la
cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK
(case
initialement mise en Ok)

tout cela sans vba.

Merci.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
Dav
Re. Bonsoir

Et pourquoi ne pas utiliser Données - Validation et ensuite Autoriser Liste.
Dans la source tu écris : Ok; POk.
Si tu utilises Excel 2003 ou supérieur tu sélectionne une cellule de ta
liste et tu cliques en même temps sur Ctrl + Maj + L
Tu définis donc ta liste qui prendra une bordure bleue (dans 2003)
A chaque fois que tu créeras une nouvelle entrée les fonctionnalités des
lignes précédentes se répéterons.

Bonne chance
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Super !!

Pour le moment ,j'utilise une check box (avec la barre outils formulaires)
qui me permet d'avoir un affichage du type :

O Ok (O est représenté par une case normalement), dès que je clique
dessus, la case devient cochée.
Jusque là pas de problème.

Le souci est que j'ai plus de 40 lignes avec le même système et 52
colonnes
Cela fait pas ma de check box a créé.
Le copier coller marche bien mais le problème est que la cellule ou est
affecté le résultat true ou false n'est pas mis à jour

Peux tu me proposer une solution ?

Merci pour l'aide.



"JB" a écrit dans le message de
news:
Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "OK", "POK", "OK")
Cancel = True
End Sub

JB

On 5 avr, 20:15, "Christophe" wrote:
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok
redevient
ok ?

"Dav" a écrit dans le message
denews:



Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne
"Visualiser
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la
cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe
de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK
(case
initialement mise en Ok)

tout cela sans vba.

Merci.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -







Avatar
Christophe
J'ai trouvé une astuce
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "x", "o", "x")
Cancel = True
End Sub

Wingdings est utilisé dans les colonnes ou se trouve x et o

Par contre, est-ce que je peux avoir le même système mais avec un seul click
de souris à la place du double ??

Merci.


"Dav" a écrit dans le message de
news:%
Re. Bonsoir

Et pourquoi ne pas utiliser Données - Validation et ensuite Autoriser
Liste.
Dans la source tu écris : Ok; POk.
Si tu utilises Excel 2003 ou supérieur tu sélectionne une cellule de ta
liste et tu cliques en même temps sur Ctrl + Maj + L
Tu définis donc ta liste qui prendra une bordure bleue (dans 2003)
A chaque fois que tu créeras une nouvelle entrée les fonctionnalités des
lignes précédentes se répéterons.

Bonne chance
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Super !!

Pour le moment ,j'utilise une check box (avec la barre outils
formulaires)
qui me permet d'avoir un affichage du type :

O Ok (O est représenté par une case normalement), dès que je clique
dessus, la case devient cochée.
Jusque là pas de problème.

Le souci est que j'ai plus de 40 lignes avec le même système et 52
colonnes
Cela fait pas ma de check box a créé.
Le copier coller marche bien mais le problème est que la cellule ou est
affecté le résultat true ou false n'est pas mis à jour

Peux tu me proposer une solution ?

Merci pour l'aide.



"JB" a écrit dans le message de
news:
Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "OK", "POK", "OK")
Cancel = True
End Sub

JB

On 5 avr, 20:15, "Christophe" wrote:
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok
redevient
ok ?

"Dav" a écrit dans le message
denews:



Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne
"Visualiser
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille et le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapté pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la
cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de groupe
de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à POK
(case
initialement mise en Ok)

tout cela sans vba.

Merci.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
JB
Bonjour,

Sélection de la cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Value = IIf(Target = "x", "o", "x")
Cancel = True
End Sub

JB

On 5 avr, 21:29, "Christophe" wrote:
J'ai trouvé une astuce =

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Target.Value = IIf(Target = "x", "o", "x")
Cancel = True
End Sub

Wingdings est utilisé dans les colonnes  ou se trouve x et o

Par contre, est-ce que je peux avoir le même système mais avec un seul click
de souris à la place du double ??

Merci.

"Dav" a écrit dans le message denews:%23PTlNK1lIHA.508



Re. Bonsoir

Et pourquoi ne pas utiliser Données - Validation et ensuite Autoriser
Liste.
Dans la source tu écris : Ok; POk.
Si tu utilises Excel 2003 ou supérieur tu sélectionne une cellule de ta
liste et tu cliques en même temps sur Ctrl + Maj + L
Tu définis donc ta liste qui prendra une bordure bleue (dans 2003)
A chaque fois que tu créeras une nouvelle entrée les fonctionnalit és des
lignes précédentes se répéterons.

Bonne chance
Dav

"Christophe" a écrit dans le message de groupe de
discussion :
Super !!

Pour le moment ,j'utilise une check box (avec la barre outils
formulaires)
qui me permet d'avoir un affichage du type  :

O Ok   (O est représenté par une case normalement), dès que je clique
dessus, la case devient cochée.
Jusque là pas de problème.

Le souci est que j'ai plus de 40 lignes avec le même système et 52
colonnes
Cela fait pas ma de check box a créé.
Le copier coller marche bien mais le problème est que la cellule ou e st
affecté le résultat true ou false n'est pas mis à jour

Peux tu me proposer une solution ?

Merci pour l'aide.

"JB" a écrit dans le message de
news: .
Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
   Target.Value = IIf(Target = "OK", "POK", "OK")
Cancel = True
End Sub

JB

On 5 avr, 20:15, "Christophe" wrote:
MErci.

Mais comment faire pour que si on double cliques de nouveau le pok
redevient
ok ?

"Dav" a écrit dans le message
denews:

Bonjour/soir Christophe

Sans macro je crois pas que cela soit possible.

Avec une macro :
Fais un clic droit sur l'onglet de ta feuille et sélectionne
"Visualiser
le code" et fais un copier/coller du code suivant dans la feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cance l
As
Boolean)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If UCase(Target.Value) = "OK" Then Target.Value = "POK"
Cancel = True
End Sub

Change Range("A1:A10") par les cellules concernées de ta feuille e t le
tour est joué.
Il faut aussi que le niveau de sécurité de ta feuille soit adapt é pour
accepter les macros (menu outils - macros - sécurité)

Le code réagit au double clic et ne permet pas de renter dans la
cellule.

Bon week-end
Dav

"Christophe" a écrit dans le message de gro upe
de
discussion :
Bonsoir,

J'ai une check list à remplir chaque semaine de chaque mois.

Choix! Ok ou POK

comment faire pour qu'en cliquant sur une case, le coix passe à P OK
(case
initialement mise en Ok)

tout cela sans vba.

Merci.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -




- Afficher le texte des messages précédents -