Discussion :

[Axe_Débutant]

Bonjour tout le monde,

Je dois retrouver dans une liste, le code associé au pays BOTSWANA (code 347 pour info).

Le problème, c'est que dans ma table de référence, l'orthographe du pays est correcte, alors que dans mon classeur en question, il est indiqué BOSTWANA au lieu de BOTSWANA (inversion du S et du T).

Aussi, y a t-il une fonction qui me permettrait de retrouver le nom correct du pays en questions, bien qu'il y ait une erreur de saisie ?

Ou alors, est-il possible de faire une recherche dans ma table afin de retrouver la cellule contenant le nom de pays composé des lettres : "B", "O", "T", "S", "W", "A", "N" et "A", afin de ne pas étre inquiété par les éventuelles inversions de caractères ?

J'espère avoir été assez clair.

En tout cas, merci à tous.

[QuestVba]

Bonjour,

Une piste : les anagrammes.

[rvtoulon]

Bonjour,
il y a quelques temps j'avais besoin de faire une recherche du même genre, dans la feuil 1 dans la colonne A je définie dans une variable plage ma zone de recherche, et j'affichais le résultat de ma recherche dans un msgbox.
Ce code est à adapter en fonction de tes besoins :

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
25
26
Dim plage As Range
Dim Msg, Style, Title, Response
 
With Sheets("Feuil1")
    Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
 
For Each c In plage
    'si le mot dans la cellule commence par BO alors
    If c.Value Like "BO*" Then
        Msg = "Voici le Pays trouvé: " & c.Value & Chr(10) & " Souhaitez-vous poursuivre votre recherche?"    ' Définit le message.
        Style = vbYesNo + vbInformation + vbDefaultButton2    ' Définit les boutons.
        Title = "Résultat de Recherche"    ' Définit le titre.
 
         ' Affiche le message.
        Response = MsgBox(Msg, Style, Title)
            If Response = vbYes Then    ' L'utilisateur a choisi Oui.
                GoTo prochain
            Else    ' L'utilisateur a choisi Non.
                Exit For    ' Effectue une action.
            End If
 
     End If
 
prochain:
Next c
End With