A voir également:
- Extraire uniquement les mots, contenus dans une cellule
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Extraire texte d'une image - Guide
1 réponse
Salam gexelpas :)
Essaye ce code pour voir :
En supposant que les textes sont en colonne A et les résultats en colonne B.
Fais-nous part du résultat.
Essaye ce code pour voir :
Public Sub Extraire()
With Sheets("Feuil1")
ligne = 1
While .Cells(ligne, 1) <> ""
texte = .Cells(ligne, 1)
resultat = ""
For i = 1 To Len(texte)
c = Mid(texte, i, 1)
Select Case c
Case "A" To "Z", " ", "-": resultat = resultat & c
End Select
Next i
''' supprimer les caractères non alphabétiques au début de résultat
While Left(resultat, 1) = " " Or Left(resultat, 1) = "-"
resultat = Right(resultat, Len(resultat) - 1)
Wend
''' supprimer les caractères non alphabétiques en fin de résultat
While Right(resultat, 1) = " " Or Right(resultat, 1) = "-"
resultat = Left(resultat, Len(resultat) - 1)
Wend
.Cells(ligne, 2) = resultat
ligne = ligne + 1
Wend
End With
End Sub
En supposant que les textes sont en colonne A et les résultats en colonne B.
Fais-nous part du résultat.
Tout d'abord, merci pour ta réponse.
Je vais l'essayer ce weekend, car on m'a, "monopolisé" sur un autre sujet au boulot.
Je te tiendrai au courant.
D'ici là, encore une fois: Merci !!!