La fonction select case
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
3 réponses
-
Bonjour
Quelle est la valeur de i ?
cdlt -
Bonjour
Peut-être qu'avec thisworkbook au lieu de thisworkbooks... -
Bonjour,
Peut-être qu'en définissant i (cf. Frenchie83)
Peut-être qu'avec ThisWorkbook au lieu de Thisworkbooks (cf. le père)
Peut-être qu'avec Cells au lieu de Cell
Peut-être qu'avec Set note = ... au lieu de note = ...
Alors peut-être qu'une première étape sera franchie
