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

Question

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.

Pistol_Pete · Answer

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 :

dedenet2 · Answer

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

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

2 réponses

Votre réponse