copie sur toutes les feuilles

PascalXLD

XLDnaute Barbatruc

• 16 Mai 2005

• #2

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 16 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 16 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 18 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 18 Mai 2005

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Mai 2005

• #8

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

 

Vote positif 0 Vote négatif