UserForm action sur la feuille

[Atiom]

Bonsoir le forum

Je sou licite votre aide pour un petit code de mise à jour d’une UserForm.
Avec action sur la feuille, rien de compliqué mais j’avoue que après plusieurs essaies j’obtenait toujours de erreurs dans le code.
Alors je vous mets le fichier joint.
Merci de votre aide

 

[Cousinhub]

Re : UserForm action sur la feuille

Bonsoir,
tu peux essayer avec ce code :

Private Sub CommandButton1_Click()
With Range("E2:E500")
    .Value = Me.TextBox1
    .Offset(, 1).Value = Me.TextBox2
    .Offset(, 2).Value = 0
End With
Unload Me
End Sub

 

[cbea]

Re : UserForm action sur la feuille

Bonsoir Atiom,

Voici une solution.

Private Sub CommandButton1_Click()
    Dim derLig As Long
    
    With Worksheets("Résultat")
        ' Dernière ligne en colonne E
        derLig = .Range("E" & Cells.Rows.Count).End(xlUp).Row
        
        .Range("E2:E" & derLig).Value = TextBox1.Value
        .Range("F2:F" & derLig).Value = TextBox2.Value
        .Range("G2:G" & derLig).Value = 0
    End With
    Unload UserForm1
End Sub

Oups, bonsoir bhbh

 

[Atiom]

Re : UserForm action sur la feuille

Bonsoir bhbh et cbea

Impeccable les deux solutions sont bonnes.

Merci beaucoup et bonne soirée

 

[Cousinhub]

Re : UserForm action sur la feuille

Re-,
Juste pour un petit bonsoir à Béa