Discussion :

[joums]

Bonjour,
A partir d'une base de donnée (feuil détail), je souhaiterai copier certaines lignes dans une autre feuille (feuil tableau), et cela en fonction d'un critère commun au 2 feuilles.
Cela pourrait concerner plusieurs critères (1 à la fois)


Exemple : Dans feuil tableau j'ai mon critères (voiture en cellule F4)
je souhaite copier toutes les lignes où figures ce critère en colonne A
Les lignes doivent être copier (par insertion à partir de A5)
Je vous joint un fichier pour exemple

Je pensais réaliser cela en faisait une boucle, voici mon raisonnement :
1- Tant que la cellue (de la colonne F) est vide, on passe à la cellule en dessous.
2 - Quand cellule est non vide, on recherche la valeur de la cellule dans la BDD (feuille détail) en colonne A.
3 - Une fois trouvée on copie la ligne et insertion dans la 2è ligne en dessous du criteres d'origine (feuille Tableau)

4 - on poursuit la boucle

Merci de votre aide,

[laetitia]

bonsoir joums le forum comme j'ai compris!!!
attention j'ai simplifier le nom des feuilles. adapte
code basique a optimiser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Test()
Dim f As Range, c As Variant
Application.ScreenUpdating = False
Sheets("Tableau").Activate
With Sheets("Detail")
For Each c In .Range("a7:a" & .Range("a65000").End(xlUp).Row)
Set f = Sheets("Tableau").Range("f3:f" & Range("f65000").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole)
If Not f Is Nothing Then
Rows(f.Row + 1).Insert Shift:=xlDown
Cells(f.Row + 1, 1).Select
Sheets("Detail").Range("a" & c.Row & ":d" & c.Row).Copy Destination:=Selection
End If: Next: End With
End Sub

[joums]

Bonjour laetita,

Je pense que tu as bien compris
la macro fonctionnel comme je souhaite,
je vais l'adapté à mon fichier
Encore merci