Boucle VBA sur valeur et variable filtre

Fermé
opanis - Modifié le 13 févr. 2022 à 09:38
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 13 févr. 2022 à 15:06
Bonjour,

Je débute en VBA sous excel, j'aimerais faire des boucles mais je n'y arrive pas.

1ere soucis
Dans mon fichier, j'exécute 15 fois une boucle qui récupére des données dans un onglet, mais dans certains 3 boucles sont nécessaire car il n'y a plus d'évolution.

J'aimerais un code qui met si Cellule P3 >P2 (P2 étant la valeur en chiffre de P3 au début de la boucle) , cela continu sinon cela s'arrête. J'ai essayé

'Dim numeroN As Integer
 'Dim numero As Integer
    'numero = Cells(3, 16)

    'numeroN = Cells(2, 16)

    'Do While numero > numeroN


Mais cela ne marche pas

2ème soucis
Mon code filtre un tableau à partir d'une colonne, j'ai le longtemps code suivant
qui a 2 inconvéhient, limite à 25 sélections et obligé d'écrire les lignes, est-il possible de définir une variable qui dit que le filtre doit se faire sur l'ensemble des valeurs de la colonne R:R sachant que je peux avoir plus de 200 valeurs à filtrer :


'

    Dim table_tri
    Set table_tri = Worksheets("PF").Range("R:R")
    Worksheets("BDD FAB").ListObjects("TableauA8").Range.AutoFilter Field:=1, Criteria1:=Array(CStr(table_tri(1, 1)), _
    CStr(table_tri(2, 1)), _
    CStr(table_tri(3, 1)), _
    CStr(table_tri(4, 1)), _
    CStr(table_tri(5, 1)), _
    CStr(table_tri(6, 1)), _
    CStr(table_tri(7, 1)), _
    CStr(table_tri(8, 1)), _
    CStr(table_tri(9, 1)), _
    CStr(table_tri(10, 1)), _
    CStr(table_tri(11, 1)), _
    CStr(table_tri(12, 1)), _
    CStr(table_tri(13, 1)), _
    CStr(table_tri(14, 1)), _
    CStr(table_tri(15, 1)), _
    CStr(table_tri(16, 1)), _
    CStr(table_tri(17, 1)), _
    CStr(table_tri(18, 1)), _
    CStr(table_tri(19, 1)), _
    CStr(table_tri(20, 1)), _
    CStr(table_tri(21, 1)), _
    CStr(table_tri(22, 1)), _
    CStr(table_tri(23, 1)), _
    CStr(table_tri(24, 1)), _
    CStr(table_tri(25, 1))), Operator:=xlFilterValues

  
    Sheets("BDD FAB").Select

    Range("A10:G85050").Select

    Selection.Copy


Merci d'avance de votre aide

2 réponses

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 févr. 2022 à 14:47
bonjour,
pour ton premier soucis, tu ne montres qu'une partie de ton code, nous ne pouvons pas déterminer où est ton erreur.
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 févr. 2022 à 14:51
que signifie "filtre un tableau à partir d'une colonne"?
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 févr. 2022 à 15:06
0