Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel SOS... date

SOS... date

25 réponses
Avatar
charly P
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok" dans une autre
cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
charly P
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand il y
a justement un de ces "ok" je souhaite la date d'inscription du"OK" dans
colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il n'y a
que "OK" ou rien, ou quand il y a une date en colonne L, il y a
forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi ?
Daniel
"charly P" a écrit dans le
message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date reste
quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur JB
(c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK" ou
"Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors remplace
UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit dans le
message de news: 45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué :
je souhaite que dans les cellules de la colonne L par exemple L3 ou
L4 soit inscrit la date à laquelle a été inscrit "OK" dans les
cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de news:

Clic droit sur le nom de l'onglet; clic sur "Visualiser le code";
colle le code que je t'ai fourni dans la fenêtre qui vient de
s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit dans
le message de news: 45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de macro
et j'ai toujours procédé par formules comme je le disai sur mon
message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de news:

Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été saisi
en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit dans
le message de news: 45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok" dans
une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP







































Avatar
charly P
et maintenant dans la meme feuille je souhaiterai que dans une cellule B3 de
la colonne B il y ai aussi la date si du texte figure dans une cellule A3 de
la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand il y
a justement un de ces "ok" je souhaite la date d'inscription du"OK" dans
colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il n'y a
que "OK" ou rien, ou quand il y a une date en colonne L, il y a
forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi ?
Daniel
"charly P" a écrit dans le
message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date
reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur JB
(c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK" ou
"Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit dans le
message de news: 45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué :
je souhaite que dans les cellules de la colonne L par exemple L3 ou
L4 soit inscrit la date à laquelle a été inscrit "OK" dans les
cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de news:

Clic droit sur le nom de l'onglet; clic sur "Visualiser le code";
colle le code que je t'ai fourni dans la fenêtre qui vient de
s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit dans
le message de news: 45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de macro
et j'ai toujours procédé par formules comme je le disai sur mon
message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de news:

Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été saisi
en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit
dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok" dans
une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP











































Avatar
Daniel
Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une cellule B3
de la colonne B il y ai aussi la date si du texte figure dans une cellule
A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand il
y a justement un de ces "ok" je souhaite la date d'inscription du"OK"
dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il n'y
a que "OK" ou rien, ou quand il y a une date en colonne L, il y a
forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi ?
Daniel
"charly P" a écrit dans le
message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date
reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur JB
(c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK" ou
"Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit dans
le message de news: 45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué :
je souhaite que dans les cellules de la colonne L par exemple L3 ou
L4 soit inscrit la date à laquelle a été inscrit "OK" dans les
cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de news:

Clic droit sur le nom de l'onglet; clic sur "Visualiser le code";
colle le code que je t'ai fourni dans la fenêtre qui vient de
s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit dans
le message de news: 45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le disai sur
mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été saisi
en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit
dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok"
dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP















































Avatar
charly P
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une cellule B3
de la colonne B il y ai aussi la date si du texte figure dans une cellule
A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand il
y a justement un de ces "ok" je souhaite la date d'inscription du"OK"
dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il n'y
a que "OK" ou rien, ou quand il y a une date en colonne L, il y a
forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi ?
Daniel
"charly P" a écrit dans le
message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date
reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur
JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK" ou
"Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit dans
le message de news: 45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué :
je souhaite que dans les cellules de la colonne L par exemple L3
ou L4 soit inscrit la date à laquelle a été inscrit "OK" dans les
cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de news:

Clic droit sur le nom de l'onglet; clic sur "Visualiser le code";
colle le code que je t'ai fourni dans la fenêtre qui vient de
s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit
dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le disai
sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit
dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok"
dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP



















































Avatar
Daniel
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une cellule
B3 de la colonne B il y ai aussi la date si du texte figure dans une
cellule A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand
il y a justement un de ces "ok" je souhaite la date d'inscription
du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il
n'y a que "OK" ou rien, ou quand il y a une date en colonne L, il y
a forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi
?
Daniel
"charly P" a écrit dans
le message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date
reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur
JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK"
ou "Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit dans
le message de news: 45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué
:
je souhaite que dans les cellules de la colonne L par exemple L3
ou L4 soit inscrit la date à laquelle a été inscrit "OK" dans les
cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit
dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le disai
sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit
dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok"
dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP























































Avatar
charly P
Euh... bon alors comment je fais pour rajouter cet macro à l'autre de tout à
l'heure?


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une cellule
B3 de la colonne B il y ai aussi la date si du texte figure dans une
cellule A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand
il y a justement un de ces "ok" je souhaite la date d'inscription
du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il
n'y a que "OK" ou rien, ou quand il y a une date en colonne L, il y
a forcément "OK" sur la même ligne, ou on peut avoir n'importe quoi
?
Daniel
"charly P" a écrit dans
le message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque je
supprime un "ok" dans une cellule de la colonne K et bien la date
reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de news:

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié sur
JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK"
ou "Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit
dans le message de news:
45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal expliqué
:
je souhaite que dans les cellules de la colonne L par exemple L3
ou L4 soit inscrit la date à laquelle a été inscrit "OK" dans
les cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit
dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le disai
sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a écrit
dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok"
dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP



























































Avatar
Daniel
Tu la remplaces. La nouvelle macro fait tout le boulot.
Daniel
"charly P" a écrit dans le
message de news: 45b4e139$0$5101$
Euh... bon alors comment je fais pour rajouter cet macro à l'autre de tout
à l'heure?


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une cellule
B3 de la colonne B il y ai aussi la date si du texte figure dans une
cellule A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans
le message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et quand
il y a justement un de ces "ok" je souhaite la date d'inscription
du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il
n'y a que "OK" ou rien, ou quand il y a une date en colonne L, il
y a forcément "OK" sur la même ligne, ou on peut avoir n'importe
quoi ?
Daniel
"charly P" a écrit dans
le message de news: 45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque
je supprime un "ok" dans une cellule de la colonne K et bien la
date reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de
news:
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié
sur JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou "oK"
ou "Ok". Si tu veux qu'elle ne se déclenche que pour "OK", alors
remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit
dans le message de news:
45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal
expliqué :
je souhaite que dans les cellules de la colonne L par exemple
L3 ou L4 soit inscrit la date à laquelle a été inscrit "OK"
dans les cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette fenêtre.
Daniel
"charly P" a écrit
dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le disai
sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a
écrit dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit "ok"
dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP































































Avatar
charly P
Oui Daniel ça fonctionne avec ok cependant cela ne semble pas fonctionner
avec un autre texte dans les cellules de la colonne A...



"Daniel" a écrit dans le message de news:
ur%
Tu la remplaces. La nouvelle macro fait tout le boulot.
Daniel
"charly P" a écrit dans le
message de news: 45b4e139$0$5101$
Euh... bon alors comment je fais pour rajouter cet macro à l'autre de
tout à l'heure?


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une
cellule B3 de la colonne B il y ai aussi la date si du texte figure
dans une cellule A3 de la colonne A par exemple


"charly P" a écrit dans le
message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans
le message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et
quand il y a justement un de ces "ok" je souhaite la date
d'inscription du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de news:

Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K, il
n'y a que "OK" ou rien, ou quand il y a une date en colonne L, il
y a forcément "OK" sur la même ligne, ou on peut avoir n'importe
quoi ?
Daniel
"charly P" a écrit
dans le message de news:
45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque
je supprime un "ok" dans une cellule de la colonne K et bien la
date reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de
news:
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié
sur JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou
"oK" ou "Ok". Si tu veux qu'elle ne se déclenche que pour "OK",
alors remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit
dans le message de news:
45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal
expliqué :
je souhaite que dans les cellules de la colonne L par exemple
L3 ou L4 soit inscrit la date à laquelle a été inscrit "OK"
dans les cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette
fenêtre.
Daniel
"charly P" a écrit
dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit de
macro et j'ai toujours procédé par formules comme je le
disai sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message de
news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a
écrit dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit
"ok" dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP



































































Avatar
Daniel
Au temps pour moi :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column = 11 Then
If UCase(Target.Value) = "OK" Then
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
ElseIf Target.Column = 1 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4f9df$0$25913$
Oui Daniel ça fonctionne avec ok cependant cela ne semble pas fonctionner
avec un autre texte dans les cellules de la colonne A...



"Daniel" a écrit dans le message de news:
ur%
Tu la remplaces. La nouvelle macro fait tout le boulot.
Daniel
"charly P" a écrit dans le
message de news: 45b4e139$0$5101$
Euh... bon alors comment je fais pour rajouter cet macro à l'autre de
tout à l'heure?


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date en
colonne B ?
Daniel
"charly P" a écrit dans le
message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une
cellule B3 de la colonne B il y ai aussi la date si du texte figure
dans une cellule A3 de la colonne A par exemple


"charly P" a écrit dans
le message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui, je
confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans
le message de news: 45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et
quand il y a justement un de ces "ok" je souhaite la date
d'inscription du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de
news:
Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K,
il n'y a que "OK" ou rien, ou quand il y a une date en colonne
L, il y a forcément "OK" sur la même ligne, ou on peut avoir
n'importe quoi ?
Daniel
"charly P" a écrit
dans le message de news:
45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que lorsque
je supprime un "ok" dans une cellule de la colonne K et bien la
date reste quand meme dans les cellules de la colonne L


"Daniel" a écrit dans le message de
news:
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié
sur JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou
"oK" ou "Ok". Si tu veux qu'elle ne se déclenche que pour
"OK", alors remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit
dans le message de news:
45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal
expliqué :
je souhaite que dans les cellules de la colonne L par exemple
L3 ou L4 soit inscrit la date à laquelle a été inscrit "OK"
dans les cellules K3 ou encore dans K4 et ainsi de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette
fenêtre.
Daniel
"charly P" a
écrit dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit
de macro et j'ai toujours procédé par formules comme je le
disai sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message
de news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a été
saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a
écrit dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit
"ok" dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP







































































Avatar
charly P
Et bien merci pour tout Daniel cela fonctionne parfaitement...
Bonne continuation
CharlyP


"Daniel" a écrit dans le message de news:
%
Au temps pour moi :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column = 11 Then
If UCase(Target.Value) = "OK" Then
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
ElseIf Target.Column = 1 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4f9df$0$25913$
Oui Daniel ça fonctionne avec ok cependant cela ne semble pas fonctionner
avec un autre texte dans les cellules de la colonne A...



"Daniel" a écrit dans le message de news:
ur%
Tu la remplaces. La nouvelle macro fait tout le boulot.
Daniel
"charly P" a écrit dans le
message de news: 45b4e139$0$5101$
Euh... bon alors comment je fais pour rajouter cet macro à l'autre de
tout à l'heure?


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 And Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit dans le
message de news: 45b4db93$0$27399$
ben je souhaiterai que la date s'efface également Daniel...



"Daniel" a écrit dans le message de news:

Et si l'on efface une cellule en colonne A qu'advient-ilde la date
en colonne B ?
Daniel
"charly P" a écrit dans
le message de news: 45b4d569$0$25928$
et maintenant dans la meme feuille je souhaiterai que dans une
cellule B3 de la colonne B il y ai aussi la date si du texte figure
dans une cellule A3 de la colonne A par exemple


"charly P" a écrit dans
le message de news: 45b4d43c$0$27392$
Génial! Daniel cela semble fonctionner à merveille aujourd'hui,
je confirmerai demain par rapport à la date...
En tous cas merci de t'etre penché sur le probleme
Merci aussi à JB
CharlyP


"Daniel" a écrit dans le message de news:
%
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) = "OK" Then
'*** On écrit la date en colonne B
Target(1, 2) = Date
ElseIf Target.Value = "" Then
Target(1, 2) = ""
End If
End Sub

Daniel
"charly P" a écrit
dans le message de news:
45b4d00d$0$27410$
c'est ça dans la colonne K il n'y a que "OK", "ok" ou rien et
quand il y a justement un de ces "ok" je souhaite la date
d'inscription du"OK" dans colonneL
MERCI

"Daniel" a écrit dans le message de
news:
Hé, c'était pas dans le cahier des charges...
Tu compliques un peu les choses. Est-ce que dans la colonne K,
il n'y a que "OK" ou rien, ou quand il y a une date en colonne
L, il y a forcément "OK" sur la même ligne, ou on peut avoir
n'importe quoi ?
Daniel
"charly P" a écrit
dans le message de news:
45b4c242$0$5112$
Merci Daniel cela fonctionne a un détail près c'est que
lorsque je supprime un "ok" dans une cellule de la colonne K
et bien la date reste quand meme dans les cellules de la
colonne L


"Daniel" a écrit dans le message de
news:
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** On vérifie qu'une seule cellule est modifiée
If Target.Count > 1 Then Exit Sub
'*** Vérification du numéro de colonne
If Target.Column <> 11 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

J'ai rajouté le test d'une seule cellule modifiée (j'ai copié
sur JB (c'est mal)).
Note : la macro se déclenche également si tu saisis "ok" ou
"oK" ou "Ok". Si tu veux qu'elle ne se déclenche que pour
"OK", alors remplace UCase(Target.Value) par Target.Value.
Daniel
"charly P" a écrit
dans le message de news:
45b4bc9e$0$5112$
cela ne fonctionne pas en fait je me suit peut-etre mal
expliqué :
je souhaite que dans les cellules de la colonne L par
exemple L3 ou L4 soit inscrit la date à laquelle a été
inscrit "OK" dans les cellules K3 ou encore dans K4 et ainsi
de suite
CharlyP

"Daniel" a écrit dans le message de
news:
Clic droit sur le nom de l'onglet; clic sur "Visualiser le
code"; colle le code que je t'ai fourni dans la fenêtre qui
vient de s'ouvrir. C'est tout. Tu peux refermer cette
fenêtre.
Daniel
"charly P" a
écrit dans le message de news:
45b4aa0c$0$25954$
merci de votre réponse rapide mais je n'ai jamais inscrit
de macro et j'ai toujours procédé par formules comme je le
disai sur mon message de début de sujet, comment fait-on?



"Daniel" a écrit dans le message
de news:
Bonjour.
La macro suivante écrit la date en colonne B si "ok" a
été saisi en colonne A.
Mets cette macro dans le code de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
'*** Vérification du numéro de colonne
If Target.Column <> 1 Then Exit Sub
'*** Vérification de la saisie (en minuscules ou en
majuscules)
If UCase(Target.Value) <> "OK" Then Exit Sub
'*** On écrit la date en colonne B
Target(1, 2) = Date
End Sub

Cordialement.
Daniel
"charly P" a
écrit dans le message de news:
45b4a298$0$27402$
bonjour,
voilà...
Je souhaierai connaitre la formule pour que :
une cellule m'indique la date à laquelle a été inscrit
"ok" dans une autre cellule de la meme feuille
merci d'avance pour vos eclaircissements
CharlyP











































































1 2 3