Macro a finir => Suppression de la ligne

[karinette]

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.

 

[pierrejean]

Re : Macro a finir => Suppression de la ligne

bonjour karinette

La macro Initialyze de ton USF nous serait fort utile pour savoir comment et surtout ou tu peches les infos de tes combos et textbox
un fichier exemple (sans données confidentielles) permettrait en plus de donner une solution testée

 

[Guest]

Re : Macro a finir => Suppression de la ligne

Bonjour Karinette

si la feuille active est toujours celle qui contient les données avant exportation et que ton userform est remplit à partir de la cellule active de cette feuille, il suffit de rajouter en fin de macro:

ActiveCell.EntireRow.Delete

A+

 

[karinette]

Re : Macro a finir => Suppression de la ligne

🙂 Merci beaucoup Hasco, c'est tout à fait ça.
Quelle rapidité !!!