Supprimer le premier et le dernier caractère d'une cellule

Bonjour,

j' ai une cellule A1 j'aimerai bien supprimer le premier caractère et le dernier caractère de cette cellule à condition qu'ils soient des points "."

par exemple: j'ai dans ma cellule A1 la phrase suivante . je viens de voir ta photo, c'est très magnifique .

je veux obtenir le résultat sur la cellule.

Bonjour,

Un essai, cela supprime tout les points

Sub test()
Dim c As Range
For Each c In Range("a1:e5")
  c.Value = Replace(c.Value, ".", "")
Next c
End Sub

Je rajoute aussi en fichier joins une version sans macro

Cognomen

Merci pour ton aide, pourtant dan ma macro je coudrais juste supprimer les points qui se trouvent au début et à la fin de la phrase.

Voila la macro modifier

Merci ça fonctionne parfaitement

Bonjour,

Sans boucle :

Sub Test()
Dim str As String
  str = Range("A1").Value
  str = Replace(str, ".", " ")
  str = Application.WorksheetFunction.Trim(str)
' et question suivante :
'  str = Replace(str, " ", " . ")      'ou str = Replace(str, " ", ".")
  Range("A1").Value = str
End Sub

Et sans VBA :

=SUPPRESPACE(SUBSTITUE(A1;".";" "))

et pour remplace les espaces par des points (ce sera la question suivante)

=SUBSTITUE(SUPPRESPACE(SUBSTITUE(A1;".";" "));" ";" . ")

ou selon le cas :

=SUBSTITUE(SUPPRESPACE(SUBSTITUE(A1;".";" "));" ";".")

Je vous remercie beaucoup pour vos réponses