Vieux poste à mettre à jour svp

Le
Anonyme52 offline Hors ligne
Bonjour,
Code ci-dessous relevé dans un ancien poste, mais désolée la ligne "e;mémo"e; ci dessous ne fonctionne pas.

Avez-vous une idée ? j'aimerai beaucoup que cela m'enregistre le contenu de la cellule avant modification. Sinon le reste super.

Merci d'avance.

Bien à vous


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "e;e;Espion"e;e; Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("e;e;espion"e;e;).Range("e;e;a:a"e;e;)) + 1
Sheets("e;e;espion"e;e;).Cells(temp, 1) = Sh.Name
Sheets("e;e;espion"e;e;).Cells(temp, 2) = Target.Address
Sheets("e;e;espion"e;e;).Cells(temp, 3) = Now
Sheets("e;e;espion"e;e;).Cells(temp, 4) = [mémo] ?????
Sheets("e;e;espion"e;e;).Cells(temp, 5) = Target
Sheets("e;e;espion"e;e;).Cells(temp, 6) = Environ("e;e;username"e;e;)
Application.EnableEvents = True
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="e;e;mémo"e;e;, RefersToR1C1:="e;e;="e;e; & Chr(34) & Target.Value & Chr(34)
End If
End Sub
  • Partager ce contenu :
Vos réponses
Poster une réponse
Anonyme