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
dans le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part For v = 0 To UBound(rep)
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
Partager