<HTML>Sub essai5()
'
' essai5 Macro
' Macro enregistrée le 26/02/02 par VTCHIKIN
'
'
Range("A4").Select
valeur = 9 ' Initialise la variable "valeur"
Select Case valeur 'Initialise la selection des cas de la variable "valeur"
Case 1 '"Valeur" comprise entre 1 et 5.
activecell.Offset(1, 0).Select = "1"
Case 2
activecell.Offset(1, 0).Select = "2"
Case 3
activecell.Offset(1, 0).Select = "3"
Case 4
activecell.Offset(1, 0).Select = "4"
Case 5
activecell.Offset(1, 0).Select = "5"
Case 6
activecell.Offset(1, 0).Select = "6"
Case 7
activecell.Offset(1, 0).Select = "7"
Case 8
activecell.Offset(1, 0).Select = "8"
Case 9
activecell.Offset(1, 0).Select = "9"
Case Else
activecell.Offset(1, 0).Select = "faut"
End Select
End Sub
mon programme ne marche pas. est ce quelqu'un peut m'aider?</HTML>
