Raccourcir un programme

mutzik

XLDnaute Barbatruc

• 6 Février 2008

• #2

Re : Raccourcir un programme

bonjour,

à part écrire
SB_P_01.Min = 0
SB_P_01.Max = 5
SB_P_01.SmallChange = 1

ce qui te permettra de gagner une ligne (par spin button), ou alors d'inititaliser tes spin buttons tout de suite à la bonne valeur dans leurs propriétés ...

 

Vote positif 0 Vote négatif

T

titilex

XLDnaute Occasionnel

• 6 Février 2008

• #3

Re : Raccourcir un programme

Salut Mutzik,

J'ai relevé un peu ta proposition, en revanche qd je parlais de raccourcir c'était pour faire en faite une sorte de boucle avec le nom qui change
du genre
i as ...

SB_P_0 "i" min =0
SB_P_0 "i" max =5
SB_P_0 "i".smallchange = 1

Seulement je ne maitrise pas assez les ptits trucs du Vba...
Est-ce qu'il y a qq chose à faire ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Février 2008

• #4

Re : Raccourcir un programme

Bonjour Titilex, Bertrand

essaye peut être comme ci dessous :

Code:

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 6
    With Me.Controls("SB_P_" & Format(i, "00"))
        .Min = 0
        .Max = 5
        .SmallChange = 1
    End With
Next i
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

T

titilex

XLDnaute Occasionnel

• 6 Février 2008

• #5

Re : Raccourcir un programme

Merci Pierrot,

C'est exactement ca que je voyais, mais je ne savais pas le traduire en Vba.
Merki bcp !!!

Alex

 

Vote positif 0 Vote négatif