Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur

wDog66 à dit:

Bonjour Lisette,

Je ne sais pas si c'est votre habitude, mais vous devriez faire attention au fichier que vous partagez

Vous avez un centre de gestion de confidentialité sur Excel, il permet d'effacer les données personnelles
Regarde la pièce jointe 1199556
Avec ce fichier, je connais votre nom et celui de votre société

Dans le monde actuel de telles informations sont une mine d'or pour les Kackers en tout genre

Ce n'était qu'une information 😉

Cliquez pour agrandir...

vgendron à dit:

Hello
une proposition par macro (le fichier est en xlsm)
quand tu mets un commentaire ET qu'il y a une référence, le code va coller le commentaire à la bonne ligne avec la date du jour

Cliquez pour agrandir...

vgendron à dit:

Hello
une proposition par macro (le fichier est en xlsm)
quand tu mets un commentaire ET qu'il y a une référence, le code va coller le commentaire à la bonne ligne avec la date du jour

Cliquez pour agrandir...

vgendron à dit:

Hello

essaie ce code en lieu et place

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("O2")) Is Nothing Then
        If Range("M2") = "" Or Target = "" Then Exit Sub
        With Sheets("Actions HSE").ListObjects(1)
            Set trouve = .ListColumns(3).Range.Find(Format(Range("M2"), "00"), LookIn:=xlValues)
            If Not trouve Is Nothing Then
                lig = trouve.Row - .Range.Row
                nbCarGras = Len(Format(Now, "dd/mm/yy") & ": " & Target)
               
                'on place le résultat à sa place
                .DataBodyRange(trouve.Row - .Range.Row, 12) = Format(Now, "dd/mm/yy") & ": " & Target & Chr(10) & .DataBodyRange(trouve.Row - .Range.Row, 12)
               
                'on remet tout en noir, sans gras
                .DataBodyRange(trouve.Row - .Range.Row, 12).Font.Color = xlblack
                .DataBodyRange(trouve.Row - .Range.Row, 12).Font.Bold = False
                'on colore en rouge gras, le dernier commentaire
                With .DataBodyRange(trouve.Row - .Range.Row, 12).Characters(Start:=1, Length:=nbCarGras).Font '11 corresponds au caractère 1
                    .Color = -16776961
                    .Bold = True
                End With
            End If
        End With
    End If
End Sub

Cliquez pour agrandir...