XL 2019 Faire une boucle avec plusieurs constante pour éviter de répéter le code

[desmonts]

Bonjour à Toutes et tous,

je cherche une astuce pour le pas répéter le code donc faire une boucle en déclarant des constantes. Pour l'exempele ici mes cste sont RBEI et RFRV

Par avance merci.

Sub essai2()

Dim Pligvide As Long
'Code avec RBEI
Sheets("1").Select
Range("A1").AutoFilter Field:=1, Criteria1:="RBEI"
Sheets("feuil1").Select
Pligvide = Range("A" & Rows.Count).End(xlUp).Row + 1
    
Sheets("1").Rows("2:" & Application.Rows.Count).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("feuil1").Range("A" & Pligvide)

'Recopie du code ci-dessus avec la variable RFRV
Sheets("1").Select
Range("A1").AutoFilter Field:=1, Criteria1:="RFRV"
Sheets("feuil1").Select
Pligvide = Range("A" & Rows.Count).End(xlUp).Row + 1
    
Sheets("1").Rows("2:" & Application.Rows.Count).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("feuil1").Range("A" & Pligvide)

End Sub

bonne journée

 

[Paf]

Bonjour,

l'utilisation d'un tableau contenant les "constantes" pourrait être une solution:

Dim T
T= Array("RBEI", "RFRV")

For i= Lbound(T) to Ubound(T)
          .../...
          ... Field:=1, Criteria1:= T(i)
          .../...
Next

A+

 

[pierrejean]

Bonjour desmonts

Edit: Salut Paf

A tester:

Sub essai2()
Dim Pligvide As Long
Codes = Array("RBEI", "RFRV") ' il est possible d'ajouter autant de codes que voulu
For n = LBound(Codes) To UBound(Codes)
Sheets("1").Range("A1").AutoFilter Field:=1, Criteria1:=Codes(n)
Pligvide = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("1").Rows("2:" & Application.Rows.Count).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("feuil1").Range("A" & Pligvide)
Next
End Sub

 

[desmonts]

Merci Pierrejean,
c'est effectivement ce que je souhaite. Par contre dès que je lance la macro il bloque au niveau de
LBound(Codes) et me met Erreur de compilation : tableau attendu. Aurais tu un explication ?
Par avance merci.

 

[Ikito]

Bonjour,

Ton tableau est-il bien déclaré comme suit :

Codes = Array("RBEI", "RFRV")

 

[desmonts]

Re,

J'ai fait un copier coller donc a priori cela devrait être bon ? je comprends pas. Je suis pas doué.

 

[pierrejean]

Re
Poste ton fichier

 

[desmonts]

Merci Pierrejean. Voici un petit bout de mon fichier pour l'exemple.

 

[laurent950]

Bonsoir,
La déclaration des variables :

Dim Pligvide As Long
Dim codes() As Variant ' c'est un Array donc de Type Variant
Dim n As Double ' C'est des nombres donc n est soit (integer, double, long,...)


cdt

 

[desmonts]

Ah oui cela fonctionne un grand merci à tous. Bonne soirée.

 

[Valtrase]

Salut le fil
Tu aurais pu aussi utiliser

Dim codes as String
For each codes in Array("XXX","YYY")
'Ici ta commande
next

 

[Staple1600]

Bonjour le fil

Pourquoi ne pas simplement utiliser le filtre élaboré?
(manuellement ou par macro)
Ci-dessous par macro

Sub Macro1()
'ajout pour RAZ
Feuil1.Columns("C:G").Clear
'///////////////////////////////////////////////
' Macro enregistrée le 25/07/2019 par STAPLE1600
Sheets("1").Range("A1:C40").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Range("A1:A3"), _
    CopyToRange:=Range("C1"), Unique:=False
'///////////////////////////////////////////////
    'ajout pour esthétique
    [C1].CurrentRegion.Columns.AutoFit
End Sub

Et le résultat obtenu par la macro ( sur la feuille 1)

NB: En jaune, les critères du filtre élaboré
Attention, c'est la feuille Feuil1 qui doit être la feuille active quand on lance la macro.