La fonction select case
jojo
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour je voudrais exécuter le programme ci dessous mais quand je l'exécute on me dit "objet requis" j'avous que je ne vois pas la faille de mon code je vous prie de m'aider c'est urgent,
Private Sub essai()
Dim i As Integer
Dim note As Range
note = thisworkbooks.Worksheets("feuil1").cell(i, 1)
Select Case note.Value
Case 1
Worksheets("feuil1").cell(i, 2) = "demain"
Case 2
Worksheets("feuil1").cell(i, 2) = "aujourdhui"
Case 3
Worksheets("feuil1").cell(i, 2) = "hier"
Case Else
Worksheets("feuil1").cell(i, 2) = "vide"
End Select
End Sub
Private Sub essai()
Dim i As Integer
Dim note As Range
note = thisworkbooks.Worksheets("feuil1").cell(i, 1)
Select Case note.Value
Case 1
Worksheets("feuil1").cell(i, 2) = "demain"
Case 2
Worksheets("feuil1").cell(i, 2) = "aujourdhui"
Case 3
Worksheets("feuil1").cell(i, 2) = "hier"
Case Else
Worksheets("feuil1").cell(i, 2) = "vide"
End Select
End Sub
A voir également:
- La fonction select case
- Fonction si ou - Guide
- Fonction miroir - Guide
- Please select boot device - Forum Matériel & Système
- Excel case choix multiple - Guide
- Fonction moyenne excel - Guide
