1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub libelles()
' créer un tablo_xx par mots cle
' tablo_01 = array( cellule "sport" et cellule "tennis", cellule "indiv"
tablo_01 = Array(Range("A19") & " " & Range("B19"), Range("C19"))
tablo_02 = Array(Range("A20") & " " & Range("B20"), Range("C20"))
tablo_03 = Array(Range("A21") & " " & Range("B21"), Range("C21"))
tablo_04 = Array(Range("A22") & " " & Range("B22"), Range("C22"))
tablo_05 = Array(Range("A23") & " " & Range("B23"), Range("C23"))
' créer un tablo récapitulatif
montablo = Array(tablo_01, tablo_02, tablo_03, tablo_04, tablo_05)
' boucle sur les libelles
For i = 19 To 23 ' à adapter
' mavar = "sport tennis" ' exemple: D19
mavar = Split(Range("D" & i), " ")(1) & " " & Split(Range("D" & i), " ")(2)
p = Application.Match(mavar, Application.Index(montablo, , 1), 0)
' pour test vérif, à supprimer
MsgBox p
' pour test vérif, à supprimer
MsgBox montablo(p - 1)(1)
' à "envoyer" dans la cellule "catégorie finale
Range("E" & i) = montablo(p - 1)(1)
Next i
End Sub |
Partager