Code vBa sur excel

[ellea02]

Bonjour,

Je voudrais créer un message qui invite l'utilisateur à saisir son nom.
Si l'utilisateur clique sur OK, le programme sauvergarde son nom dans la cellule A1
Si on clique sur Annuler, le programme affiche un message "Fin du programme"
Et on clique sur ok alors que le nom est vide, le programme doit afficher un message d'erreur "ERREUR LE NOM EST VIDE" et réinviter l'utilisateur à taper un nom.

J'ai commecé le code VBA:
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Feuil1
Sub ranger()
Dim nom As String
Dim prénom As String

nom = InputBox("Tapez votre nom", "Identité")
If nom = vbOK Then
Range("c4") = nom
Else
MsgBox "OK"
End If
End Sub

 

[kjin]

Re : Code vBa sur excel

Bonjour,

J'ai commecé le code VBA:
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Feuil1
Sub ranger()

Késako ?!

Sub macro()
nom = Application.InputBox(prompt:="Tapez votre nom", Title:="Identité", Type:=2)
If nom = False Then
    MsgBox "Fin de programme"
    Exit Sub
End If
If nom = "" Then MsgBox "Erratum humanum est" Else: [A1] = nom
End Sub

A+
kjin