Toupie inopérante

Bonjour à tous,

Dur dur les formulaires par rapport aux macros.

un formulaire à champs de BDD les affiche mais pas moyen de faire marcher le bouton de défilement.

merci de votre aide.

Fronck

Bonjour

voila avec un peux de ménage a voir

Dim I As Long

Private Sub UserForm_Initialize()
SpinButton1.Min = 3
SpinButton1.Max = 11
I = 3
    With Sheets("fronck")
        TextBox1.Value = .Range("B" & I)
        TextBox2.Value = .Range("C" & I)
        TextBox3.Value = .Range("D" & I)
        TextBox4.Value = .Range("E" & I)
        TextBox5.Value = .Range("F" & I)
        TextBox6.Value = .Range("G" & I)
    End With
End Sub

Private Sub SpinButton1_Change()
 I = SpinButton1.Value
    With Sheets("fronck")
        TextBox1.Value = .Range("B" & I)
        TextBox2.Value = .Range("C" & I)
        TextBox3.Value = .Range("D" & I)
        TextBox4.Value = .Range("E" & I)
        TextBox5.Value = .Range("F" & I)
        TextBox6.Value = .Range("G" & I)
    End With
End Sub

A+

Maurice

Bonjour à tous,

Cà y est çà fonctionne

Je mets les infos pour les gens que çà intéresse.

pour avoir la flêche, comme moi, qui augmente les valeurs, j'ai inversé le min et max dans les propriétés.

a+

fronck