copie sur toutes les feuilles

[Francis]

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

 

[PascalXLD]

Bonjour

Modifies légèrement comme ceci

For Each ws In Worksheets
Derligne = ws.Cells(Rows.Count, 'b').End(xlUp).Row
vcartouche = 'NOM ET SIGNATURE'
ws.Range(Cells(Derligne + 3, 3), Cells(Derligne + 3, 3)) = vcartouche
Next ws

Bon courage

 

[PascalXLD]

Re

Tu dois aussi pouvoir simplifier

For Each ws In Worksheets
Derligne = ws.range('B65536').End(xlUp).Row
vcartouche = 'NOM ET SIGNATURE'
ws.Range('C' & Derligne+3) = vcartouche
Next ws

 

[Francis]

Bonjour Pascal et le forum
Impeccable ça marche au poil
merci
Francis

 

[Francis]

Bonjour Pascal et le forum
Je me permets de te poser la question à toi car tu m'as crée cette macro.
Comment mettre en gras ou changer la couleur de la police?
J'ai essayé plein de solutions mais jamais cela ne marche sur toutes les feuilles.
Merci
Francis

 

[PascalXLD]

Bonjour

essaies comme ceci:

For Each ws In Worksheets
Derligne = ws.range('B65536').End(xlUp).Row
vcartouche = 'NOM ET SIGNATURE'
ws.Range('C' & Derligne+3) = vcartouche
with ws.Range('C' & Derligne+3).Font
.Bold = True 'mettre en gras
.ColorIndex = 3 'mettre en rouge
end with
Next ws

Bonc ourage

Message édité par: Pascal76, à: 18/05/2005 12:14

 

[Francis]

Bonsoir Pascal et le forum
merci Pascal ça marche bien.
Je m'emmêlais les pieds avec les select et rien ne marchait.
Francis

 

[PascalXLD]

Re

T'inquiètes pas au début on passe un peu tous par le meli-melo des select jusqu'au moment où on comprend que dans la majorité des cas on peut s'en passer et là souvent tout devient plus facile

Bonne soirée