XL 2010 [RESOLU] Insérer valeur suivant jour

cathodique

XLDnaute Barbatruc
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.
VB:
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
Valeur suivant jour.JPG


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

Bon week-end.;)
 

Pièces jointes

  • Valeur suivant jour.xlsm
    12.7 KB · Affichages: 32

pierrejean

XLDnaute Barbatruc
Bonjour cathodique
Teste comme ceci (espace entre case et 1 ....)
Code:
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
 

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT