Incompatibilité de type

Bonjour

j'ai un petit soucis d'ecriture pour cette ligne de code : surlignée par le debugeur

Cells(Target.Row, Target.Column + 1) = Range("C20").Value + 1

laquelle me renvois une "incompatibilité de type !

comment pourrais je y remedier en vous remerciant par avance ?

Bonjour

Je ne suis pas expert VBA, mais je ne vois pas d'anomalie. C'est peut-être ailleurs qu'il faut chercher..

J'ai testé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Cells(Target.Row, Target.Column + 1) = Range("C20").Value + 1
End If
End Sub

sans avoir de problème

Ces lignes fonctionnent aussi

Cells(Target.Row, Target.Column + 1) = [C20].Value + 1

ou

Cells(Target.Row, Target.Column + 1) = [C20]+ 1

Perso, j'aurais écrit

Target.Offset(, 1) = [C20] + 1

Cordialement

Merci pour ton message !! je me suis rendu compte de l'erreur , en fait c'est le choix de la celule C20 !!

elle contenait tout simplement du texte

te remerciant quand meme infiniment pour ta contribution

rocket