Déclenchement macro suivant contenu de la cellule

[Coco-31]

Bonjour le forum,

Ci-dessous un bout de mon code qui s’exécute automatiquement, lorsque je rentre une valeur colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
If Target <> 0 Then Target.Offset(0, 1) = Target & Format(Now, "ddmmyyhhmmss")
End If
End Sub

Mon problème est que je souhaiterais que ce code s’exécute uniquement lorsque je saisis du texte

Et inversement pour un autre code lorsque la valeur est numérique

Je sais que je trouverais la réponse sur ce forum et remercie tous ceux qui se pencheront sur mon problème

 

[Habitude]

Re : Déclenchement macro suivant contenu de la cellule

If IsNumeric(Target.Offset(0, 0)) Then
'code si numérique
Else
' code si texte
End If

 

[Coco-31]

Re : Déclenchement macro suivant contenu de la cellule

Bonsoir,

Merci pour ta réponse Habitude, pour déclenchement texte j'ai écrit mon code comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Offset(0, 0)) Then Exit Sub
If Target.Column = 1 And Target.Row > 1 Then
If Target <> 0 Then Target.Offset(0, 1) = Target & Format(Now, "ddmmyyhhmmss")
End If
End Sub

Merci encore

A+