Avez-vous déjà fait du VBA ?
Connaissez vous les évènements ?
Supposons que vois soyez débutant.
1. Appuyer sur alt F11 pour accéder à l'environnement du VBA.
2. Dans la petite fenêtre "Projet", cliquer sur VBAProject, MicrosoftExcel Objects, et Feuil1.
3. En haut de la grande fenêtre de l'éditeur, au lieu de (Général), choisir Worksheet.
4. A côté, choisir l'événement Change.
A ce moment-là, vous devriez voir apparaître une ligne
Private Sub Worksheet_Change(ByVal Target As Range) |
5. En dessous écrivez votre code, ce qui donne :
Private Sub Worksheet_Change(ByVal Target As Range)
' MsgBox (Target.Column)
' MsgBox (Target.Row)
' MsgBox (Target.Address)
' MsgBox (Target.Value)
On Error GoTo not_a_number
num = CInt(Target.Value)
If (num = 0) Then
Cells(Target.Row, Target.Column + 1) = "Zéro"
ElseIf (num = 1) Then
Cells(Target.Row, Target.Column + 1) = "Un"
'... etc
End If
not_a_number:
Exit Sub
End Sub
|