Lone-wolf
XLDnaute Barbatruc
Bonjour le Forum,
j'aimerais transposer ces formules en VBA.
Edit: j'aimerais aussi changer les intitulés des CheckBox; si vous avez une idée, qu'elle soie la bienvenue.
Double-cliquez sur une cellule pour afficher le formulaire.
D'avance Merci.
A+
j'aimerais transposer ces formules en VBA.
Code:
Private Sub Worksheet_Activate()
Sheets("Agenda").Activate
With ActiveSheet
.[D2] = Year(Date)
.[G2] = Month(Date)
.[I2] = Day(Date)
.[C4:I4].FormulaLocal = "=DATE($D$2;$G$2;$I$2)-JOURSEM(DATE($D$2;$G$2;$I$2);2)+COLONNE(A1)"
.[C4:I4].NumberFormat = "dd"
.[F2].FormulaLocal = "= MAJUSCULE(TEXTE(I4;""mmmm""))"
End With
End Sub
Edit: j'aimerais aussi changer les intitulés des CheckBox; si vous avez une idée, qu'elle soie la bienvenue.
Double-cliquez sur une cellule pour afficher le formulaire.
D'avance Merci.
A+
Pièces jointes
Dernière édition: