Besoin d'aide pour sélectionner des lignes répondant à une condition

Question

Bonjour, 

Je suis d&#233;butant en vba et j'aurais vraiment besoin d'un coup de main.
Voil&#224;, je cherche &#224; s&#233;parer des lignes d'un fichier si elles r&#233;pondent &#224; une condition afin de les coller dans une autre feuille pour traitement. Tout marche tr&#232;s bien sauf si le nombre de lignes est sup&#233;rieur &#224; 40.

Voici le code :

For z = 10 To 1000


Worksheets("un").Select
    Range("B:B").Activate
For Each cll In Selection      If cll.Value z Then plg plg & cll.Row() & ":" & cll.Row() & ","
Next cll
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select

l'erreur qui se produit quand le nombre de lignes est sup&#233;rieur &#224; 40 est une erreur d'&#233;x&#233;cution 1009 (la m&#233;thode range de l'objet global a echou&#233;).

Pouvez vous svp m'aider sur la r&#233;solution de cette erreur ou m'aider &#224; trouver un moyen de r&#233;cup&#233;rer le N&#176; de la premi&#232;re et de la derni&#232;re ligne r&#233;pondant &#224; la condition afin de faire un range beaucoup plus court ?

Merci d'avance.

jpleroisse · Answer

Bonjour,

Je voudrais bien t'aider, mais je ne comprend pas ton code.(il ne doit
pas &#234;tre complet, car je ne vois pas de d&#233;claration de variable).

C'est quoi plg, quelle est la condition ?

Explique un peu mieux ce que le code doit faire.



jpleroisse

valtrase · Answer

Lut,
Je pr&#233;sume que tu veux faire une s&#233;lection de plage multiple d'apr&#233;s ton code.
Je pense que tu as une limitation interne &#224; excel mais pas sur ......(ta chaine string envoyer en param&#232;tre)
Utilises plut&#244;t des plages et la m&#233;thode Union comme d&#233;cris ci-dessous
  
Dim xlRange As Range 


Dim xlTempR As Range 


Dim cll As Range: Dim LastRow As Long 


'*** Juste pour &#233;viter de faire un calcul sur toutes les lignes 


LastRow = Cells(Cells.Rows.Count, "B" ).End(xlUp).Row 


With Worksheets( "un" ) 


  For Each cll In .Range( "B1:B" & LastRow) 


    '*** Ici on travaille avec des plages et la m&#233;thode Union 


    If cll.Value = z Then 


      If xlRange Is Nothing Then 


        Set xlRange = cll 


      Else 


        If xlRange.Areas.Count > 0 Then 


          Set xlRange = Union(xlRange, cll) 


        End If 


      End If 


    End If 


  Next 


End With 


xlRange.Select 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

bih36 · Answer

Salut, 

Merci bcp d'avoir pris le temps de r&#233;pondre. J'ai modifi&#233; mon code comme tu me l'as dis :
 Sub lignes()


Dim xlrange As Range
Dim xltempR As Range
Dim cll As Range: Dim lastRow As Long


For z = 1 To 3000


lastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
With Worksheets("un")


For Each cll In .Range("B1:B" & lastRow)
      If cll.Value = z Then
        If xlrange Is Nothing Then
            Set xlrange = cll
        Else
            If xlrange.Areas.Count > 0 Then
                Set xlrange = Union(xlrange, cll)
            End If
            
        End If
        
        End If
Next


End With


xlrange.Select


Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("deux").Cells(1, 1)
Application.CutCopyMode = False
***


Next z
End Sub

En fait, j'ai une autre macro au niveau des *** qui permet de traiter mes donn&#233;es avant de les envoyer dans une autre feuille. Chaque valeur z est donc trait&#233;e s&#233;parement.

Cependant j'ai deux petits probl&#232;mes : - j'aimerais s&#233;lectionner les lignes enti&#232;res et il ne s&#233;lectionne que les cellules. J'ai essay&#233; de modifier le code mais sans succ&#232;s.

                                                            - Il garde en m&#233;moire la s&#233;lection pr&#233;c&#233;dente quand il passe au z suivant. Je ne sais pas comment effacer la valeur de xlrange.

Peux tu stp me dire quelles modifs je dois faire pour arriver &#224; faire cela.

Je te remercie d'avance

valtrase · Answer

Re,
Pour s&#233;lectionner la ligne compl&#232;te changes le code comme ci-dessous

If cll.Value = z 
Then 
      If xlRange Is Nothing Then 


        Set xlRange = cll.EntireRow 


      Else 


Pour vider xlRange ajoutes ceci


Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("deux").Cells(1, 1)
Application.CutCopyMode = False
Set xlRange = Nothing



Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Oups,
If xlrange Is Nothing Then
            Set xlrange = cll.EntireRow
        Else
            If xlrange.Areas.Count > 0 Then
                Set xlrange = Union(xlrange, cll.EntireRow)
            End If

tu peux m&#234;me te passer de la condition If xlRange.Areas.count ........ car en fait si elle n'est pas &#233;gale a nothing elle comporte au moins une plage donc c'est redondant. Mais bon qui peu le plus peu le moins.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

bih36 · Answer

Super, 

tout marche impec. Merci beaucoup pour ton aide.

@ +

Besoin d'aide pour sélectionner des lignes répondant à une condition

6 réponses

Discussions similaires