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

Paf

XLDnaute Barbatruc

• 24 Juillet 2019

• #2

Bonjour,

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

VB:

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

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

A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juillet 2019

• #3

Bonjour desmonts

Edit: Salut Paf

A tester:

VB:

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

 

Vote positif 0 Vote négatif

D

desmonts

XLDnaute Occasionnel

• 24 Juillet 2019

• #4

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.

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 24 Juillet 2019

• #5

Bonjour,

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

VB:

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

 

Vote positif 0 Vote négatif

D

desmonts

XLDnaute Occasionnel

• 24 Juillet 2019

• #6

Re,

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juillet 2019

• #7

Re
Poste ton fichier

 

Vote positif 0 Vote négatif

D

desmonts

XLDnaute Occasionnel

• 24 Juillet 2019

• #8

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

 

Pièces jointes

• litige.xlsm

  20.8 KB · Affichages: 5

Vote positif 0 Vote négatif

laurent950

XLDnaute Accro

• 24 Juillet 2019

• #9

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

 

Vote positif 0 Vote négatif

D

desmonts

XLDnaute Occasionnel

• 24 Juillet 2019

• #10

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

 

Vote positif 0 Vote négatif

Valtrase

XLDnaute Occasionnel

• 25 Juillet 2019

• #11

Salut le fil
Tu aurais pu aussi utiliser

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Juillet 2019

• #12

Bonjour le fil

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

VB:

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.

 

Vote positif 0 Vote négatif