excel et les lettres

[poipoi]

Bonjour à tous
Pour créer un dictionnaire j'ai une liste de mots, normal!! mais avec excel je voudrais recréer une liste de mots qui n'ont pas de jambage: c'est à dire: a,c,e,i,m,n,o,r,s,u,v,w,x.
je pensais à une formule qui permettrait de supprimer toutes les autres lettres (b,d,f,g...) .
j'aurai donc un dictionnaire de mots sans jambage..
heu.. c'est peu être pas très clair..??
Et si vous passez par-là, déjà merci de votre aide

PS: en fait pour ceux que les contraintes intéressent, je vais avoir d'autres questions pour la création de dictionnaires avec excel

 

[Tibo]

Re : excel et les lettres

Bonjour,

Une tentative avec cette formule :

Ta liste de mots en colonne A

en B1 :

=SOMMEPROD((ESTNUM(TROUVE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);
"aceimnorsuvwx")))*1)=NBCAR(A1)

retourne FAUX si pas bon, VRAI si les lettres sont dans la liste des lettres acceptées.

Pas fait de test grandeur nature, donc à vérifier quand même

@+

 

[poipoi]

Re : excel et les lettres

bonjour Tibo
et ben même sans test, t'as tout juste un grand merci donc..
je peux oser une autre question du même ordre et qui découle de la 1ère ou dois-je créer un autre post?

 

[job75]

Re : excel et les lettres

Bonjour poipoi, salut Tibo,

Une solution VBA qui supprime les mots indésirables en colonne A à partir de A2 :

Sub DicoSpecial()
Dim txt$, cel As Range, i As Byte
txt = "aceimnorsuvwx"
For Each cel In Range("A2", Range("A65536").End(xlUp))
  For i = 1 To Len(cel)
    If InStr(txt, Mid(cel, i, 1)) = 0 Then cel = "": Exit For
  Next
Next
Range("A2", Range("A65536").End(xlUp)).Sort [A2], xlAscending, Header:=xlNo
End Sub

A+

 

[poipoi]

Re : excel et les lettres

bonjour Job75
et merci beaucoup pour ta solution
me voilà donc avec 2 possibiltés.. va falloir choisir !!




j'y arriverai un jour, j'y arriverai .... (pour les nostalgiques de Palace..)