Bonjour à tous,
Re-bonjour au forum, que ferait-on sans vous ....
Voici mon soucis, j'ai un USF qui se lance en double-cliquant dans une cellule de la colonne A.
Je recupere les données de toute ma ligne dans des combobox et des textbox.
Avec un bouton j'exporte des données sur une feuille "ARCHIVES".
J'aimerais pouvoir supprimer la ligne une fois l'exportation terminée.
J'ai essayé mais rien ne marche
Private Sub CommandButton6_Click()
Dim ShtD As Worksheet
Set ShtD = Sheets("ARCHIVES")
DerLig = ShtD.Range("A65536").End(xlUp).Row
ShtD.Range("A" & DerLig + 1).Value = Me.ComboBox1.Value
ShtD.Range("B" & DerLig + 1).Value = Me.TextBox18.Value
ShtD.Range("C" & DerLig + 1).Value = Me.TextBox3.Value
ShtD.Range("D" & DerLig + 1).Value = Me.TextBox4.Value
ShtD.Range("E" & DerLig + 1).Value = Me.TextBox5.Value
ShtD.Range("F" & DerLig + 1).Value = Me.TextBox6.Value
ShtD.Range("G" & DerLig + 1).Value = Me.TextBox7.Value
ShtD.Range("H" & DerLig + 1).Value = Me.TextBox8.Value
ShtD.Range("I" & DerLig + 1).Value = Me.ComboBox9.Value
ShtD.Range("J" & DerLig + 1).Value = Me.ComboBox13.Value
-----------------------pouvoir supprimer la ligne une fois l'exportation terminée ---------------------
Unload UserForm9
End Sub
Merci d'avance et longue vie au forum.
Re-bonjour au forum, que ferait-on sans vous ....
Voici mon soucis, j'ai un USF qui se lance en double-cliquant dans une cellule de la colonne A.
Je recupere les données de toute ma ligne dans des combobox et des textbox.
Avec un bouton j'exporte des données sur une feuille "ARCHIVES".
J'aimerais pouvoir supprimer la ligne une fois l'exportation terminée.
J'ai essayé mais rien ne marche
Private Sub CommandButton6_Click()
Dim ShtD As Worksheet
Set ShtD = Sheets("ARCHIVES")
DerLig = ShtD.Range("A65536").End(xlUp).Row
ShtD.Range("A" & DerLig + 1).Value = Me.ComboBox1.Value
ShtD.Range("B" & DerLig + 1).Value = Me.TextBox18.Value
ShtD.Range("C" & DerLig + 1).Value = Me.TextBox3.Value
ShtD.Range("D" & DerLig + 1).Value = Me.TextBox4.Value
ShtD.Range("E" & DerLig + 1).Value = Me.TextBox5.Value
ShtD.Range("F" & DerLig + 1).Value = Me.TextBox6.Value
ShtD.Range("G" & DerLig + 1).Value = Me.TextBox7.Value
ShtD.Range("H" & DerLig + 1).Value = Me.TextBox8.Value
ShtD.Range("I" & DerLig + 1).Value = Me.ComboBox9.Value
ShtD.Range("J" & DerLig + 1).Value = Me.ComboBox13.Value
-----------------------pouvoir supprimer la ligne une fois l'exportation terminée ---------------------
Unload UserForm9
End Sub
Merci d'avance et longue vie au forum.