suprimer une ligne

[polio]

Bonjour,
Je vous expique mon problème
J'ai fait un classeur avec plusieurs feuilles,j'ai aussi créer un userform avec un listform a l'interieur et un textbox.Ce listform va chercher les valeurs dans la feuille "machin"et les insere la feuille "Truc"quand elles sont sélectionnées.J'aimerai supprimer la ligne de la valeur selectionnée de la feuille "machin" si la valeur du textbox = la valeur corespondant au listbox selectionné.
merci

 

[wilfried_42]

Re : suprimer une ligne

salut
tu memorise le n° d'enregistrement de la ligne à tranferer, une fois le transfert effectuer, tu remets à zero la ligne dite, n'oublies pas de trier ton fichier pas la suite

salutations

 

[Pierrot93]

Re : suprimer une ligne

Bonjour Polio,

ton fichier en pièce joint, sans données confidentielles, nous aideraient à mieux situer ton problème afin de t'aider plus efficacement.

Bon week end
@+

 

[polio]

Re : suprimer une ligne

Le fichier est un peu lourd
Voila une partie de mon code


Private Sub CommandButton1_Click()
Sheets("Ventes Boursorama").Select
ActiveSheet.Unprotect
Range("A2") = Format(iDate, "dd-mmm-yyyy")
Range("C2") = TextBox4.Value
Range("E2") = TextBox5.Value
Range("D2") = TextBox6.Value
Range("B2") = ListBox1.Value
For i = 1 To 1
Next i
Range("A2:K2").Select
Selection.Copy
Range("A253").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2,B2,C2,D2,E2").Select
Selection.ClearContents
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
ListBox1.Value = ""
Range("A253").End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

J'aimerai effacer la ligne qui correspond a la listbox1 si la valeur de J2 = la corespondante dans une autre feuille

 

[polio]

Re : suprimer une ligne

Pour Wielfrid
Merci mais le N° de ligne change en fonction de ma listbox

 

[Pierrot93]

Re : suprimer une ligne

Re Polio, Bonjour Wilfried

Si j'ai bien compris, ce qui est pas sur car je ne vois pas la ligne de code qui alimente ton "ListBox1", essaies et adaptes la ligne de code ci-dessous :

If Range("J2").Value = Sheets(NomDeTonAutreFeuille).Range("J2").Value Then
    Rows(Range("A65536").End(xlUp).Row).Delete
End If

@+

 

[polio]

Re : suprimer une ligne

Il n' y a pas le code de la listbox car j'ai déclaré les variables dans les propriétés de la listbox

Comme ça

RowSource Boursorama!C4:C50