Sélectionner un item dans la listbox automatiquement ,à l initialisation

[Evelynetfrancois]

Bonjour tout le monde

Mon fichier s ‘ouvre sur le mois courant, soit mars pour l’instant
A l’activation de la feuille mars , je lance la boite « imprimer » (pour l’exemple présent)

Ma question est : est t-il possible de sélectionner automatiquement à l’initialisation de cette boite la coche mars (mois en cours) de la listbox

je joins un fichier extra light pour l'exemple
merci d avance pour toutes vos idées
bonne journée a tous
E et F

 

[pierrejean]

Re : Sélectionner un item dans la listbox automatiquement ,à l initialisation

Bonjour Evelyne et francois

A tester:

Private Sub UserForm_Initialize()
On Error Resume Next
For i = 1 To Worksheets.Count - 2
ListeFeuille.AddItem Worksheets(i).Name
If Worksheets(i).Application = False Then
vCpt = vCpt + 1
End If
Next i
vNbF = i - vCpt - 2
ListeFeuille.Selected(Month(Date) - 1) = True
End Sub

 

[Evelynetfrancois]

Re : Sélectionner un item dans la listbox automatiquement ,à l initialisation

bonjour pierrejean
Merci pour cette réponse si rapide
c est exactement ça !!! une merveille !!
Ca marche au poil , je cherchais sans rien trouver de concluant
merci beaucoup pour tout
très bonne journée
E et F