Ecriture d'une ligne d'instruction

Bonjour

j'ai un petit soucis sans doute dans la facon d'ecrire mon code , il s'agit de faire une selection d'une cellule dans la feuille 1

de mon classeur , que celle ci soit reportée en feuille 2 et qu'a droite de la cellule reportée une valeur associée augmente de +1

à chaque selection , je n'arrive pas à reperer le soucis dans ma facon d'avoir ecris ce bout de code

je joins mon fichier sur lequel j'ai indiqué la ligne du code qui me pose probleme ( si vous pouviez m'apporter une indication sur ce qui ne va pas en gardant la structure du code je vous en remercie)

Merci pour toute indication

Bonjour,

A+

Merci Frangy ! c'est une belle solution .. j'aurais toutefois voulu savoir pourquoi est ce que mon code ne fonctionnait pas

Si tu écris

if Range("c2") = "",

l'instruction s'applique à la Feuil1.

Tu aurais dû écrire

 if Sheets("Feuil2").Range("c2") = ""

Ensuite, dans l'instruction suivante tu fais référence à la Feuil7 qui n'existe pas

Sheets("Feuil2").Range("c65536").End(xlUp).Offset(1, 0).Value = Sheets("Feuil7").Range("c65536").End(xlUp).Value + 1

A+

Merci Frangy!! En effet des erreurs assez bêtes de ma part