Adapter une macro de Jacques Boisgontier

[georges95]

Bonjour à tous


Sur le site de Jacques Boisgontier il y a une feuille avec une macro qui mémorise les anciennes valeurs en commentaire.

http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetChangeEvolution.xls

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Count = 1 Then
     Application.EnableEvents = False
     If Target.Comment Is Nothing Then Target.AddComment  ' Création commentaire
     Target.Comment.Text Text:=[mémo] & Chr(10) & Target.Comment.Text
     Target.Comment.Shape.Height = 30
     Target.Comment.Shape.Width = 30
     Application.EnableEvents = True
 End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
  End If
End Sub

Je ne connais rien aux macros et je ne parviens pas à l’adapter à mes feuilles.
J’ai besoins de mémoriser l’historique de notes sur plusieurs colonnes
Type G3 :G73 I3 :I73 ect:.

Si Jacques Boisgontier passe par là ou une autre personne peut me dire comment adapter sa macro qu’il ou quelle en soit remercié.

Bon week-end à tous

 

[Robert]

Re : Adapter une macro de Jacques Boisgontier

Bonjour Georges, bonjour le forum,

Voici le code modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 3 Or Target.Row > 73 Then Exit Sub 'limite de lignes de 3 à 73
Select Case Target.Column
    Case 7, 9 'limite de colonnes 7 et 9 (G et I)
        Application.EnableEvents = False
        If Target.Comment Is Nothing Then Target.AddComment  ' Création commentaire
        Target.Comment.Text Text:=[mémo] & Chr(10) & Target.Comment.Text
        Target.Comment.Shape.Height = 30
        Target.Comment.Shape.Width = 30
        Application.EnableEvents = True
End Select
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 3 Or Target.Row > 73 Then Exit Sub'limite de lignes de 3 à 73
Select Case Target.Column
    Case 7, 9 'limite de colonnes 7 et 9 (G et I)
        ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End Select
End Sub

Tu parles des colonnes G et I (dont le numéro est 7 et 9). si tu veux en rajouter d'autres il sufit de modifier dans les deux procédure la ligne :

Case 7, 9

Tu rajoutes une virgule et le numéro de la colonne supplémentaire (,11 pour la colonne K par exemple)

 

[georges95]

Re : Adapter une macro de Jacques Boisgontier

Bonjour Robert

Grand merci à toi pour le code modifié et les explications.