Re Bonjour Olympia, Bonjour Chris (Miss Super Astuce)
Je tiens à te dire de suite, Olympia, que tu risque d'avoir un peu de formation intensive et accélérée en VBA avec moi !!!
Non disons que pour démarrer on peut voir si tu t'en sors pour adpter cette démo toute seule...
Fichier Démo Téléchargeable =>
Lien supprimé
Donc dans cette démo, dans le Private Module du UserForm
(Click Droit depuis Explorateur de Projet de VBE (Visual Basic Editor)
Tu dois trouver ceci :
Private Sub UserForm_Initialize()
Dim CTRL As Control
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.SpinButton Then
With CTRL
.Max = 50
.Min = 0
.Value = 20
End With
End If
Next
Que tu vas remplacer par celà :
Private Sub UserForm_Initialize()
Dim CTRL As Control
With Me
.SpinButton1.Value = 10
.SpinButton2.Value = 5
.SpinButton3.Value = 15
.SpinButton4.Value = 25
End With
Attention ne touches pas au reste du code pour l'instant... Et reviens me dire si tu as les valeur que tu veux, of course, 10, 5, 15 et 25 sont là pour être changé à ta guise, c'est juste pour initialiser les SpinButtons à la valeurs que tu souhaites et pas tous à 20 comme dans la démo initiale...
Voilà pour l'instant, ça te fera passer un premier '
Test d'Aptitude Thierry's Démo Trafiqueuse Certified' lol
Reviens nous dire
@+Thierry
EDITION !! (Soucis de mise en Forme du Post)
Message édité par: _Thierry, à: 03/04/2005 17:20