Supprimer mot dans ligne en VBA
Patlechat
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
dans un doc excel j'ai des lignes avec des infos comme ceci :
Adresse 1 Adresse 2 Téléphone 00 00 00 00 00 Ville
je voudrais supprimer dans chaque ligne tout ce qu'il y a aprés le mot Téléphone (le mot Téléphone inclus)
Merci pour votre aide.
A+
dans un doc excel j'ai des lignes avec des infos comme ceci :
Adresse 1 Adresse 2 Téléphone 00 00 00 00 00 Ville
je voudrais supprimer dans chaque ligne tout ce qu'il y a aprés le mot Téléphone (le mot Téléphone inclus)
Merci pour votre aide.
A+
A voir également:
- Supprimer mot dans ligne en VBA
- Supprimer rond bleu whatsapp - Guide
- Partager photos en ligne - Guide
- Supprimer une page dans word - Guide
- Mot de passe - Guide
- Mètre en ligne - Guide
6 réponses
Bonjour,
Ton texte à épurer en A1,
en A2: =SUPPRESPACE(GAUCHE(A1;CHERCHE("Téléphone";A1)-1)) et recopier vers le bas selon besoin.
eric
Ton texte à épurer en A1,
en A2: =SUPPRESPACE(GAUCHE(A1;CHERCHE("Téléphone";A1)-1)) et recopier vers le bas selon besoin.
eric
Bonjour,
Exemple :
Lupin
Exemple :
Sub SupprimeLigne1()
'Adresse 1 Adresse 2 Téléphone 00 00 00 00 00 Ville
Dim Ligne As String, Position As Integer
Dim Limite As Long, Boucle As Long
Limite = Range("A1:A65535").End(xlDown).Row
For Boucle = 1 To Limite
Ligne = Cells(Boucle, 1).Value
Position = InStr(1, Ligne, "Téléphone", vbTextCompare)
If (Position > 0) Then
Cells(Boucle, 1).Value = Mid(Ligne, 1, Position - 1)
End If
Next Boucle
End Sub
'
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question