Réaliser une boucle for pour une recherche dans un tableau [Fermé]

Signaler
Messages postés
4
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
26 février 2016
-
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
-
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

1 réponse

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 607
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.