Modification de code

apdf1 · 13 Décembre 2010

Bonjour,

Je travaille sur un userform qui a pour but d'envoyer les valeurs des textbox vers les cellules Excel, en rajoutant les valeurs sur la dernière ligne. Je désirerais avoir la même chose mais sur la première ligne du tableau ici en "B4".

J'aimerais avoir la modification du code qui me permette cela ?

Voilà, si quelqu'un a une idée je l'en remercie d'avance et vous souhaite une bonne journée à tous.

Ci-joint mon fichier.

Cordialement

Max

mth · 13 Décembre 2010

Re : Modification de code

Bonjour apdf1,

si j'ai bien compris, peut-être avec ce code:

Code:

'Boutton valider
Private Sub CommandButton2_Click()
Range("B4:E4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
     Cells(4, 2) = TextBox1.Value 'date
     Cells(4, 3) = TextBox2.Value 'num
     Cells(4, 4) = TextBox3.Value 'nom
     Cells(4, 5) = TextBox4.Value 'montant
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
 
End Sub

Bonne journée,

mth

Edit: 🙂 Bises Fred 🙂

Fred0o · 13 Décembre 2010

Re : Modification de code

Bonjour apdf1,

Voici un code que tu peux utiliser :

VB:

Private Sub CommandButton2_Click()
    Range("B4:E4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Cells(4, 2) = TextBox1.Value 'date
    Cells(4, 3) = TextBox2.Value 'num
    Cells(4, 4) = TextBox3.Value 'nom
    Cells(4, 5) = TextBox4.Value 'montant
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
End Sub

A+

Edit : Bises Mireille

apdf1 · 13 Décembre 2010

Re : Modification de code

Re,

Je vous remercie beaucoup tous les deux. Super !!!

Bonne journée

Max

Modification de code

apdf1

XLDnaute Impliqué

Pièces jointes

mth

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Modification de code

apdf1

XLDnaute Impliqué

Pièces jointes

mth

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency