Probleme code VBA

Bonjour c'est encore moi

Un autre petit sousi àvous faire part!

en ce moment j'utilise ce code :

If Len(nom) = 0 Then
        nom.SetFocus
        MsgBox "Nom vide", vbOKOnly + vbInformation
        Exit Sub
    End If

Qui veut dire que si je ne marque rien dans ma boite de dialogue "nom", une fenêtre apparait et me marque "nom vide".

Ce que j'aimerais c'est que lorsque je ne marque rien dans ma boite de dialogue "nom", et bien que la cellule dans mon tableur m'affiche "INCONNU".

Mais je ne sais pas le faire....

Salut,

Je ne sais pas si j'ai bien compris ce que tu souhaites mais ajoutes cette ligne juste avant le exit sub et dis nous:

ActiveCell.value = "INCONNU"

Tu n'as pas donné beaucoup de précision

Souri84

Alors c'est bon, j'ai trouvé la solution! Je vous montre quand même :

If Len(nom) = 0 Then
        nom.SetFocus
        MsgBox "Nom vide", vbOKOnly + vbInformation
        nom = "INCONNU"
        Exit Sub
    End If

Mais merci quand même!