calendrier vba

[mira]

Bonjour!

J'ai un petit soucis avec un calendrier en VBA.
En effet, je voudrais que suite à la sélection d'une date un coefficient saisonnier s'affiche dans une cellule.
Il serait de 0,5 pour les mois de octobre à avril
de 1 pour Mai, Juin et Juillet et de 2 pour Juillet et Août.
J'ai donc mis le code suivant:

Range("f2").Select
If calendrier.Month = "01" Or "02" Or "03" Or "04" Or "10" Or "11" Or "12" Then
ActiveCell.Value = "0.5"
ElseIf calendrier.Month = "05" Or "06" Then
ActiveCell.Value = "1"
ElseIf calendrier.Month = "07" Or "08" Then
ActiveCell.Value = "2"
End If

Mais cela ne fonctionne pas!

Je vous remercie d'avance

 

[JCGL]

Re : calendrier vba

Bonjour à tous,

A quoi correspond calendrier dans Calendrier.Month ?

A+ à tous

Édition : ceci à l'air de fonctionner

Option Explicit

Sub Variation()
    Range("F2").Select
    If Month(Now) = "01" Or "02" Or "03" Or "04" Or "10" Or "11" Or "12" Then
        ActiveCell.Value = "0.5"
    ElseIf Month(Now) = "05" Or "06" Then
        ActiveCell.Value = "1"
    ElseIf Month(Now) = "07" Or "08" Then
        ActiveCell.Value = "2"
    End If
End Sub

A+ à tous

 

[mira]

Re : calendrier vba

Merci pour votre réponse mais cela ne fonctionne toujours pas.
Calendrier est le nom que j'ai donné à calendar

 

[Pierrot93]

Re : calendrier vba

Bonsoir Mira, Jean-Claude🙂

en l'absence de JC🙂, essaye en modifiant comme suit :

If Month(Calendrier.Value) =

bonne soirée
@+

 

[Pierrot93]

Re : calendrier vba

Re,

A noter, en fonction d'où est placé le code il y a peut être lieu de présiser la feuille ou l'usf :

If Month(Feuil1.Calendrier.Value) =

If Month(UserForm1.Calendrier.Value) =

 

[Roland_M]

Re : calendrier vba

bien le bonsoir,
voir comme ceci:

Sub Variation()
Select Case Month(Now)
Case "01", "02", "03", "04", "10", "11", "12": Range("F2").Value = "0.5"
Case "05", "06": Range("F2").Value = "1"
Case "07", "08": Range("F2").Value = "2"
End Select
End Sub

 

[mira]

Re : calendrier vba

merci beaucoup!
ça marche enfin 🙂

J'ai du enlever les guillemets ça bloquait également à ce niveau.