bonsoir forum
dans un usf j'ai une cbx qui sert a rappeler la feuil selectionnee
les données de cette feuil sont copier dans les tbx et cbx prevu.
dans une de ces tbx un numero est copié
par ce numero je voudrai supprimer (la ligne complete)
de la feuil nommée "repertoire" ou tous les numero sont inscrit
merci pour votre aide
Private Sub CommandButton9_Click()
Dim I As Long
Dim Plage As Range
rep = ComboBox10.Value
For Each Feuille In Worksheets
If Feuille.Name Like rep Then
Feuille.Delete
Set Plage = Sheets("Répertoire").Range("A2:A" & Range("A").End(xlUp).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = TextBox2.Value Then
Plage.Cells(I).EntireRow.Delete
End If
Next
End If
Next Feuille
End Sub
dans un usf j'ai une cbx qui sert a rappeler la feuil selectionnee
les données de cette feuil sont copier dans les tbx et cbx prevu.
dans une de ces tbx un numero est copié
par ce numero je voudrai supprimer (la ligne complete)
de la feuil nommée "repertoire" ou tous les numero sont inscrit
merci pour votre aide
Private Sub CommandButton9_Click()
Dim I As Long
Dim Plage As Range
rep = ComboBox10.Value
For Each Feuille In Worksheets
If Feuille.Name Like rep Then
Feuille.Delete
Set Plage = Sheets("Répertoire").Range("A2:A" & Range("A").End(xlUp).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = TextBox2.Value Then
Plage.Cells(I).EntireRow.Delete
End If
Next
End If
Next Feuille
End Sub