Formule VBA erronée

Bonjour à tous,

J'ai commencé à faire des exercices de VBA.

J'ai créé la formule suivante, qui devrait afficher une boite de dialogue avec des informations.

Rien ne s'affiche, sauf 00.00.0000

Où est l'erreur ?

Sub mesVariables()

Dim Nom As String, Paiement As Date, Montant As Integer, Numéro As Variant

Nom = Cells(368, 3)
Paiement = Cells(368, 4)
Montant = Cells(368, 5)

Numéro = C351

Sheets("Client").Activate

MsgBox Nom & « » & Paiement & « » & Montant & « THB » & Numéro & « »

End Sub

Merci de votre aide.

Cordialement,

Olivier

Bonjour,

Teste comme ceci

Sub mesVariables()

Dim Nom As String, Paiement As Date, Montant As Integer, Numéro As Variant

Nom = Cells(368, 3)
Paiement = Cells(368, 4)
Montant = Cells(368, 5)

Numéro = "C351"

Sheets("Client").Activate

MsgBox Nom & " " & Paiement & " " & Montant & " THB " & Numéro & " "

End Sub

Bonjour,

Merci pour le retour.

Je reçois le message :

00:00:00 0 THB C351

Cordialement,

Olivier

Re, place ton fichier en exemple

un test avec la ligne 3

Merci M12.

Ça marche.

Cordialement,

Olivier

Bonjour M12,

J'ai une question complémentaire : y a -t-il une formule qui permet de demander l'affichage du contenu de la boite de dialogue dans 3 ou 4 cellules d'une autre feuille de calcul du même tableau ?

Te remerciant,

Cordialement,

Olivier

Re,

Si j'ai compris ta demande

Oui, c'est ça, mais s'affichant l'une en dessous de l'autre, dans une seule feuille de dialogue.

Cordialement,

Olivier

Re,

Je crains que ce ne sois pas possible avec le MsgBox classique, il d'afficherais les uns sur les autres

OK, compris.

Merci pour le retour.

Bien cordialement,

Olivier