declaration valeur

Re : declaration valeur

Bonjour Phil39.

Pas sûr, mais place "a = a + 1" avant "If a > 30".

A +

Re : declaration valeur

13GIBE59 à dit:

Bonjour Phil39.

Pas sûr, mais place "a = a + 1" avant "If a > 30".

A +

Cliquez pour agrandir...

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

Re : declaration valeur

Essaie :

Re : declaration valeur

13GIBE59 à dit:

Essaie :

Code:

Range("B18").End(xlUp).Offset(1,0).Select
ActiveCell.Value=Saisie.Materiel.Value
ActiveCell.Offset(0,8).Value=Saisie.Quantite.Value
If Range("B18").End(xlUp).Row > 30 Then
MsgBox"Limite de saisie atteinte !"
End If
Call saisieBL_Initialise
End Sub

Cliquez pour agrandir...

un grand merci

Re : declaration valeur

Jean-Marcel à dit:

Bonsoir
remplace
si j'ai bien compris
remplace

Code:

a = 18

par

Code:

a = Range("B30").End(xlUp).Row + 1

Cliquez pour agrandir...

un merci tardif mais un grand merci quand même !