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

Question

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

Configuration: Windows 7 / Chrome 44.0.2403.107

f894009 · Answer

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

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

1 réponse

Discussions similaires