VBA - Boucle de recherches

Version imprimable

13/04/2021, 15h58
ANDev

1 pièce(s) jointe(s)

VBA - Boucle de recherches

Bonjour à tous,
Je débute sur VBA (et sur ce forum!) et je suis bloquée pour réaliser la demande suivante (cf image en pj).

J'ai
> un tableau de paires de mots clés dont chaque association crée une catégorie spécifique
> une liste de libellés pouvant contenir les mots clés et pour lesquels je recherche la catégorie

L'objectif est que chaque libellé soit affecté d'une catégorie en fonction des mots clés qu'il contient.

Comment faire pour que la macro:
> pour chaque ligne de libellé, parcourt toute la liste des paires de mots clés et affecte la bonne catégorie
> Si elle ne trouve pas de catégorie, renvoie "Catégorie manquante"
> Passe au libellé suivant une fois qu'elle a terminé le premier etc...

Un VLOOKUP sous excel serait trop fastidieux car j'ai énormément de lignes.
J'ai essayé d'écrire une macro avec IF dans une boucle DO UNTIL, mais je n'y arrive pas.

Un grand merci pour vos conseils !
Bonne journée,
Aurélie

Bonsoir à toutes et tous
Bonsoir Aurélie

Je te propose ceci (si j'ai bien compris ;))

Code:

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

bien entendu c'est à adapter

Tu dis

Eric

Re

Si tu as beaucoup de lignes de mots-cle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub libelles_grande_liste()
Dim a As Integer, i As Integer, p As Integer
Dim tablo() As String
 
ReDim tablo(12, 1)  ' à adapter : le 12 est le nombre de lignes de mots cle
 
' boucle sur les mots-cle
For a = 19 To 30  ' à adapter : lignes du tableau
    tablo(a - 19, 0) = Range("A" & a) & " " & Range("B" & a)
    tablo(a - 19, 1) = Range("C" & a)
Next a
 
' boucle sur les libelles
For i = 19 To 30 ' à adapter
    mavar = Split(Range("D" & i), " ")(1) & " " & Split(Range("D" & i), " ")(2)
    p = Application.Match(mavar, Application.Index(tablo, , 1), 0)
    Range("E" & i) = tablo(p - 1, 1)
Next i
 
End Sub

A+
Eric

14/04/2021, 14h23
ANDev

Bonjour Eric,
Un grand grand merci d'avoir pris de le temps de m'aider !
Ca fonctionne bien avec la deuxième approche car j'ai en effet beaucoup de lignes !

Merci beaucoup pour ces précieux conseils !

Bonne journée,
Aurélie
14/04/2021, 19h00
eric4577

Bonsoir Aurélie

Content pour toi. Merci du retour

Eric
15/04/2021, 09h22
Pierre Fauconnier

1 pièce(s) jointe(s)

Salut.

Perso, je pense qu'il faut déjà un très grand nombre de lignes (qu'il serait utile que tu précises), surtout dans le tableau des mots-clés, pour qu'un code VBA itératif aille plus vite qu'une formule Excel, à mon avis.

Combien de lignes dans ton tableau des mots-clé? Combien de lignes dans ton tableau final? Je serais curieux de faire le test. L'avantage de la formule est que si tes tableaux grandissent, tu ne dois pas relancer le code VBA...

Pièce jointe 595701

Si j'avais à réaliser ce travail, je commencerais par traiter les données pour les éclater dans 3 colonnes (Prénom, clé 1, clé 2), ce qui simplifierait beaucoup le traitement et l'analyse des données. Je pense que beaucoup de code VBA pourrait être supprimé si on prenait le temps de travailler "comme il faut", et donc de passer par la première étape qui est la préparation des données.
19/04/2021, 09h30
ANDev

Bonjour Pierre,

Merci pour votre retour.
Dans mon exemple, j'ai beaucoup simplifié les éléments, mais en réalité, les libellés contenant les mots clés ne sont pas aussi structurés.
Le nombre de mots clés et de libellés peut également varier régulièrement, donc je ne peux pas fixer le nombre de lignes.
J'ai réussi à faire un code VBA simple qui permet de traiter les éléments de cette façon !

Merci beaucoup et bonne journée,
Aurélie
19/04/2021, 09h41
Pierre Fauconnier

Citation:

Envoyé par ANDev

[...]
Dans mon exemple, j'ai beaucoup simplifié les éléments, mais en réalité, les libellés contenant les mots clés ne sont pas aussi structurés.[...]

D'où ma remarque, régulièrement exprimée sur les forums, qu'il est préférable de donner la situation réelle plutôt que "simplifier", qui amène à des réponses éventuellement inadaptées. C'est un peu comme si tu disais "Je n'arrive pas à piloter mon Cessna monomoteur" alors qu'en fait, tu te débats dans le cockpit d'un 747 :roll: