Cellule Non Texte VBA

[meldja]

Bonsoir,
Sujet récurrent et pourtant !!!
Voila, j'ai une petite macro qui crée une nouvelle feuille et nomme l'onglet de cette nouvelle feuille du nom de la cellule active.
Jusqu'ici, no pblm.
Seulement, dans un soucis de gérer les erreurs, je souhaitais quitter la procédure si la cellule active serait une cellule ne contenant pas de texte (numérique ou vide).
Voici comment j'ai déclaré le nom de l'onglet de la nouvelle feuille :
Dim Nom As String
Nom = ActiveCell
Merci d'avance pour vos solutions ou vos liens que je n'aurais pas trouvé.
Bonne soirée

 

[jp14]

Re : Cellule Non Texte VBA

Bonsoir

Avant de lancer la création il faut écrire

If ActiveCell = "" Then
Call MsgBox("Création de l'onglet impossible" _
& vbCrLf & "La cellule ne comporte pas de nom" _
, vbCritical, Application.Name)

Exit Sub
End If

A tester

JP