Message box fonctionnant avec des chiffres mais pas avec des lettres

Bonjour,

J'ai une message box fonctionnant avec des chiffres mais ne fonctionnant pas avec des lettres ou des noms.

Je joins un fichier pour explication.

En vous remerciant.

Bien cordialement.

Salut,

C'est normal que les mots ne marchent pas car le type de variable assigné à "TheNum" est double, qui la définie donc comme un chiffre.

Si tu veux que ta variable accepte les chiffres et les mots il faut mettre "variant".

Sub Bouton1_Cliquer()
'
' Bouton1_Cliquer Macro
'
    Dim nom, a As Range
    nom = InputBox("SAISIR LE NUMERO DU CLIENT", "MODIFIER UN CLIENT")

    Dim WS As String, WR As String
    Dim TheNum As Variant

    Sheets("ESSAI").Select

    TheNum = nom

    WS = "ESSAI"
    WR = "C5"

    With Worksheets(WS).Range(WR).Value = TheNum

    End With

End Sub

Bonjour Tconnesson,

En vous remerciant pour la solution et les explications.

Grand merci à vous.

Bien cordialement.