Modification de code

[apdf1]

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]

Re : Modification de code

Bonjour apdf1,

si j'ai bien compris, peut-être avec ce 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]

Re : Modification de code

Bonjour apdf1,

Voici un code que tu peux utiliser :

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]

Re : Modification de code

Re,

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

Bonne journée

Max