Discussion :

[alsimbad]

Bonjour tout le monde

j'ai encore le même soucis, mais cett fois en vba
j'a une usf et une liste déroulante. je voudrais que sa valeur par défaut soit le mois précédent la saisie. il s'agit, par exemple en décembre de rendre compte du mois de novembre. or je n'arrive même pas a lui donner le mois en cours comme valeur par défaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub UserForm_Initialize()
With CBMois
.AddItem "Janvier"
.AddItem "Février"
.AddItem "Mars"
.AddItem "Avril"
.AddItem "Mai"
.AddItem "Juin"
.AddItem "Juillet"
.AddItem "Août"
.AddItem "Septembre"
.AddItem "Octobre"
.AddItem "Novembre"
.AddItem "Décembre"
End With
End Sub

je ne trouve pas la syntaxe exacte pour afficher soit directement le nom
je pensais a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CBMois.value = CBMois.listindex(month(date))

par exemple, mais bien sur ça ne marche pas
j'aurais donc besoin, si quelq'un a ça sous le coude du moyen, soit de dire
cbmois.value = novembre (=le mois en cours moins 1 )
CBMois. "par défaut" = la valeur de l'index qui y correspond
ou de je sais quelle manière
merci d'avance

[Invité]

Bonjour

Essayes de mettre cette ligne de code après ton End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.CbMois.Value = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase)

Edit : J'ai changé le code pour le mois -1

Petite explication :

En fait je joue sur le fait que ta liste comporte des mois

Avec la fonction DateAdd, on récupére le mois en cours - 1, ensuite avec la fonction Format on récupére le mois en entier "mmmm".
La fonction StrConv te permets d'avoir la première lettre en majsucule grâce à la constante vbProperCase.

Tu peux avoir le paramétrage de toutes ces fonctions dans l'aide.

Tu peux simplifier ta liste d'Additem, en faisant une boucle de i = 1 à 12 avec l'instruction que je viens de mettre pour mettre à jour ta liste déroulante.

[alsimbad]

merci starec
ça marche au poil. j'ai compris mon erreur, j'utilisais
Month(Date) qui donne 12 ou format(month(date),"mmmm") qui donne n'importe quoi.
bonne journée

[Invité]

Petit complément pour info

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Dim i As Byte
    For i = 1 To 12
        Me.CBmois.AddItem StrConv(Format(DateAdd("m", i, "28/12/2006"), "mmmm"), vbProperCase)
    Next i
    Me.CBmois.Value = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase)
End Sub

[alsimbad]

du coup, j'ai fais ça, et c'est bien plus joli. et de la sorte, la liste déroulante commence toujour par le mois -1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = -1 To 10
.AddItem StrConv(Format(DateAdd("m", i, Date), "mmmm"), vbProperCase)
Next
End With
Me.CBMois.Value = StrConv(Format(DateAdd("m", -1, Date), "mmmm"), vbProperCase)

merci encore