Activer un sub seulement avec une cellule vide

Bonjour,

J'ai créer une fonction où lorsque que l'on clique sur une plage de cellule, un inputbox apparaît.

Seulement je souhaiterai que lorsqu'il y a déjà une valeur présente dans cette plage la fonction ne s'active pas.

Je vous joins la fonction correspondante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("r:r")) Is Nothing Then
Nlig = Target.Row
Call fac
End If
End If
End Sub

Je vous remercie par avance.

Bonjour tiagovdl, le forum,

A tester...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("r:r")) Is Nothing Then
   cancel = True
    If Target.Count > 1 Then Exit Sub
     If Target.Value = "" Then
      Nlig = Target.Row
      Call fac
     End If
  End If
End Sub

Cordialement,