gscv XLDnaute Junior 22 Août 2005 #1 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:
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:
B bbmarcus XLDnaute Occasionnel 29 Août 2005 #16 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 Vote positif 0 Vote négatif
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