Discussion :

[bohemian]

Bonjour,

Je suis tombé sur cette discussion qui correspond aux besoins que j'avais de créer une macro qui se déclenchent à chaque modification de cellule.
Comme je souhaite adapter la macro et que je suis novice en programmation, pouvez-vous me décrire précisement chaque ligne de ce programme ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 And Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Font.Bold = True
    Range("A" & Target.Row).Value = Date
    Application.EnableEvents = True
End If

que veut dire chaque ligne ?

Merci d'avance pour votre aide !!

[jfontaine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'Procédure "événement" qui se déclenche à chaque modification du contenue d'une cellule (hors calcul de formule et mise en forme)
Private Sub Worksheet_Change(ByVal Target As Range)
'Target est une variable de type Range (Cellule) qui correspond à la cellule ou plage de cellules modifiée
 
'Si la variable Target contient qu'une seule cellule et que la modification est différente d'une remise à blanc de la cellule
If Target.Count = 1 And Target.Value <> "" Then
 
   'On bloque les événements pour éviter que le code du dessous relance un événement Change
   Application.EnableEvents = False
 
   'On met la police en gras
   Target.Font.Bold = True
 
   'On met la date dans la colonne A sur la ligne de la cellule modifiée
   Range("A" & Target.Row).Value = Date
 
   'On réactive les événements
   Application.EnableEvents = True
End If
 
End Sub

Bon code