XL 2010 [RESOLU] Insérer valeur suivant jour

[cathodique]

Bonjour🙂,

Au fil de mes recherches, j'ai découvert un site en anglais de tuto vba.
https://excelmacromastery.com/excel-vba-range-cells/#The_Offset_Property_of_Range
https://excelmacromastery.com/excel-vba-range-cells/#The_Offset_Property_of_Range
Pour montrer l'utilité de offset, il est proposé de remplir des cellules autrement avec ces 2 procédures.
Alors le souci, c'est que je ne suis pas parvenu à faire fonctionner tout cela et n'ai pas compris où était mon erreur.

Option Explicit
Public Sub TestSelect()
'Lundi
    SetValueSelect 1, 111.21
    'Mercredi
    SetValueSelect 3, 456.99
    'Vendredi
    SetValueSelect 5, 432.25
    'Dimanche
    SetValueSelect 7, 710.17
End Sub

Public Sub SetValueSelect(lday As Long, lValue As Currency)
    Select Case lday
case1:         Feuil1.Range("a1") = lValue
case2:         Feuil1.Range("b1") = lValue
case3:         Feuil1.Range("c1") = lValue
case4:         Feuil1.Range("d1") = lValue
case5:         Feuil1.Range("e1") = lValue
case6:         Feuil1.Range("f1") = lValue
case7:         Feuil1.Range("g1") = lValue
    End Select
End Sub

Erreur renvoyée

L'aide d'Excel ne m'a été d'aucun secours. Merci d'éclairer ma lanterne.

Bon week-end.😉

 

[pierrejean]

Bonjour cathodique
Teste comme ceci (espace entre case et 1 ....)

Public Sub SetValueSelect(lday As Long, lValue As Currency)
    Select Case lday
Case 1: Feuil1.Range("a1") = lValue
Case 2: Feuil1.Range("b1") = lValue
Case 3: Feuil1.Range("c1") = lValue
Case 4: Feuil1.Range("d1") = lValue
Case 5: Feuil1.Range("e1") = lValue
Case 6: Feuil1.Range("f1") = lValue
Case 7: Feuil1.Range("g1") = lValue
    End Select
End Sub

 

[cathodique]

Bonjour Pierrejean🙂

Suis-je devenu aussi bigleux que ça🙁. Merci beaucoup, je vais pouvoir poursuivre.

Bon week-end.