Function VBA

Bonjour,

Je souhaiterais que les espaces d'une cellule se suppriment immédiatement après la saisie de la valeur de cette cellule. En d'autres termes, dès que je fais "Enter".

Merci pour votre aide.

Bonjour,

Essaie cette procédure qui effectue la suppression des espaces dans A1 (code à placer dans le module de la feuille concernée) :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        Target = Replace(Target, " ", "")
        Application.EnableEvents = True
    End If
End Sub

A+

Bonjour,

Cette procédure fonctionne très bien.

Merci à toi Frangy.