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.
bonne journée
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.
VB:
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