Discussion :

[sebastien02]

Bonjour à tous,

J'ai besoin d'un peu d'aide...

Je souhaite avoir à chaque ligne de la colonne F la date à laquelle la colonne A de la même ligne a été complétée.
Tant que la colonne A d'une ligne n'est pas complétée, la colonne F est vide.
Dès que la colonne A d'une ligne est complétée, la valeur de la F sur la même ligne est la date de modification, donc la date du jour.
j'avais pensé mettre dans la colonne F une formule du style =si($A1;aujourdhui();"") et copier cette formule sur toutes les lignes, mais la formule aujourdhui() est volatile et se met à jour à jour en permanence.
Si on peut récupérer la date de modification d'une cellule, je pourrais à la limite utiliser cette fonction, mais je ne vois rien de tel !
Bref, si quelqu'un a une idée...

Merci beaucoup !

[joe.levrai]

Bonjour,

pour faire du "tout automatique", je ne vois pas d'autre solution que de passer par VBA

macro évènementielle Worksheet_Change de la feuille
tu détectes si la cellule (Target) modifiée est en colonne A, et si tel est le cas tu écris la date du jour (Date) en dur après avoir vérifié que la valeur de la cellule en A n'est pas vide (si on a en fait effacé la valeur)

[unparia]

Bonjour
J'ajoute à ce qu'a exposé joe.levrai, que je salue, qu'il faudra en plus "mémoriser" dans une variable générale (au selection_change) le contenu déjà éventuellement présent et n'intervenir au Change que si le nouveau contenu est différent de celui mis en mémoire.
L'évènement Change se déclenche en effet systématiquement, même si la nouvelle saisie est rigoureusement identique à l'ancienne.

[sebastien02]

Merci pour vos réponses

J'avais espéré pouvoir me passer de VBA et imaginé une formule dans ce style =SI(A1;SI(B1;B1;TEXTE(AUJOURDHUI();"jj/mm/aaaa"));""), mais je suis alors confronté aux itérations ! Ca fonctionne plus ou moins (et plutôt moins que plus) en changeant les options de calcul, mais ça ne ma plait pas.

Donc, oui, je me doutais devoir passer par du VBA, mais mon souci est que je n'ai aucune notion de VBA Je ne suis pas du tout programmeur

Si je dois passer à du code VBA, alors j'aurais deux questions :
1. Comment associer le code à la modification d'une colonne ?
2. Quel doit être le code à mettre ?

J'ai bien essayé quelque chose dans ce style, mais dès que je passe sur une cellule de la colonne 1, la date se complète !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 1 Then
    Cells(Target.Row, 2) = Now
End If
 
End Sub

Merci encore pour votre aide

[jerome.vaussenat]

Salut,

Pour tout ce qui concerne les "évèvenements" tu as un bon tuto ici.
http://silkyroad.developpez.com/VBA/EvenementsFeuille/

Pour moi, tu as 2 événements à utiliser :
Worksheet_SelectionChange
afin de mémoriser le contenu de la cellule (en colonne A) dés que tu cliques dessus. Cela te permettra, comme indiqué par unparia de vérifier que le contenu à bel est bien été modifié.
Worksheet_Change
qui servira pour mettre la date s'il y a bien eu modification de la cellule.

Pour vérifier que la selection un le changement se fait dans la colonne A, tu peux utiliser un if
if target.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        'ton code ici.
    End If
End Sub

Là je ne peux pas faire plus. Et oui il y en a qui bossent (un peu ...)

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range) 
    If Target.Column = 1 Then Target.Offset(0,5) = Now()
End Sub

https://msdn.microsoft.com/fr-fr/lib.../ff839775.aspx

Edit : trois tirs simultanés.

[sebastien02]

Oups, désolé, j'ai modifié mon post juste au moment de ta réponse, car j'avais commencé à trouver des éléments de réponses.
Je faisais d'ailleurs ce que tu proposes... mais dès que je passe/clique sur une cellule de la colonne 1, la date se complète en colonne 2. J'aurais aimé que ce soit juste quand une valeur est indiquée.

Merci en tout cas !

[joe.levrai]

Bonjour,

l'équivalant VBA de AUJOURD'HUI() est Date
l'équivalent Excel de Now() est la fonction MAINTENANT()

[sebastien02]

Oui, parfait, j'ai fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub WorkSheet_Change(ByVal Target As Range)
 
If Target.Column = 1 Then
    Cells(Target.Row, 2) = Now
End If
 
End Sub

Merci à tous
J'indique mon sujet comme résolu

[jerome.vaussenat]

Salut,

Et oui je suis toujours là !!!

dans ton post 4 tu utilises l'évènement sur changement de sélection pour mettre en place la date.

Cela signifie que dès que tu cliqueras sur la colonne A, la date se mettra à jour.
Il me semble plus pertinent de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub WorkSheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then
          Cells(Target.Row, 2) = date
    End If

End Sub

en gros cela se lit de la manière suivante. S'il y a un changement dans la colonne A (c'est le 1 dans le code) met la date dans la ligne correspodante de la colonne B (c'est le 2 dans le code)

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Cells(Target.Row, 2) = Now

Si tu veux mettre ta valeur dans la colonne F (cf ta demande), ça risque de ne pas le faire.

[sebastien02]

Si tu veux mettre ta valeur dans la colonne F (cf ta demande), ça risque de ne pas le faire.

LOL!

Oui, oui, bien sûr, c'est parce que je testais dans un autre fichier sur la colonne B

[idemanz7]

Bonjour,
je tenais à vous remerciez pour cette solution néo moins, mon problème est un peu similaire à ça, je essaye de mise à jour ma date après changement de variable et non après une sélection (sachant que mes variables de la colonne 10 sont en forme de petite liste déroulante "statues", j'arrive pas à trouver le bon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 10 Then
    Cells(Target.Row, 7) = Now
 End Sub

Merci d'avance

[joe.levrai]

Bonjour,

la solution est pourtant dans le message #10 de cette discussion, tu n'utilises pas le bon évènement dans ton code !

et ôte le () après End Sub

[idemanz7]

Bonjour,

la solution est pourtant dans le message #10 de cette discussion, tu n'utilises pas le bon évènement dans ton code !

et ôte le () après End Sub

Ah oui tout à fait ! je te remercie c'est nickel

Bien à toi !

[BARBATRUC144]

Bonjour
J'ajoute à ce qu'a exposé joe.levrai, que je salue, qu'il faudra en plus "mémoriser" dans une variable générale (au selection_change) le contenu déjà éventuellement présent et n'intervenir au Change que si le nouveau contenu est différent de celui mis en mémoire.
L'évènement Change se déclenche en effet systématiquement, même si la nouvelle saisie est rigoureusement identique à l'ancienne.

Comment ajouter cette condition supplémentaire : uniquement si la valeur saisie est differente de la précédente ?
Merci

[Moun10be]

Oui, parfait, j'ai fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub WorkSheet_Change(ByVal Target As Range)
 
If Target.Column = 1 Then
    Cells(Target.Row, 2) = Now
End If
 
End Sub

Merci à tous
J'indique mon sujet comme résolu

Bonjour,

Merci pour le code VBA qui fonctionne à la perfection par contre que dois-je rajouter dans le code pour que je puisse l'utiliser sur une autres cellules individuellement.
Exemple voir photo ci-joint => colonne A interagi sur B et je voudrais que la colonne E interagi sur G

Merci d'avance.

[Moun10be]

Bonjour,

Finalement en essayent différentes combinaisons j'ai trouvé


Ps: la question peut être bête au vu de certains mais je tiens à préciser que je suis un novice d'où ma question


Bien à vous.

[slygan]

bonjour,
je me suis permis de piquer le code car il correspond à mon besoin et fonctionne plutôt bien....
sauf que je l'ai légèrement modifié pour que ça fonctionne sur 2 cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub WorkSheet_Change(ByVal Target As Range)
 
If Target.Column = 1 or 2 Then
    Cells(Target.Row, 4) = Now
End If

si j'apporte une modification en colonne A ou B La date s'affiche en D. Mais le problème, si je modifie juste C ça affiche également la date en D... ce que ne souhaite pas.

que faut-il faire svp ?

[stongea2010]

Je sais que le temps s'est écoulé depuis le dernier post mais, le sujet correspond à mon besoin.

Quand-est-il dans un tableau structuré? J'essaie d'adapter le code pour ne surveiller qu'une colonne à l'intérieur d'un tableau mais il y a un petit quelque chose qui accroche à quelque part. Le problème est évidemment placé à quelques cm devant l'écran mais, l'ignorant qui essais à le mérite de sa réussite.

Merci