chercher et supprimer

chaelie2015

XLDnaute Accro
Bonjour forum

Je souhaite chercher une valeur dans le tableau de la feuille 1 via la feuille 2 cellule g3 et afficher les résultats de recherche dans la feuille2 et après supprimer la ligne qui correspond a ces valeurs dans le tableau de la feuille1

Salutation
 

Pièces jointes

  • charlie chercher apres supprimer.xlsx
    14.8 KB · Affichages: 21

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous :)

@ chaelie:

Range("G6") = c.Offset(, 1)
Range("G8") = c.Offset(, 2)
Range("G10") = c.Offset(, 3)
Range("G12") = c.Offset(, 4)
c.Offset(0, 0).EntireRow.Delete

EDIT : ou une autre proposition

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
With Sheets("Feuil1")
rw = Application.Match(Target.Value, .Columns(2), 0)
Range("G6") = .Cells(rw, 3)
Range("G8") = .Cells(rw, 4)
Range("G10") = .Cells(rw, 5)
Range("G12") = .Cells(rw, 6)
.Rows(rw).EntireRow.Delete
End With
End If
End Sub
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
286

Statistiques des forums

Discussions
312 931
Messages
2 093 721
Membres
105 796
dernier inscrit
Max...26