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

5 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
Merci encore Daniel,
je pensai que je vais certainement avoir d'autre type de colonne ou il va
falloir ajouter automatiquement la date comme dans colonne B
Comment je pourrai modifier ce que vous m'avez proposé?
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











































































Avatar
Daniel
Regarde la structure de la macro.
En gros, tu as :
If Target.Column = 11 Then
la colonne 11 correspond à la colonne K
ElseIf Target.Column = 1 Then
correspond à la colonne A.
Tu peux ajouter à la suite :
ElseIf Target.Column = n Then
Pour t'assister, tu peux obtenir l'aide VBA sur chaque mot en cliquant dans
le mot et en appuyant sur la touche "F1". En cas de difficulté, n'hésite pas
à revenir sur le forum.
Daniel
"charly P" a écrit dans le
message de news: 45b50329$0$5067$
Merci encore Daniel,
je pensai que je vais certainement avoir d'autre type de colonne ou il va
falloir ajouter automatiquement la date comme dans colonne B
Comment je pourrai modifier ce que vous m'avez proposé?
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















































































Avatar
charly P
Super Sympa, merci je vais essayer de m'y coller à l'occasion
CharlyP


"Daniel" a écrit dans le message de news:
%
Regarde la structure de la macro.
En gros, tu as :
If Target.Column = 11 Then
la colonne 11 correspond à la colonne K
ElseIf Target.Column = 1 Then
correspond à la colonne A.
Tu peux ajouter à la suite :
ElseIf Target.Column = n Then
Pour t'assister, tu peux obtenir l'aide VBA sur chaque mot en cliquant
dans le mot et en appuyant sur la touche "F1". En cas de difficulté,
n'hésite pas à revenir sur le forum.
Daniel
"charly P" a écrit dans le
message de news: 45b50329$0$5067$
Merci encore Daniel,
je pensai que je vais certainement avoir d'autre type de colonne ou il va
falloir ajouter automatiquement la date comme dans colonne B
Comment je pourrai modifier ce que vous m'avez proposé?
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



















































































Avatar
charly P
Tiens je m'y suis collé de suite j'ai fait ça et cela a l'air de fonctionner
merci
CharlyP


"Daniel" a écrit dans le message de news:
%
Regarde la structure de la macro.
En gros, tu as :
If Target.Column = 11 Then
la colonne 11 correspond à la colonne K
ElseIf Target.Column = 1 Then
correspond à la colonne A.
Tu peux ajouter à la suite :
ElseIf Target.Column = n Then
Pour t'assister, tu peux obtenir l'aide VBA sur chaque mot en cliquant
dans le mot et en appuyant sur la touche "F1". En cas de difficulté,
n'hésite pas à revenir sur le forum.
Daniel
"charly P" a écrit dans le
message de news: 45b50329$0$5067$
Merci encore Daniel,
je pensai que je vais certainement avoir d'autre type de colonne ou il va
falloir ajouter automatiquement la date comme dans colonne B
Comment je pourrai modifier ce que vous m'avez proposé?
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



















































































Avatar
charly P
Tiens voilà j'ait fait ça
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
ElseIf Target.Column = 14 Then
If UCase(Target.Value) <> "" Then
Target(1, 2) = Date
Else
Target(1, 2) = ""
End If

End If
End Sub
Cela a l'air de fonctionner merci
CharlyP



"Daniel" a écrit dans le message de news:
%
Regarde la structure de la macro.
En gros, tu as :
If Target.Column = 11 Then
la colonne 11 correspond à la colonne K
ElseIf Target.Column = 1 Then
correspond à la colonne A.
Tu peux ajouter à la suite :
ElseIf Target.Column = n Then
Pour t'assister, tu peux obtenir l'aide VBA sur chaque mot en cliquant
dans le mot et en appuyant sur la touche "F1". En cas de difficulté,
n'hésite pas à revenir sur le forum.
Daniel
"charly P" a écrit dans le
message de news: 45b50329$0$5067$
Merci encore Daniel,
je pensai que je vais certainement avoir d'autre type de colonne ou il va
falloir ajouter automatiquement la date comme dans colonne B
Comment je pourrai modifier ce que vous m'avez proposé?
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