Passer à la ligne suivante si 1ere remplie

Le 26/11/2020 à 22:41

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

Le 26/11/2020 à 22:52

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

Le 26/11/2020 à 23:10

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

Le 26/11/2020 à 23:24

Il me met une erreur