modif For t = 1 to 12 par = combobox.value to 12

[charette63]

bonjour,
j'ai ce code qui fonctionne correctement:

Sub FermeClasseurs()

Dim t As Integer
For t = 1 To 12

Workbooks("horaire nursing" & " " & Format(t, "00") &".xls").Close True
Next t

End Sub

j'aimerais que le "1" devienne le resultat d'une valeur d'un combobox, j'ai essayé ceci:

Sub FermeClasseurs()

Dim t As Integer
For t = combobox1.value To 12

Workbooks("horaire nursing" & " " & Format(t, "00") &".xls").Close True
Next t

End Sub

mais cela ne fonctionne pas, pouvez vous m'aider

merci
cordialement

Thierry

 

[Pierrot93]

Re : modif For t = 1 to 12 par = combobox.value to 12

Bonjour,

modifie peut être ainsi :

For t = CInt(combobox1.value) To 12

après... à voir la valeur de la combo...

bon après midi
@+

 

[charette63]

magnifique Pierrot,

le choix de la valeur de la combobox est compris entre 1 et 12

tous mes remerciements

Thierry

 

[Pierrot93]

Re : modif For t = 1 to 12 par = combobox.value to 12

Re,

peut être faire un test qu'un choix est bien fait sur la combo :

If ComboBox1.ListIndex = -1 Then Exit Sub

 

[charette63]

Re: Re : modif For t = 1 to 12 par = combobox.value to 12

désolé, je ne comprend pas

j'ai ce code en début de macro:

if combobox1 < 1 or > 12 then
exit sub

n'est pas suffisant?

merci de ton interet

Thierry

 

[Pierrot93]

Re : modif For t = 1 to 12 par = combobox.value to 12

Re,

test en ne selectionnant aucun élément dans la combo, peut être lieu également de passer par la conversion (cint)... perso préfère tester la propriété "listindex" du contrôle... mantenant c'est juste mon avis...

bonne fin d'après midi
@+

 

[charette63]

merci pour l'info Pierrot