Valeurs textbox

[apdf1]

Bonjour et bonne année à tous

Voila comment envoyer les valeurs des textboxs vers la ligne 6 de la feuille 1 en utilisant "xlDown" pour avoir toujours les nouvelles info sur cette ligne 6.

Merci d'avance

Ci joint fichier

Max

 

[JNP]

Re : Valeurs textbox

Bonjour Apdf1 🙂,
Modifie ton code comme ceci :

With Sheets("Feuil1")
.Range("B6:M6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Cells(6, 2) = TextBox1.Value 'nom
.Cells(6, 3) = TextBox3.Value 'Date
.Cells(6, 4) = TextBox4.Value 'N° Facture
.Cells(6, 5) = TextBox5.Value 'adresse
.Cells(6, 6) = TextBox6.Value 'CP
.Cells(6, 7) = TextBox7.Value 'ville
.Cells(6, 8) = TextBox8.Value 'tel
End With

Bon dimanche 😎

 

[laetitia90]

Re : Valeurs textbox

bonjour apdf1
dans ton cas l'instruction with sert a rien !!!!
sans passer par une boucle

Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(6, 2) = TextBox1.Value 'nom
    Cells(6, 3) = CDate(TextBox3.Value) 'Date
    Cells(6, 4) = TextBox4.Value 'N° Facture
    Cells(6, 5) = TextBox5.Value 'adresse
    Cells(6, 6) = TextBox6.Value 'CP
    Cells(6, 7) = TextBox7.Value 'ville
    Cells(6, 8) = TextBox8.Value 'tel

il faut traiter les formats


ps :bonjour JNP on c'est loupe de peu bon dimanche🙂🙂🙂🙂🙂

 

[JNP]

Re : Valeurs textbox

Salut Laetitia 🙂,

dans ton cas l'instruction with sert a rien !!!!

C'est surtout qu'il ne l'utilisait pas pour les Cells 🙄...
Mais c'est toujours plus prudent de définir la feuille, il pourrait très bien lancer l'USF depuis une autre feuille par la suite 😉...
Bon dimanche 😎

 

[apdf1]

Re : Valeurs textbox

Bonjour JNP, Laetitia,

Je vous remercie beaucoup super,

Bon Dimanche

Max