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

Fermé
ngib Messages postés 4 Date d'inscription vendredi 26 février 2016 Statut Membre Dernière intervention 26 février 2016 - 26 févr. 2016 à 03:56
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 26 févr. 2016 à 09:44
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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 févr. 2016 à 09:44
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