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.
Erreur renvoyée
L'aide d'Excel ne m'a été d'aucun secours. Merci d'éclairer ma lanterne.
Bon week-end.
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
L'aide d'Excel ne m'a été d'aucun secours. Merci d'éclairer ma lanterne.
Bon week-end.