Extraire des lignes

matthieu2701 · 23 Novembre 2023

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

R@chid · 24 Novembre 2023

Bonjour,
Merci de bien vouloir préciser la version d'Excel utilisée.
Avec PQ, en cas d'ajout de données dans le tableau source, il suffit d 'actualiser les requêtes des deux autres tableaux.

Cordialement,

matthieu2701 · 24 Novembre 2023

R@chid à dit:
Bonjour,
Merci de bien vouloir préciser la version d'Excel utilisée.
Avec PQ, en cas d'ajout de données dans le tableau source, il suffit d 'actualiser les requêtes des deux autres tableaux.

Cordialement,

Bonjour,

Merci de ton retour.

Puis-je avoir le code de la macro car mon entreprise bloque la macro à l'ouverture du fichier stp ?

Merci

patricktoulon · 24 Novembre 2023

Bonjour

Puis-je avoir le code de la macro car mon entreprise bloque la macro à l'ouverture du fichier stp ?

matthieu2701 · 24 Novembre 2023

patricktoulon à dit:
Bonjour

Regarde la pièce jointe 1184602

Je ne la vois même pas dans les macros. Elle ne s'affiche pas.

mapomme · 24 Novembre 2023

Bonjour @matthieu2701 ,

matthieu2701 à dit:
Puis-je avoir le code de la macro car mon entreprise bloque la macro à l'ouverture du fichier stp ?

J'ai quelques difficultés à comprendre : En quoi cela va-t-il aider puisque les macros sont bloquées ?

R@chid · 24 Novembre 2023

Bonjour @ tous,

matthieu2701 à dit:
Puis-je avoir le code de la macro car mon entreprise bloque la macro à l'ouverture du fichier stp ?

J'ai pas utilisé de macros sur le fichier, c'est juste avec Power Query, je ne sais pas quelle version d'Excel utilises-tu.

mapomme · 24 Novembre 2023

Re,

Par VBA avec le texte d'une macro dans un module :

VB:

Sub ventiler()
Dim ts As ListObject, i&, j&, i1&, i2&, n&, t, t1, t2
   Application.ScreenUpdating = False
   Set ts = Worksheets("BDD").Range("a1").ListObject: n = ts.ListColumns.Count
   On Error Resume Next
   i = 0: i = Worksheets("Fabricant1").Range("a1").CurrentRegion.Clear
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant1"
   Worksheets("Fabricant1").Columns(1).Resize(, n).Clear
   i = 0: i = Worksheets("Fabricant-autres").Index
   On Error GoTo 0
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant-autres"
   Worksheets("Fabricant-autres").Columns(1).Resize(, n).Clear
   t = ts.Range: t1 = ts.Range: t2 = ts.Range: i1 = 1: i2 = 1
   For i = 2 To UBound(t)
      If t(i, 16) = "Fabricant1" Then
         i1 = i1 + 1
         For j = 1 To n: t1(i1, j) = t(i, j): Next
      Else
         i2 = i2 + 1
         For j = 1 To n: t2(i2, j) = t(i, j): Next
      End If
   Next i
    Worksheets("Fabricant1").Range("a1").Resize(i1, n) = t1
    Worksheets("Fabricant-autres").Range("a1").Resize(i2, n) = t2
End Sub

mapomme · 24 Novembre 2023

Re,

Une version qui présente les résultats sous forme de tableaux structurés de noms "tsFab1" et "tsFabN".

VB:

Sub ventiler()
Dim ts As ListObject, i&, j&, i1&, i2&, n&, t, t1, t2
   Application.ScreenUpdating = False
   Set ts = Worksheets("BDD").Range("a1").ListObject: n = ts.ListColumns.Count
   On Error Resume Next
   i = 0: i = Worksheets("Fabricant1").Range("a1").CurrentRegion.Clear
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant1"
   Worksheets("Fabricant1").Columns(1).Resize(, n).Clear
   i = 0: i = Worksheets("Fabricant-autres").Index
   On Error GoTo 0
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant-autres"
   Worksheets("Fabricant-autres").Columns(1).Resize(, n).Clear
   t = ts.Range: t1 = ts.Range: t2 = ts.Range: i1 = 1: i2 = 1
   For i = 2 To UBound(t)
      If t(i, 16) = "Fabricant1" Then
         i1 = i1 + 1
         For j = 1 To n: t1(i1, j) = t(i, j): Next
      Else
         i2 = i2 + 1
         For j = 1 To n: t2(i2, j) = t(i, j): Next
      End If
   Next i
   With Worksheets("Fabricant1")
      .Range("a1").Resize(i1, n) = t1
      .ListObjects.Add(xlSrcRange, .Range("a1").Resize(i1, n), , xlYes).Name = "tsFab1"
      .ListObjects("tsFab1").TableStyle = "TableStyleMedium7"
   End With
   With Worksheets("Fabricant-autres")
      .Range("a1").Resize(i2, n) = t2
      .ListObjects.Add(xlSrcRange, .Range("a1").Resize(i2, n), , xlYes).Name = "tsFabN"
      .ListObjects("tsFabN").TableStyle = "TableStyleMedium5"
   End With
End Sub

matthieu2701 · 24 Novembre 2023

R@chid à dit:
Bonjour @ tous,

J'ai pas utilisé de macros sur le fichier, c'est juste avec Power Query, je ne sais pas quelle version d'Excel utilises-tu.

Les macros je peux. Je comprends pourquoi c’est bloqué alors. C’est par rapport à power query

matthieu2701 · 24 Novembre 2023

mapomme à dit:

Re,

Par VBA avec le texte d'une macro dans un module :

VB:

Sub ventiler()
Dim ts As ListObject, i&, j&, i1&, i2&, n&, t, t1, t2
   Application.ScreenUpdating = False
   Set ts = Worksheets("BDD").Range("a1").ListObject: n = ts.ListColumns.Count
   On Error Resume Next
   i = 0: i = Worksheets("Fabricant1").Range("a1").CurrentRegion.Clear
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant1"
   Worksheets("Fabricant1").Columns(1).Resize(, n).Clear
   i = 0: i = Worksheets("Fabricant-autres").Index
   On Error GoTo 0
   If i = 0 Then Worksheets.Add: ActiveSheet.Name = "Fabricant-autres"
   Worksheets("Fabricant-autres").Columns(1).Resize(, n).Clear
   t = ts.Range: t1 = ts.Range: t2 = ts.Range: i1 = 1: i2 = 1
   For i = 2 To UBound(t)
      If t(i, 16) = "Fabricant1" Then
         i1 = i1 + 1
         For j = 1 To n: t1(i1, j) = t(i, j): Next
      Else
         i2 = i2 + 1
         For j = 1 To n: t2(i2, j) = t(i, j): Next
      End If
   Next i
    Worksheets("Fabricant1").Range("a1").Resize(i1, n) = t1
    Worksheets("Fabricant-autres").Range("a1").Resize(i2, n) = t2
End Sub

Merci

Cousinhub · 24 Novembre 2023

matthieu2701 à dit:
Les macros je peux. Je comprends pourquoi c’est bloqué alors. C’est par rapport à power query

Bonsoir,
Je pense que, soit tu te trompes (et tu ne sais pas ce qu'il se passe), soit ta boîte marche sur la tête...
Autoriser les macros, et suspendre Power Query (si d'ailleurs c'est possible????)
Donc, hypothèse première privilégiée
Et par ailleurs, tu avais également eu une proposition Power Query sur l'autre forum (sans réponse envers le bénévole d'ailleurs...)
Bonne soirée

matthieu2701 · 24 Novembre 2023

Cousinhub à dit:
Bonsoir,
Je pense que, soit tu te trompes (et tu ne sais pas ce qu'il se passe), soit ta boîte marche sur la tête...
Autoriser les macros, et suspendre Power Query (si d'ailleurs c'est possible????)
Donc, hypothèse première privilégiée
Et par ailleurs, tu avais également eu une proposition Power Query sur l'autre forum (sans réponse envers le bénévole d'ailleurs...)
Bonne soirée

Salut, quand j’ouvre le fichier, cela me note un message comme quoi la macro a été bloquée pour une question de sécurité.

Cousinhub · 24 Novembre 2023

Re-,
Non, ce n'est pas ce message...
C'est celui-ci :

Il suffit d'activer le contenu..
Bonne soirée

matthieu2701 · 24 Novembre 2023

Cousinhub à dit:
Re-,
Non, ce n'est pas ce message...
C'est celui-ci :
Regarde la pièce jointe 1184641
Il suffit d'activer le contenu..
Bonne soirée

Non ce n’est pas ça. Je sais qu’il faut activer. Après avoir activer j’ai un message rouge m’indiquant : contenu bloqué : les macros ont été désactivées car la source de ce fichier n’est pas approuvée

Extraire des lignes

matthieu2701

XLDnaute Occasionnel

Pièces jointes

R@chid

XLDnaute Barbatruc

Pièces jointes

matthieu2701

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

matthieu2701

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

matthieu2701

XLDnaute Occasionnel

matthieu2701

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

matthieu2701

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

matthieu2701

XLDnaute Occasionnel

Discussions similaires