Comparer une plage à un tableau

Bonsoir à tous,

J'aimerais comparer une plage à un tableau Tbl.

Je voulais utiliser la fonction InArray, mais ça ne marche pas :

[CODE]if cel.Value inarray(tbl) then range("F" & Cel.Row).Value="#" & Str=
date & "#"[/CODE]

Alors j'ai ajouté quelques lignes de codes en plus, pour remplacer le tra=
vail de cette fonction

Sub Comparer()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long, j As Long
Dim Tbl() As String, Strg As String, Strdate As String
Dim C As Range, Cel As Range

Set WS1 = Sheets("feuil1")
Set WS2 = Sheets("feuil2")
Strdate = Format(Now, "dd/mm/yy")


'-- Remplir le tableau Tbl par les valeurs de la colonne A correspondan=
te
i = 1
For Each C In WS2.Range("F2:F" & WS2.[F65000].End(xlUp).Row)
If C.Value = "Done" Then
ReDim Preserve Tbl(i)
Tbl(i) = WS2.Range("A" & C.Row)
i = i + 1
End If
Next C

'-- Regrouper les valeurs du Tbl dans la chaine Strg pour faciliter la =
comparaison avec InStr
For j = 1 To UBound(Tbl)
Strg = Strg & Tbl(j) & "|"
Next j

'-- S'il y a une valeur de la colonne A feuille 1 qui corresponde à u=
ne valeur de Tbl
'-- On écrit la date d'aujourd'hui dans la colonne F
For Each Cel In WS1.Range("A2:A" & [A65000].End(xlUp).Row)

'if cel.Value inarray(tbl) then range("F" & Cel.Row).Value="#" & =
Strdate & "#"
If InStr(Strg, Cel.Value) = 1 Then
Range("F" & Cel.Row).Value = "#" & Strdate & "#"
End If
Next Cel
End Sub

1 - Existe-t-il une fonction similaire pour comparer une valeur à toutes =
les valeurs d'un tableau en une seule fois ?

2 - Si mon tableau Tbl comporte 4 valeurs, la dernière boucle du code ne =
considère la comparaison juste avec Instr que pour la première valeur s=
eulement !

3 - Sinon comment réduire ces lignes de codes ?

Merci d'avance.

---

• Partager ce contenu :