La fonction select case
jojo
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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 et - Guide
- Fonction miroir - Guide
- Aller à la ligne dans une case excel - Guide
- Fonction moyenne excel - Guide
- Excel case choix multiple - Guide
