Rajouter des Parenthèses avant et après avec un code VBA

Bonsoir à tous,

Je souhaiterai avec un code VBA mettre en automatique les chiffres qui vont écrit dans la colonne A.

C'est à dire que je tape 9 il affiche (9), je tape 100 affiche (100) ect.......

Merci pour votre aide

Hello,

Tu peux utiliser les formats personnalisés directement

@+

J'ai trouvé ce code :

Je n'arrive pas à l'adapter à la colonne A

Public Function ParenthesesAvantEtApres(R as Range) As String
    ParenthesesAvantEtApres = "(" & R.Value & ")"
End Function

Bonjour,
Une proposition à optimiser ?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo errHandler
    If Not Intersect(Target, Me.Range("A1:A20")) Is Nothing And Target.CountLarge = 1 Then
        Application.EnableEvents = False
        If Not IsEmpty(Target) And IsNumeric(Target) Then
            Target.Value = "'(" & Target.Value & ")"
        End If
    End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub

errHandler:
    MsgBox "Erreur : " & Err.Number & Chr(10) & Err.Description
    Resume exitHandler

End Sub

hello,

Pourquoi par VBA ?
au risque de me répéter, les formats personnalisés ne fonctionnent pas ?

@+

Bonsoir a tous,

Je rajoute un fichier avec commentaires.

En passant par personnalisé, la formule concatener en colonne A ne reprend pas les parenthèses tandis que la Vba oui

question comment mettre des parenthèse avec les lettres ?

Merci pour l'aide

Bonsoir Man, Le Fil,

Pourquoi par VBA ?

au risque de me répéter, les formats personnalisés ne fonctionnent pas ?

Comme l'indique BAROUTE78, on peut passer par des formats personnalisés pour cela.

Pour respectivement les chiffres et nombres entiers puis les textes, prendre les deux formats ci-dessous.

(0) Chiffres ou nombres ou (@) pour textes.

Résultat: sur 2 cellules de la feuille plus vue de la fenêtre Format de Cellule.

Bonjour à tous et merci X cellus pour ta réponse.

Cela fonctionne mais avec la formule concatener celle-ci ne reprend pas les ()

Merci pour l'aide

Bonjour tous

Aucun nombre (donc ni date) n'est formaté dans une simple concaténation : il faut utiliser la fonction TEXTE pour indiquer le format voulu

Bonjour,
Une proposition avec Texte(), comme suggéré par 78chris.
Cdlt.

Bonsoir Jean Eric

Merci à tous pour l'aide

Re,