marquer la date de la dernière saisie colonne B

[pascal21]

bonjour à tous
je cherche le moyen de mettre dans la cellule F2 une formule qui me donnerait la date de la dernière saisie dans la colonne B pour la zone b4:b51
merci de votre aide
je tiens à ce que ce soit une formule car il me sera plus facile de la dupliquer que de faire une boucle avec un code VBA
merci

 

[Tibo]

Re : marquer la date de la dernière saisie colonne B

Bonjour,

Essaye avec cette formule :

=RECHERCHE(9^9;$B$4:$B$51)

donne la dernière valeur numérique d'une plage de cellules

@+

 

[Chris401]

Re : marquer la date de la dernière saisie colonne B

Bonjour

Si les dates sont en ordre croissant :

=MAX(B4:B51)

Cordialement
Chris

 

[phlaurent55]

Re : marquer la date de la dernière saisie colonne B

Bonjour à tous,

si j'ai bien compris

je cherche le moyen de mettre dans la cellule F2 une formule qui me donnerait la date de la dernière saisie dans la colonne B pour la zone b4:b51

et s'il s'agit de données et non de dates en B4:B51, je ne vois pas le moyen de faire autrement que par macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B51")) Is Nothing Then
[F2] = Now
End If
End Sub

avec un format perso pour F2:
"Dernière saisie le "jjjj j/mm/aaaa" à "hh:mm:ss

voir fichier joint

à+
Philippe

 

[pascal21]

Re : marquer la date de la dernière saisie colonne B

bonsoir phlaurent55
çà fonctionne très bien mais comme je le craignais il va falloir créer une boucle
les zones concernées (b4:b51) pour f2 (b62:b109) pour F60 (b120:b167)pour 118 etc...saut à chaque fois de 58 lignes jusqu'à la ligne 979
comment réaliser cette boucle merci

 

[phlaurent55]

Re : marquer la date de la dernière saisie colonne B

Re,

çà fonctionne très bien mais comme je le craignais il va falloir créer une boucle

Sans boucle, remplace le code par celui-ci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B979")) Is Nothing Then
Cells(Int((Target.Row + 4) / 58) * 58 + 2, 6).Value = Now
End If
End Sub

il serait utile de protéger la feuille afin de ne pas pouvoir sélectionner les cellules qui se trouvent dans les intervalles 52 à 61, 110 à 119, 158 à 177, ..........

à+
Philippe

 

[pascal21]

Re : marquer la date de la dernière saisie colonne B

bonsoir et merci c'est parfait comme çà pour les intervalles pas besoin de protéger çà datera aussi ce qui sera saisie dedans (observations de l'utilisateur)
bonne soirée