Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour suivi de modifications

wiba

XLDnaute Nouveau
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
 

Pièces jointes

  • wiba (1).xlsm
    273.6 KB · Affichages: 61

wiba

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Macro pour suivi de modifications

Bonjour à tous,

un essai en pièce jointe

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    284.9 KB · Affichages: 57
  • 111.xlsm
    284.9 KB · Affichages: 62
  • 111.xlsm
    284.9 KB · Affichages: 55

Discussions similaires

Réponses
1
Affichages
443
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…