Retour à la ligne automatique

[eddy13t]

Bonjour, voila j'ai un petit problème, j'essaie de creer une macro qui renverai automatiquement à la ligne et qui prendrait en compte si la ligne du dessus est pleine ou vide. Je m'explique:

Je clique sur un bouton affecté à une macro qui m'ouvre une boîte dans laquelle il faut rentrer la référence d'un produit et une quantité et un bouton "ok"...ça c'est le userform qui travaille... Mais aprés dans excel j'ai un tableau dans laquelle lorsque je clique sur OK dans la boite userform les informations doivent venir se ranger dans les cellules du tableau...

La premier fois la référence se rangera par exemple dans la cellule E5 et la quantité se rangera dans la cellule F5 puis à la deuxieme ouverture de la boite, la nouvelle ref se rangera dans la cellule E6 et la quantité dans la cellule F6....



---> procédure userform

Private Sub Annuler_Click()
boiteref.Hide
End Sub

Private Sub critère_Change()

If critère <> "" Then
If Not IsNumeric(critère) Then
rep = MsgBox(" Veuillez entrer un nombre svp!", vbExclamation, " Attention! ")
critère = ""
End If
End If
End Sub

Private Sub Ok_Click()

If ref = "" Or critère = "" Then
Beep
rep = MsgBox("La saisie de tous les champs est obligatoire", vbExclamation, "ATTENTION")

Else
Sheets("ref").Select
Range("E5") = ref
Range("F5") = critère
ref = ""
critère = ""
boiteref.Hide

End If

End Sub

Private Sub Userform_activate()
ref = ""
critère = ""
boiteref!ref.SetFocus

End Sub



J'ai déja commencer, le probleme c'est juste pour que ça renvoie à la ligne automatiquement et que sa tienne des valeurs déja présentes dans les cellules....

Si vous avez une idée ^^ Merci

 

[kjin]

Re : Retour à la ligne automatique

Bonjour,

Private Sub Ok_Click()
If ref = "" Or critère = "" Then
MsgBox "La saisie de tous les champs est obligatoire", vbExclamation, "ATTENTION"
Exit Sub
End If
With Sheets("ref")
    DL = .Range("E65000").End(xlUp).Row + 1 'première ligne vide colonne E
    .Range("E" & DL) = ref
    .Range("F" & DL) = critère
End With
Unload Me
End Sub

A+
kjin

 

[eddy13t]

Re : Retour à la ligne automatique

merci bcp tu gère la fougère 😉