Je suis à la recherche d'un code VBA qui me permettrait de supprimer le premier et dernier mot d'une chaine comportant forcément au moins deux espaces.
Exple: "Le pigeon gris" en entrée devient "pigeon" en sortie.
Re : Macro pour supprimer le premier et le dernier mot d'une phrase
Bonjour Ckoebel,
Voici une solution possible:
Sub Decoupe()
Dim Phrase() As String
Dim Résultat As String
Dim Tourne As Integer
If Range("A2") <> "" Then
Phrase = Split(Range("A2"), " ")
For Tourne = 1 To UBound(Phrase) - 1
Résultat = Résultat & " " & Phrase(Tourne)
Next Tourne
Range("B2") = Trim(Résultat)
End If
End Sub
Re : Macro pour supprimer le premier et le dernier mot d'une phrase
Bonjour à tous,
As-tu essayé avec Données / Convertir ?
VB:
Sub Test()
Set Plage = Range("A2:" & Range("A65536").End(xlUp).Address)
Plage.Offset(0, 1).Resize(Plage.Rows.Count, 200).ClearContents
If Cells.SpecialCells(xlLastCell).Column <> 1 Then Range(Range("B2"), Range("B2").SpecialCells(xlLastCell)).ClearContents
Plage.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, Space:=True
End Sub