chercher et supprimer

phlaurent55

Nous a quittés en 2020

Repose en paix

• 5 Mars 2017

• #2

Bonjour Chaelie,

un début de réponse par formule en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsx

  14.1 KB · Affichages: 21

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 5 Mars 2017

• #3

Bonjour PHLAURENT55
MERCI POUR LES FORMULES
et comment faire pour supprimer la ligne?
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Mars 2017

• #4

Bonjour Charlie

Salut Philippe

Une 1ere solution

 

Pièces jointes

• charlie chercher apres supprimer.xlsm

  28.4 KB · Affichages: 20

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 5 Mars 2017

• #5

pierrejean à dit:

Bonjour Charlie

Salut Philippe

Une 1ere solution

Cliquez pour agrandir...

bonjour pierrejean
merci pour le code en vba (chercher); mais je souhaite supprimer la ligne dans le tableau de la feuille1
a+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Mars 2017

• #6

Re

Une autre solution : la recherche se fait au changement de G3

 

Pièces jointes

• charlie chercher apres supprimer_a.xlsm

  21.1 KB · Affichages: 24

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 5 Mars 2017

• #7

pierrejean à dit:

Re

Une autre solution : la recherche se fait au changement de G3

Cliquez pour agrandir...

Re
encore merci pierrejean
mais comment faire pour supprimer la lignes (dans la feuille1) qui correspond a ces valeurs?
a+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 5 Mars 2017

• #8

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: 5 Mars 2017

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Mars 2017

• #9

Re

Avec effacement

 

Pièces jointes

• charlie chercher apres supprimer.xlsm

  28.8 KB · Affichages: 26
• charlie chercher apres supprimer_a.xlsm

  20 KB · Affichages: 24

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 5 Mars 2017

• #10

Bonjour tout le monde
merci pour les réponses c'est super
Problème résolut
Salutations

 

Vote positif 0 Vote négatif