Re : declaration valeur
Bonjour Phil39.
Pas sûr, mais place "a = a + 1" avant "If a > 30".
A +
Pareil mais merci de la réponse.
Je vois bien d'où vient le probleme :
Private Sub Validation_Click()
a = 18
Range("B" & (a)) = Saisie.Materiel.Value
Range("J" & (a)) = Saisie.Quantite.Value
If a > 30 Then
MsgBox "Limite de saisie atteinte !"
End If
a = a + 1
Call SaisieBL_Initialize
End Sub
c'est ma déclaration
initiale de la valeur de a en fait.
le SaisieBL_Initialize reset mes textbox et sur un clique sur le bouton Validation, ça doit me basculer les données. Mais comme a=18 à chaque fois, ça met dans la première ligne même si aprés a=a+1
Si je met a=18 dans SaisieBL_Initialize, ça "reset" aussi a à la valeur 18.
En fait je ne sais pas ou mettre la valeur initiale de a
EDIT :
Ce fût (très) dur mais j'ai trouvé une solution !
Pour ceux que cela interresse, il faut ajouter une recherche de la première ligne vide :
Private Sub CommandButton1_Click()
a = 18
Sheets("BL").Select
While Not Range("B" & a & "").Value = ""
a = a + 1
Wend
Range("B" & (a)) = SaisieBL.Materiel.Value
Range("J" & (a)) = SaisieBL.Quantite.Value
If i = 47 Then
MsgBox "Limite de saisie atteinte !"
End If
Call SaisieBL_Initialize
End Sub