recherche de mots Résolu/Fermé

Question

Bonjour à tous,
Je suis en stage en tant que futur ingénieur en aéroport et j'ai un petit problème.
Je dois programmer une macro qui : dans une liste de mots, me resortir les aérodromes. 
par exemple : sur une colone : voiture, chat, maison, NTTB, chien
je voudrais que ma macro resorte (soit en couleur soit dans une autre feuille peu importe) le mot NTTB. Il y'a une 15aine d'aérodromes de ce genre. 
En fait c'est pour filtrer des modification excel pour savoir quels aérodromes sont affectés.
Je suis un peu fragile en VBA donc ...

Merci.
cordialement

ThauTheme · Answer

Bonsoir Vbauserx, bonsoir le forum,

C'est pas très clair tout ça ! Je doute que tu obtiennes des réponses Monsieur le futur ingénieur en aéroports... Ça m'a plu ce nom tiens ! Doré de l'avant je vais me faire appeler "Futur Ingénieur de Poland Ploie" !... Oui c'est en Pologne...
 
À plus,
ThauTheme

ThauTheme · Answer

Re,

Toujours pas assez clair :
dans quel onglet se trouve le texte transposé ?
Quelle est la colonne de cet onglet?
Où se trouve la liste ? quel onglet ? Quelle colonne ?

ThauTheme · Answer

Re,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DLA As Integer 'déclare la variable DLA (Dernière Ligne de la colonne A)
Dim DLB As Integer 'déclare la variable DLB (Dernière Ligne de la colonne B)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)

Set O = Sheets("Feuil1") 'définit l'onglet O
DLA = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne éditée de la colonne A, DLA, de l'onglet O
DLB = O.Range("B" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne éditée de la colonne B, DLB, de l'onglet O
For I = 1 To DLA 'boucle 1 : sur tous les mot du texte transposé en colonne A
    For J = 1 To DLB 'boucle 2 : sur tous les mots de la liste en colonne B
        'condition : si le mot de la liste en ligne J colonne 2 (=B) est contenu dans le texte en ligne I colonne 1 (=A)
        If InStr(1, O.Cells(I, 1).Value, O.Cells(J, 2).Value, vbTextCompare) <> 0 Then
            O.Cells(I, 1).Interior.ColorIndex = 3 'colore le mot en colonne A de rouge
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochain mot de la liste de la boucle 2
Next I 'prochain mot du texte transposé de la boucle 1
End Sub

un fichier exemple

ThauTheme · Answer

Re,

Fait l'effort de mettre ton fichier en pièce jointe (ce que tu aurais dû faire depuis le début...), je ne suis pas devin !

Recherche de mots

4 réponses

Discussions similaires