Aide pour vider un formulaire

Bonjour à vous.

J'ai modifié un tableau pour qu'il s'adapte à ma convenance .

il y a une feuille dans laquelle on saisit les données et plusieurs feuilles qui les reçoivent, tous fonctionne correctement.

Mon problème est que lorsque je valide mon formulaire en cliquant sur le bouton je voudrais qu'il me le vide pour effectuer une autre saisie.

Et la je n'y arrive pas.

Si quelqu'un pourrait m'aider je poste mon tableau.

Bonjour

team94 a écrit :

lorsque je valide mon formulaire en cliquant sur le bouton je voudrais qu'il me le vide pour effectuer une autre saisie.

Complète ton code :

Private Sub CommandButton1_Click()
Dim lign As Variant

    lign = Sheets(Range("G9").Value).Range("A65000").End(xlUp).Row

    If Sheets(Range("G9").Value).Range("A" & lign).Value <> "" Then
        Sheets(Range("G9").Value).Range("A" & lign + 1).Value = Sheets("Demande de Remplacement").Range("G9").Value
        Sheets(Range("G9").Value).Range("B" & lign + 1).Value = Sheets("Demande de Remplacement").Range("D9").Value
        Sheets(Range("G9").Value).Range("C" & lign + 1).Value = Sheets("Demande de Remplacement").Range("G11").Value
        Sheets(Range("G9").Value).Range("D" & lign + 1).Value = Sheets("Demande de Remplacement").Range("D13").Value
        Sheets(Range("G9").Value).Range("E" & lign + 1).Value = Sheets("Demande de Remplacement").Range("G14").Value
        Sheets(Range("G9").Value).Range("F" & lign + 1).Value = Sheets("Demande de Remplacement").Range("D11").Value
        Sheets(Range("G9").Value).Range("G" & lign + 1).Value = Sheets("Demande de Remplacement").Range("D16").Value
        Sheets(Range("G9").Value).Range("H" & lign + 1).Value = Sheets("Demande de Remplacement").Range("G17").Value
    End If

Sheets("Demande de Remplacement").Range("G9").Value = ""
        Sheets("Demande de Remplacement").Range("D9").Value = ""
        Sheets("Demande de Remplacement").Range("G11").Value = ""
        Sheets("Demande de Remplacement").Range("D13").Value = ""
        Sheets("Demande de Remplacement").Range("G14").Value = ""
        Sheets("Demande de Remplacement").Range("D11").Value = ""
        Sheets("Demande de Remplacement").Range("D16").Value = ""
        Sheets("Demande de Remplacement").Range("G17").Value = ""

End Sub

OK ?

Bye !

Merci beaucoup je ne maitrise pas excel vous m'avez rendu un fier service.

Sujet resolu