[Renommé] résumé affiche date de modif d'une cellule

aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voila mon soucis, je possède un fichier client. La première feuille récapitule les différentes sommes que possède mes client avec la date du jour. Sur les autres feuilles il y a le décompte de chaque client. Ce que je voudrais faire, c'est que la dernière date que j'inscris dans la feuille décompte du client se mette automatiquement dans ma première feuille récapitulative à la place de la date du jour.
Exemple :

Sur la feuille de mon client "dupont" le 08/08/2015 je lui retire 10 euros. J'aimerais que dans ma première feuille récapitulative devant la somme modifié de dupont s'affiche le 08/08/2015 (date de modification). Je sais pas si mes explications sont claires, mais en tous les cas j'espère que quelqu'un aura une solution pour moi.

Merci d'avance

A voir également:

3 réponses

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Pour permettre aux intervenants de t'aider efficacement, il est souhaitable que tu joignes un fichier à la demande.

Ce fichier doit contenir les données utiles (non confidentielles) et doit être accompagné des explications nécessaires.
A minima, la feuille 'Résumé" pour visualiser l'emplacement alloué aux dates et une ou deux feuilles "client".


Pour joindre le fichier, tu peux utiliser https://www.cjoint.com/
Ensuite, reviens coller ici le lien donné par le site.

A+
1
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
0
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Excusez moi je ne savais pas qu'il fallait joindre un document. Merci
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Re-bonjour,

Voici une proposition qui utilise une formule du type
=MAX(DUPONT!A3:A15)
Cette formule renvoie la valeur max de la plage, soit la date la plus récente.

https://www.cjoint.com/c/EHgrJUsNMEw

A+
0
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
ça marche je suis super contente. Je vous remercie beaucoup.
J'ai essayé la formule avec les montant mais ça ne marche pas pourquoi? En tout les cas merci beaucoup. Encore un gain de temps.
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526 > aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Comme je te l'ai dit précédemment, la formule renvoie la valeur max de la plage, soit la date la plus récente.
La recherche du maximum n'a pas de sens pour le montant, puisque le montant maximum ne correspond pas forcément à la dernière saisie.

Par contre, tu peux effectuer la recherche du montant associé à la date trouvée.
Exemple pour DUPONT Corine, formule à placer en C4 :
=INDEX(DUPONT!E3:E15;EQUIV(B4;DUPONT!A3:A15;0))

A+
0
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   > Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention  
 
Re-bonjour,

La formule marche que si la date est différente, si je fais deux dépenses le même jour il prendra en compte la première dépense. Vous allez dire que je suis pénible à force et veuillez m'en excuser par avance. Autrement j'ai qu'une chose à dire vous êtes un pro. Vous m'épater de savoir tout ça.

Merci beaucoup
A+
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526 > aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Pour prendre en compte la chronologie dans une même journée, il suffit que tu renseignes les heures et minutes lors de la saisie dans les feuilles "client".
https://www.cjoint.com/c/EHhmhyYyubX

A+
0
aurora73 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   > Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention  
 
Génial ça marche.

Merci beaucoup
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Voici un code, pas optimisé mais bon, il marche. Disons que j'ai cherché longtemps comment récupérer l'adresse de la dernière cellule sélectionnée mais je n'ai pas réussi. Du coup, lorsque vous changez le montant devant le client sur la feuille 2, vous devez appuyer sur "Entrée" pour valider.

A mettre dans le code de la feuille de modifications :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As Variant, Valeur_Cherchee_Address As Variant

Valeur_Cherchee = ActiveCell.Offset(-1, -1).Value 'Définit la valeur cherchée, ici la cellule active - 1 ligne - 1 colonne

Valeur_Cherchee_Address = ActiveCell.Offset(-1, -1).Address 'Définit l'adresse de la valeur cherchée

Set PlageDeRecherche = Sheets(1).Columns(1) 'On recherche le nom du client dans la colonne A de la feuille 1

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole) 'Définition de la valeur trouvée

If Not Intersect(Target, Range("B:B")) Is Nothing Then 'B est la colonne où l'on retire ou ajoute les euros
    If Range(Valeur_Cherchee_Address).Offset(0, 1) <> "" Then 'Pour éviter les erreur si suppression de la cellule avec le montant
AdresseTrouvee = Trouve.Address

Sheets(1).Range(AdresseTrouvee).Offset(0, 1) = Date 'La colonne B en face du client trouvé se remplit avec la date d'aujourd'hui

    End If
End If

'On vide les variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing

End Sub


La feuille 2 étant ici la feuille de modifications et la feuille 1 étant la feuille récapitulative.

Cordialement.
-1