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

Macro pour suivi de modifications

  • Initiateur de la discussion Initiateur de la discussion wiba
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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