supprimer mot dans ligne en VBA Fermé

Question

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+

eriiic · Answer

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

Utilisateur anonyme · Answer

Bonjour,

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

Patlechat · Answer

Merci mais comment en faire une macro ?

Merci.

A+

Patlechat · Answer

Pardon pas vu le prog de Lupin.
je vais mettre en place le prog

Merci.

Patlechat · Answer

Super merci ca fonctionne bien.

A+

eriiic · Answer

Ah excuse, je n'avais pas vu 'en vba'...

Supprimer mot dans ligne en VBA

6 réponses

Discussions similaires