Macro pour suivi de modifications

[wiba]

Bonjour à toutes et tous,

Est-il possible d'avoir une macro sur le fichier joint qui me permettrait d'afficher sur l'onglet "contrôle" toutes modifications apportées (date, type de la modification,....) sur l'onglet "Gantt" en cellules B (à partir de la cellule B21), F (à partir de F21) et G (à partir de G21) ?

En espérant être suffisamment clair !!!
Merci d'avance

 

[CHALET53]

Re : Macro pour suivi de modifications

bonjour

Un essai

a+

 

[wiba]

Re : Macro pour suivi de modifications

Bonjour Chalet 53,

Merci beaucoup de ta réponse. Cela fonctionne super bien.
Serait-il possible que la date de la modification soit également affichée ??

Merci d'avance

 

[CHALET53]

Re : Macro pour suivi de modifications

tu rajoutes l'instruction en gras dans la procédure associée à la feuille GANTT

Private Sub Worksheet_Change(ByVal Target As Range)
'Stop
derlig = Sheets("GANTT").Range("B65536").End(xlUp).Row
derligne = Sheets("Contrôle").Range("A65536").End(xlUp).Row + 1
Set f = Sheets("Contrôle")

If Not (Intersect(Target, Range("B21:B1000,F21:F1000,G21:G1000")) Is Nothing) Then
ligne = Target.Row
With f
.Range("A" & derligne) = Range("A" & ligne)
.Range("B" & derligne) = Range("B" & ligne)
.Range("C" & derligne) = Format(Range("F" & ligne), "DD/MM/YYYY")
.Range("D" & derligne) = Range("G" & ligne)
.Range("E" & derligne) = Date '

End With
End If


End Sub

 

[wiba]

Re : Macro pour suivi de modifications

Merci pour Chalet 53. Cela fontionne à merveille.
Encore merci.

 

[wiba]

Re : Macro pour suivi de modifications

PS. Je ne doit pas etre doué !!!!
Comment fait-on pour valider le sujet ??

 

[CHALET53]

Re : Macro pour suivi de modifications

je n'ai jamais fait : sais pas

 

[phlaurent55]

Re : Macro pour suivi de modifications

Bonjour à tous,

un essai en pièce jointe

à+
Philippe