Bonjour,
je me retrouve devant une incompatibilité de type dans la gestion des tableaux.

j'aimerais que l'utilisateur puisse déterminer quel array il va utiliser mais ça bloque au niveau de

Code : Sélectionner tout - Visualiser dans une fenêtre à part
For v = 0 To UBound(rep)
dans le code suivant :

Auriez-vous une idée svp ?
merci

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
Sub Test()
Dim derligne as Long
Dim Valeurs_Possibles_08 as Variant, Valeurs_Possible_05 as Variant, rep as Variant
Dim v As Integer
Dim F As Boolean
 
 
rep = InputBox("Ligne ? actuellement dispo 05, 08")
rep = "Valeurs_Possibles_" & rep
 
Valeurs_Possibles_08 = Array("Arret1", "Arret2", "Arret3")
Valeurs_Possibles_05 = Array("Arret4", "Arret5", "Arret6", "Arret7")
 
derligne = Range("A" & Rows.Count).End(xlUp).Row
For i = derligne To 2 Step -1
F = False
  For v = 0 To UBound(rep)
    If Cells(i, 8) Like rep(v) Then
      F = True
    End If
  Next v
  If F = False Then Rows(i).Delete
Next i
End Sub