Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

excel et les lettres

  • Initiateur de la discussion Initiateur de la discussion poipoi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

poipoi

XLDnaute Impliqué
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
 
Re : excel et les lettres

Bonjour,

Une tentative avec cette formule :

Ta liste de mots en colonne A

en B1 :

Code:
=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

@+
 
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?
 
Re : excel et les lettres

Bonjour poipoi, salut Tibo,

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

Code:
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+
 
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..)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
750
L
  • Question Question
Réponses
3
Affichages
768
S
Réponses
4
Affichages
3 K
S
Réponses
18
Affichages
3 K
F
  • Question Question
Réponses
11
Affichages
1 K
Réponses
1
Affichages
1 K
N
Réponses
21
Affichages
3 K
Nicolas Michel
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…