Bonsoir à tous
en l'occurrence, il s'agit de commentaires de cellules.en C1et D1
Que l'on rend visibles ou pas.
Sub Note_aide() ' procédure
Application.ScreenUpdating = False
With Range("c1")
If .Value = 1 Then
Range("c1").Comment.Visible = True
Range("d1").Comment.Visible = False
.Value = 2
Exit Sub
End If
If .Value = 2 Then
Range("c1").Comment.Visible = False
Range("d1").Comment.Visible = True
.Value = 3
Exit Sub
End If
If .Value = 3 Then
Range("c1").Comment.Visible = False
Range("d1").Comment.Visible = False
.Value = 1
End If
End With
End Sub
Amicalement
Claude.
édit: C1 servant de compteur