Effacer une ligne à partir d'une cellule
Mr bruce
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je voudrais pourvoir effacer une ligne d'une liste a partir d'une cellule, c a dire, en écrivant une référence dans une cellule et en appuyant sur un bouton, que dans la liste, les lignes ou se trouve la même référence que dans la cellule soient effacer. Avec visual Basic. Merci de votre aide c important.
je voudrais pourvoir effacer une ligne d'une liste a partir d'une cellule, c a dire, en écrivant une référence dans une cellule et en appuyant sur un bouton, que dans la liste, les lignes ou se trouve la même référence que dans la cellule soient effacer. Avec visual Basic. Merci de votre aide c important.
A voir également:
- Effacer une ligne à partir d'une cellule
- Aller à la ligne dans une cellule excel - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Partager photos en ligne - Guide
- Comment effacer une page word - Guide
1 réponse
Bonjour,
Const cellule As String = "C2" 'cellule d'appel
Const col As String = "A" 'colonne de la liste
Sub supprimer_ligne()
valeur = Range(cellule)
nbre = Application.CountIf(Columns(col), valeur)
lig = Cells.Rows.Count
Application.ScreenUpdating = False
For cptr = 1 To nbre
lig = Columns(col).Find(valeur, Cells(lig, col), xlValues, xlWhole).Row
Rows(lig).Delete
lig = lig - 1
Next
End Sub
Abandon du suivi