Bonjour,
J'ai 2 colonnes de données et je dois récupérer les données de la seconde en fonction de ce qui se trouve dans la première. Toutes les données sont du texte.
J'ai donc écris ce code:
Cette ligne pose probleme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Dim mot_cle As String, tableau_mot_cle() As String, tableau_transaction_brut() As String Dim i As Integer Dim ligne As Long mot_cle = InputBox(Prompt:="Mots clés", Title:="titre") tableau_mot_cle = Split(mot_cle, " ") nb_mot_cle = UBound(tableau_mot_cle) i = 0 ligne = 1 While (Cells(ligne, 1) <> "" And nb_mot_cle <> 0) 'a modifier If Cells(ligne, 1) = tableau_mot_cle(nb_mot_cle) Then MsgBox Cells(ligne, 2) tableau_transaction_brut(i) = Cells(ligne, 2) i = i + 1 nb_mot_cle = nb_mot_cle - 1 ligne = 0 End If ligne = ligne + 1 Wend
Elle me renvoie "Erreur d'exécution '9': L'indice n'appartient pas à la sélection". J'ai testé en mettant le tableau en Variant ou en mettant une valeur fixe à la place de i: rien n'y fait.
Code : Sélectionner tout - Visualiser dans une fenêtre à part tableau_transaction_brut(i) = Cells(ligne, 2)
L'affichage avec MsgBox juste avant renvoi la bonne valeur.
Merci pour votre aide!
Partager