XL 2016 pour chaque feuilles du classeur

[pascal21]

bonsoir à tous
comment ecrire en vba pour chaque feuille du classeur celluleb3?
ca fait 1 heure que je me torture à retrouver la syntaxe
merci de votre aide

 

[DoubleZero]

bonsoir à tous
comment ecrire en vba pour chaque feuille du classeur celluleb3?
ca fait 1 heure que je me torture à retrouver la syntaxe
merci de votre aide

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Sub Tous_onglets() ' Merci à Pierrot93
Dim o As Object
For Each o In Worksheets
o.Range("b3").Value = "toto"
Next o
End Sub

A bientôt,

 

[job75]

Bonjour pascal21, DoubleZero, le forum,

On peut éviter de faire une boucle :

Sub Remplir()
Worksheets.Select
[B3].Select
Selection = "toto"
Worksheets(1).Select
End Sub

Un très joyeux Noël à tous et particulièrement à notre chère ânesse.

A+

 

[fanch55]

Bonjour et joyeux Noël à tous
S'il n'y a pas vraiment d'obligation à avoir une macro qu'on devra re-exécuter à chaque nouvelle feuille ou renommage,
Il existe une formule à mettre dans une cellule pour obtenir le nom de la feuille relative :

=DROITE(CELLULE("nomfichier");NBCAR(CELLULE("nomfichier"))-TROUVE("]";CELLULE("nomfichier")))

La contrepartie : le classeur doit être enregistré et le calcul en automatique .

 

[job75]

@fanch55 peux-tu nous dire quel est le rapport avec le problème posé ?

 

[fanch55]

@fanch55 peux-tu nous dire quel est le rapport avec le problème posé ?

Hors sujet et par 2 fois :

• il a été demandé une macro,
• j'ai mal interprété la demande quand je la relis maintenant, j'ai extrapolé en pensant qu'il voulait mettre le nom de la feuille dans une cellule de chaque feuille ...

Mea culpa ....

 

[job75]

Autre solution qui ne nécessite pas la sélection de B3 :

Sub Remplir()
Worksheets.Select
[B3] = "toto"
ActiveWindow.SelectedSheets.FillAcrossSheets [B3]
ActiveSheet.Select
End Sub

 

[job75]

Le plus simple, si la feuille active est une feuille de calcul :

Sub Remplir()
[B3] = "toto"
Worksheets.FillAcrossSheets [B3]
End Sub