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

Question

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

Configuration: Windows 7 / Chrome 44.0.2403.130

Gyrus · Answer

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+

Kuartz · Answer

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.

Gyrus · Answer

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+

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

3 réponses

Discussions similaires

Newsletters