supprimer une ligne associé à une valeur

adelinelafeline · 1 Juin 2012

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 · 1 Juin 2012

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) · 1 Juin 2012

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

Code:

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 · 2 Juin 2012

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

supprimer une ligne associé à une valeur

adelinelafeline

XLDnaute Nouveau

Pièces jointes

flyonets44

XLDnaute Occasionnel

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

adelinelafeline

XLDnaute Nouveau

Discussions similaires