marquer la date de la dernière saisie colonne B

Tibo

XLDnaute Barbatruc

• 25 Avril 2011

• #2

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

Bonjour,

Essaye avec cette formule :

Code:

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

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

@+

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 25 Avril 2011

• #3

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

Bonjour

Si les dates sont en ordre croissant :

Code:

=MAX(B4:B51)

Cordialement
Chris

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 25 Avril 2011

• #4

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

Cliquez pour agrandir...

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

Code:

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

 

Pièces jointes

• 111.xls

  42.5 KB · Affichages: 62
• 111.xls

  42.5 KB · Affichages: 68
• 111.xls

  42.5 KB · Affichages: 65

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 25 Avril 2011

• #5

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 25 Avril 2011

• #6

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

Cliquez pour agrandir...

Sans boucle, remplace le code par celui-ci:

Code:

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 26 Avril 2011

• #7

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

 

Vote positif 0 Vote négatif