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]

Bonjour gscv, le forum,

mets i à la place de 'page' dans la ligne Sheets(Page).Range('a1').Value = 'Ok'

ca devrait marcher.

Sinon, autre possibilité:
tu créé ta macro de copier/coller.....

réponse un peu rapide mais suis à la bourre....
@+

bbmarcus

 

[sigma]

gscv, le forum,

mes capacités en VBA sont limitées mais si j'ai bien compris ton code....
tu ne peux pas avoir plusieurs onglets avec le même nom.

A+

 

[ZZR09]

Bonjour bbmarcus, le forum,

Si j'ai bien compris ton code, c'est un classeur avec 10 feuilles que tu as créé?

dans ce cas, remplace 'page' par i
avec dim i as integer
et supprime la ligne page=i
A+

 

[bbmarcus]

Re,

ch'avais bien que j'avais oublié un truc.....

Au fait, c'est gscv l'auteur....je ne suis qu'un humble intervenant comme toi qui essaye d'aider son prochain....

@+

bbmarcus

 

[sigma]

re à tous,

je confirme que mes capacités en VBA sont inexixtantes, j'étais à côté de la plaque, désolé.

A+

 

[sigma]

re à tous,

je confirme que mes capacités en VBA sont inexixtantes, j'étais à côté de la plaque, désolé.

A+

 

[Shining Hawk]

Salut gscv,

normalement, ca marche:

For Each feuille In ThisWorkbook.Sheets
feuille.Range('a1').Value = 'Ok'
Next

Bonne prog
A+

 

[Gael]

Bonjour Gscv, Bonjour à tous,

A mon humble avis, il suffit d'utiliser les possibilités de base d'XL.

En sélectionnant toutes les feuilles, tout ce qui est saisi dans une feuille est reporté sur toutes les autres.

Mais avec une macro, ça marche sûrement très bien aussi (LOL).

@+

Gael

 

[gscv]

ZZR09 écrit:

Bonjour bbmarcus, le forum,

Si j'ai bien compris ton code, c'est un classeur avec 10 feuilles que tu as créé?

dans ce cas, remplace 'page' par i
avec dim i as integer
et supprime la ligne page=i
A+

Deja Merci a tous pour ce depanage

la proposition de ZZR09 fonctionne a merveillle

Mille merci

 

[gscv]

Shining Hawk écrit:

Salut gscv,

normalement, ca marche:

For Each feuille In ThisWorkbook.Sheets
feuille.Range('a1').Value = 'Ok'
Next

Bonne prog
A+

merci egalement pour cette solution qui fonctionne apres l avoir tester mais elle me prend egalement d'autres onglet auter que 1,2,3,4...


mais encore mille merci a tous

Sébastien

 

[ZZR09]

Salut bbmarcus
Désolé pour mon erreur,
pour une fois que je savais quelque chose, j'ai fait trop vite et ne me suis même pas rendu compte que tu avais déjà répondu à la question, ni même que le nom cité n'était pas celui de l'auteur mais le tien :ermm:

A+

bbmarcus écrit:

Re,

ch'avais bien que j'avais oublié un truc.....

Au fait, c'est gscv l'auteur....je ne suis qu'un humble intervenant comme toi qui essaye d'aider son prochain....

@+

bbmarcus

 

[bbmarcus]

Re,

c'est pô grave........ja pardonne facilement à un xldien dont le nom rappel celui d'une motocyclette.....serait-ce un fait exprès? :lol:

bbmarcus

 

[ZZR09]

bbmarcus écrit:

Re,

c'est pô grave........ja pardonne facilement à un xldien dont le nom rappel celui d'une motocyclette.....serait-ce un fait exprès? :lol:

bbmarcus

Salut BBMarcus,

C'est effectivement une référence à une sacrée motocyclette ... et à un département (que peu de monde connaît tellement il est paumé et dépeuplé).

A+

 

[ZZR09]

bbmarcus écrit:

Re,

c'est pô grave........ja pardonne facilement à un xldien dont le nom rappel celui d'une motocyclette.....serait-ce un fait exprès? :lol:

bbmarcus

Salut BBMarcus,

C'est effectivement une référence à une sacrée motocyclette ... et à un département (que peu de monde connaît tellement il est paumé et dépeuplé).

A+