Passer à la ligne suivante si 1ere remplie

Bonjour tout le monde,

Etant novice en VBA et ayant cherché toute l'après-midi...J'aurais besoin d'un petit coup de main, svp.

Pouvez-vous me dire comment récupérer sur une feuille excel, les infos issus de saisies de mes Combobox et textbox.

Le problème c'est qu'à chaque fois que j'éxécute, ma 1ère ligne excel est remplacée par les nouvelles valeurs alors que je souhaiterais la gardée et écrire les nouvelles valeurs sur la lignes d'après.

Private Sub afficherDebit()
   Dim r
   r = 2

    Worksheets("débits").Select

    Cells(1, 1).Value = "ref profil"
    Cells(1, 2).Value = "longueur"
    Cells(1, 3).Value = "qte"

    Cells(r, 1).Value = CBrefprofile.Value'combobox'
    Cells(r, 2).Value = TBlong.Value'textbox'
    Cells(r, 3).Value = TBquantité.Value'textbox'

End Sub

Bonsoir,

il faut donner à "r" une valeur qui sera variable et correspondra à la première ligne vide de la colonne voulue.
Si cette colonne est la A : r = Range("A" & Rows.Count).End(xlUp).Row + 1

on part de A dernière ligne de la feuille Excel (Rows.count), puis de la fin vers le haut End(xlUp), on cherche la première cellule non vide et on retourne le numéro de la ligne (.Row), du coup pour avoir la première vide de la colonne en partant du haut, il suffit d'ajouter 1.

@ bientôt

LouReeD

Merci pour la réactivité.
je vous tiens au courant.

Il me met une erreur

Non c'est bon impeccable, j'avais inversé 2 trucs.

Merci encore

Et bien merci pour ce retour qui m'a dans un premier temps donné des palpitations !

@ bientôt

LouReeD

Bonjour LouReeD,

J'aurais besoin d'un coup de main pour finir mon fichier.

Pourriez-vous m'aider, svp ?