onglets

[gscv]

bonjour a tous

voici mon souci

j'ai créé sur une feuille viege 10 onglets nommés respectivement (1,2,3,4,5,6,7,8,9,10)

je souhaite y copier un meme texte dans chaque onglet

j'ai tester ceci

Sub addtest()
For i = 1 To 10
Page = i
Sheets(Page).Range('a1').Value = 'Ok'
Next i
End Sub

Mais il me bug a la ligne
Sheets(Page).Range('a1').Value = 'Ok'

bien si quelqu'un a une solution a mon probleme je le remercie par avance

merci a tous

cordialement

Sébastien hmy:

 

[bbmarcus]

Je le savais ! ! ! !
Mais il faut quel temps dans l'ariège?
C'est paumé, mais belle région......tu sais, moi, dnas le 94....

@ une prochaine sur le forum

bbmarcus