Réaliser une boucle for pour une recherche dans un tableau

ngib Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'essaye de faire une boucle qui me fasse les mêmes instructions pour chaque ligne trouvé (LinProd étant déclaré en tableau) et L1.1 (le mot "L1.1" revient plusieurs fois dans la colonne) le mot à trouver.

Voici un bout de mon code 


Worksheets("Saisie").Activate
Set tabl = Sheets("Saisie").ListObjects("tab_mission")
    
    Set FAB = Range(tabl.ListColumns(6).DataBodyRange.Address)
    With FAB
    
    'Début de la boucle
    
   For i = LBound(LinProd) To UBound(LinProd)    'erreur sur cette ligne (l'indice ne correspond pas à la seletion)

    LinProd(i) = "L1.1"

        Set c = .Find(LinProd(i), LookIn:=xlValues)

                                  "                      "
                                  "Instructions      "
                                   "                      "

    Next i



Lorsque je lance le programme, ça m'affiche que l'indice ne correspond pas à la seletion.
Quelequ'un peut m'aider s'il vous plait?

Bonne journée
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

LinProd étant déclaré en tableau
Très bien. Encore faut-il le remplir pour qu'il soit "alloué".
LBound, tout comme UBound planteront toujours si ton tableau est vide de toutes valeurs, y compris de valeurs par défaut.
0

Discussions similaires

Tableau croisé dynamique - absence de certaines données
crazyrider71 -
Hana -

4 réponses