Extraire une lettre d'une cellule d'un tableau excel

DenisPONCIN
Messages postés
1
Date d'inscription
lundi 29 juin 2009
Statut
Membre
Dernière intervention
15 juillet 2009
- 15 juil. 2009 à 14:16
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
- 15 juil. 2009 à 20:54
Bonjour,
Je souhaite extraire une lettre spécifique dans une cellule d'un tableau excel et reproduire cette lettre dans une autre cellule d'une autre colonne.

exemple:
A1=9C12345E
A2=9C1234EXXXX
A3=9C123

Je souhaite extraire le lettre E et la reproduire dans une cellule B1;B2 ou B3.
La cellule B3 sera donc vide car la A1 ne contient pas la lettre E.
Merci d'avance pour vos répnses.

2 réponses

Pistol_Pete
Messages postés
1054
Date d'inscription
samedi 2 octobre 2004
Statut
Membre
Dernière intervention
9 juillet 2013
7
15 juil. 2009 à 14:58
Salut
Le VBA est fait pour faire des petites opérations comme celle la. Je te conseil de chercher quelques tutos sur le VBA, c'est vraiment pas difficile.
A+
____________________________________________________________________________
Mon site internet :  
0
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
15 juil. 2009 à 20:54
Bonjour ,

Un exemple a exploiter

Dim i As Integer, j, Ligne
Dim Mot, Lettre, MotReconstitué As String, LettreE

For Ligne = 1 To 10
MotReconstitué = ""
LettreE = 0
Mot = Trim(Feuil1.Cells(Ligne, 1).Value)
For i = 1 To Len(Mot)
Lettre = Mid(Mot, i, 1)
If Lettre <> "E" Then
MotReconstitué = CStr(MotReconstitué) & CStr(Lettre)
Else
LettreE = LettreE + 1
End If
Next

Feuil1.Cells(Ligne, 1).Value = MotReconstitué
Feuil1.Cells(Ligne, 2).Value = ""

If LettreE > 0 Then
For j = 1 To LettreE
Feuil1.Cells(Ligne, 2).Value = Feuil1.Cells(Ligne, 2).Value & "E"
Next
End If


Dedenet2
0