Discussion :

[cline01]

Bonjour,

Je souhaite sélectionner des cellules présentes dans un tableau sur une feuille 1 selon une condition, copier les lignes entières puis les coller vers une feuille 2.
Je l'ai formalisé ainsi après diverses recherches sur Internet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Selection_cellule()
 
    Worksheets(1).Activate
    Range("A1").Select
 
    For Each cll In ActiveCell.CurrentRegion
        If cll.Value Like "*PARISIEN*" Then Plg = Plg & cll.Row() & ":" &  cll.Row() & ","
        If cll.Value Like "*PARISIEN*" Then cll.Interior.Color = vbBlue
    Next cll
 
  If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARIS").[A2]
 
End Sub

Mais lorsque je l'exécute j'ai " l'erreur d'exécution 1004: La méthode Range de l'objet global a échoué" sur la ligne:

Code :

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

Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARIS").[A2]

J'ai vu dans plusieurs sujets de discussions qu'il pouvait s'agir d'un problème d'activation de feuilles. J'ai testé avec cette ligne de code mais cette fois-ci, il y a "erreur définie par l'application ou l'objet"

Code :

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

  If Len(Plg) > 0 Then Worksheets(1).Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARITEL").[A2]

[mercatog]

Range ne peut pas contenir plus que 30 arguments.
Pour ton problème, passer par un filtre automatique au lieu d'une boucle me paraît judicieux

[cline01]

Range ne peut pas contenir plus que 30 arguments.
Pour ton problème, passer par un filtre automatique au lieu d'une boucle me paraît judicieux

Effectivement, la sélection contient plus de 30 arguments.
En revanche, je ne sais pas trop comment élaborer le code pour le filtre automatique.
Après quelques recherches, le filtre élaboré me permettrait d'extraire sur une autre feuille mes données filtrées mais est-il possible de faire plusieurs critères sans avoir à définir une zone de critère, l'équivalent d'un :

Code :

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

if cll.value like"*PARISIEN*" or cll.value "*LYONNAIS*"