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