La fonction select case
jojo
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 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 et - Guide
- Aller à la ligne dans une case excel - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
