Extraire des lignes

Bonjour à tous,

Je viens vers vous car je souhaite extraire, sur une nouvelle feuille, les lignes qui contiennent une donnée d'une colonne.

Dans mon fichier, j'aimerais extraire les lignes dont la colonne P contient "Fabricant1" dans une feuille et "Fabricant2" + "Fabricant3" dans une autre feuille.

Je vous joint le fichier.

Merci par avance

re,

je ne vois pas une autre feuille ???

Bonjour à tous

Essaie de mettre cela dans ton module :

Sub Eclater_Fabricant()
Set WS = ActiveSheet
    With ActiveWorkbook.Sheets
        .Add after:=Worksheets(Worksheets.Count)
    End With
ActiveSheet.Name = "Fabricant1"
WS.Rows(1).Copy ThisWorkbook.Worksheets("Fabricant1").Rows(1)
With ActiveWorkbook.Sheets
        .Add after:=Worksheets(Worksheets.Count)
    End With
ActiveSheet.Name = "Fabricant2et3"
WS.Rows(1).Copy ThisWorkbook.Worksheets("Fabricant2et3").Rows(1)
Set WsF1 = Sheets("Fabricant1")
Set WsF23 = Sheets("Fabricant2et3")
L1 = 2
L23 = 2
NbLig = WS.Range("A65536").End(xlUp).Row
For i = 2 To NbLig
    If WS.Cells(i, 16) = "Fabricant1" Then
        WS.Rows(i).Copy WsF1.Rows(L1)
        L1 = L1 + 1
    ElseIf WS.Cells(i, 16) = "Fabricant2" Or WS.Cells(i, 16) = "Fabricant3" Then
        WS.Rows(i).Copy WsF23.Rows(L23)
        L23 = L23 + 1
    Else
        MsgBox " Autre"
    End If
Next
End Sub

La présentation n'est pas soignée, je n'ai pas trop le temps maintenant.

Bonne soirée

Bonjour à tous,

Avec power query

faire actualiser pour toute modif effectuée dans la BDD

Merci Patty5046. Cela fonctionne.

Est-il possible de rajouter une colonne avec un commentaire après la dernière colonne qui sera différent si c'est "Fabricant1" ou "Fabricant2et3" ?

Ensuite, j'aimerais compléter la "Feuil3" avec :

- en colonne "A" : le texte de la colonne "E" de la feuille des feuilles "Fabricant 1,2et3"

- en colonne "I" : le texte de la colonne "Q" de la feuille des feuilles "Fabricant 1,2et3"

- en colonne "K" : le texte de la colonne "R" de la feuille des feuilles "Fabricant 1,2et3"

- en colonne "M" : le texte de la colonne "K" de la feuille des feuilles "Fabricant 1,2et3"

- en colonne "P" : le texte de la colonne qui sera créé après la dernière colonne de la feuille des feuilles "Fabricant 1,2et3"

J'espère que j'ai été assez clair.

Merci par avance.

Merci djidji. Je vais tester

Bonjour Patty, As-tu eu le temps de regarder ma nouvelle demande ? Merci

Bonjour Matthieu , bonjour à tous

Pour le commentaire à ajouter, je te laisse te débrouiller..

Sinon pour ta feuille3, cette macro :

Sub Completer_F3()
Set WsF23 = Sheets("Fabricant2et3")
Set WsFeuille3 = Sheets("Feuil3")
LigF3 = 2
For i = 2 To WsF23.Range("A65536").End(xlUp).Row
    WsF23.Cells(i, 5).Copy WsFeuille3.Cells(i, 1)
    WsF23.Cells(i, 17).Copy WsFeuille3.Cells(i, 9)
    WsF23.Cells(i, 18).Copy WsFeuille3.Cells(i, 11)
    WsF23.Cells(i, 11).Copy WsFeuille3.Cells(i, 13)
    WsF23.Range("AB" & i).Copy WsFeuille3.Cells(i, 16)
Next
End Sub

Bon courage

Bye

Merci de ton retour patty

Dans la feuil3, il faut ajouter les données de la feuille "Fabricant1" et "Fabricant2et3". Je viens de tester et uniquement les infos de "Fabricant2et3" se déversent dans Feuil3.

Pour le commentaire, je souhaiterais qu'il s'ajoute automatiquement lorsque les feuilles Fabricant1 et Fabricant2et3 se crées.

Je sais pas si je suis assez clair.

Merci

Excuse-moi, mais tes explications ne sont pas très claires.

Je pense qu'avec ce que tu as déjà, tu peux peut-être continuer un peu tout seul.

Je n'ai pas beaucoup de temps.

Bonne soirée.