Bonjour le forum
Par l’application ci-dessous je désire mettre sur chaque feuille d’un classeur une annotation.
Mais l’annotation ne se fait que sur une feuille. Où est l’erreur ?
For Each ws In Worksheets
Derligne = Cells(Rows.Count, 'b').End(xlUp).Row
vcartouche = 'NOM ET SIGNATURE'
Range(Cells(Derligne + 3, 3), Cells(Derligne + 3, 3)) = vcartouche
Next ws
Merci pour votre aide
Francis
Par l’application ci-dessous je désire mettre sur chaque feuille d’un classeur une annotation.
Mais l’annotation ne se fait que sur une feuille. Où est l’erreur ?
For Each ws In Worksheets
Derligne = Cells(Rows.Count, 'b').End(xlUp).Row
vcartouche = 'NOM ET SIGNATURE'
Range(Cells(Derligne + 3, 3), Cells(Derligne + 3, 3)) = vcartouche
Next ws
Merci pour votre aide
Francis