Bonjour,

Je souhaite à partir d'une réponse donnée par l'utilisateur dans un userform déterminer une liste de données. Dans la colonne F, je cherche la donnée et quand elle y est, j'agrémente ma liste avec le texte de la colonne G de la même ligne.
Cette liste sera ensuite dans une listbox dans un autre userform.

Dès que je lance ma macro j'ai l'erreur d'exécution 13 : incompatibilité de type et je n'arrive pas à trouver le probleme.

VOici mon code

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
Sub userform_initialize()
 
Worksheets("Cartographie").Select
Dim nompilote As String
i = 3
Do While Cells(i, 15) <> identifiant
i = i + 1
Loop
nompilote = Cells(i, 14) 'définition le pilote en fonction de l'identifiant
 
Worksheets("Suivi des documents").Activate
Dim j, k As String
Dim listetitre(7 To 800) As Integer
For j = 7 To 800
    If Cells(j, 6).Text = nompilote Then
    listetitre(j) = Cells(j, 7).Text
    End If     
   Me.ListBox1.AddItem listetitre(k)
Next j
 End Sub
Merci d'avance