supprimer une ligne associé à une valeur

[adelinelafeline]

Bonjour à tous,

Depuis 1 semaine je suis sur un problème sur vba, j'y arrive à sa fin. Mais reste pour moi une chose que je n'arrive pas à faire.

Sur le classeur "Interventions" et la feuille "EnCours", il y a un "Code interventions".
Ce "code interventions" à un moment donné je le mets dans la feuille "Interventions".
Et j'aimerai que quand la valeur est dans la feuille "interventions", la ligne associé à ce "code interventions" sur la feuille "EnCours" soit supprimé.

J'ai essayer plusieurs fois avec la fonction if, mais ce fut un echec, c'est pour cela que je me tourne vers vous, si vous avez une piste.

Merci par avance

A2

 

[flyonets44]

Re : supprimer une ligne associé à une valeur

Bonsoir
un début de réponse avec ce fichier , voir le code dans le module 2
Cordialement
Flyonets

 

[youky(BJ)]

Re : supprimer une ligne associé à une valeur

Bonsoir Adeline,
Comme c'était déja fait j'envoie quand même en saluant flyonet plus rapide
Bruno

Private Sub CommandButton1_Click()
Dim DerLig As Long
With Workbooks("Interventions.xlsm").Sheets("Interventions")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & DerLig + 1).Value = ComboBox4.Value
.Range("B" & DerLig + 1).Value = Workbooks("Interventions.xlsm").Sheets("EnCours").Range("B" & ComboBox4.ListIndex + 2).Value
.Range("C" & DerLig + 1).Value = Workbooks("Ventes.xls").Sheets("Ventes 2010").Range("B" & ComboBox4.ListIndex + 2).Value
lig = Application.Match(ComboBox4, Sheets("EnCours").Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row))
 Sheets("EnCours").Rows(lig).Delete
End With
Call nb_heure
End Sub

 

[adelinelafeline]

Re : supprimer une ligne associé à une valeur

merci beaucoup !!

j'espère que moi aussi bientot je pourrais aider un novice en vba, comme vous le faites avec moi