Aide pour vider un formulaire
t
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.
g
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 !
t
Merci beaucoup je ne maitrise pas excel vous m'avez rendu un fier service.
Sujet resolu