Recherche lignes modifiées depuis l'ouverture du classeur
Bonjour,
Je cherche à créer un bouton qui afficherait les lignes qui ont été modifiées depuis l'ouverture du fichier.
Il s'agit d'un tableur horaire du personnel, une fois que les modifications seraient faites sur la ligne d'une personne, au clic sur le bouton, cela afficherait, vous avez modifié l'horaire de .... etc ?
J'arrive à faire une détection d'événement avec ceci :
If Not Application.Intersect(Target, Range("B2:AF2")) Is Nothing Then
MsgBox ("Horaire Gaston modifié")
Mais le problème est que le message s'affiche à chaque modification dans la ligne. Je voudrais pouvoir afficher un récapitulatif en fin de travail
Merci de votre aide
Bonjour,
Oui, en effet, c'est pas très pratique avec cet évènement.
J'ai une idée mais probablement à améliorer
'DANS MODULE NORMAL > MACRO QUI PREND LES VALEURS DE LA RANGE
Public ValDeb()
Sub Stocker()
ValDeb.value = Sheets("nomfeuille").Range("B2:AF2")
end sub
'DANS MODULE DU CLASSEUR > EXECUTE MACRO A L'OUVERTURE
Private sub workbook_open()
Call Stocker
End Sub
'DANS MODULE NORMAL > MACRO QUI PREND VALEURS DE FIN ET LES COMPARE AUX VALEURS DEBUT
Sub RecapFin()
Dim ValFin(), message$
ValFin.value = Sheets("nomfeuille").Range("B2:AF2")
message = "Modifications" & vbcrlf & vbcrlf
for i = 0 to Ubound(ValFin)
if ValFin(i).value <> ValDeb(i).value then
message = message & Cells(1, i+2).value & " > D : " &ValDeb(i).value & " - F : " & ValFin(i).value & &vbcrlf
end if
next i
msgbox message
end sub
'DANS MODULE DE LA FEUILLE CONCERNEE > EXECUTION DE LA MACRO RECAP A L'EVENEMENT DESACTIVER (C'EST UN EXEMPLE)
Private sub worksheet_Deactivate()
Call RecapFin
end subCordialement,