Copier textbox d'un userform sur la première cellule vide

Lilian -  
 Lilian -
Bonjour,

J'ai une petit problème, je souhaiterais copier se que je contient dans mes textbox d'un userform sur la première cellule vide d'une colonne. j'ai donc écrit ce code mais je doit oublier un détaille car lorsque je l'exécute, les textbox sont bien copiés sur la premiere ligne vide, mais le texte remplace également toutes les cellules de la ligne 3 a la ligne que je souhaite.

Je ne sais pas si je suis assez claire dans mes explications mais j'espere que vous saurez m'éclairer.


Sheets("Erreurs").Range("B3:B" & [B65000].End(xlUp).Row + 1) = UsfErreur.TextBox2

Sheets("Erreurs").Range("C3:C" & [C65000].End(xlUp).Row + 1) = UsfErreur.TextBox3

Sheets("Erreurs").Range("D3:D" & [D65000].End(xlUp).Row + 1) = UsfErreur.TextBox4


merci d'avance

A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

    With Sheets("Erreurs")
        .Range("B" & Range("B65000").End(xlUp).Row + 1) = UsfErreur.TextBox2
        .Range("C" & Range("C65000").End(xlUp).Row + 1) = UsfErreur.TextBox3
        .Range("D" & Range("D65000").End(xlUp).Row + 1) = UsfErreur.TextBox4
    End With
0
Lilian
 
et bien merci nickel, je ne sais pas pourquoi je me suis embêté avec le "B3:B" etc

une simple petite erreur ^^

merci pour ta réactivitée
0