XL 2016 pour chaque feuilles du classeur

DoubleZero

XLDnaute Barbatruc

• 24 Décembre 2024

• #2

pascal21 à dit:

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

Cliquez pour agrandir...

Bonjour à toutes et à tous,

Comme ceci ?

VB:

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Décembre 2024

• #3

Bonjour pascal21, DoubleZero, le forum,

On peut éviter de faire une boucle :

VB:

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+

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 25 Décembre 2024

• #4

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 :

Code:

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Décembre 2024

• #5

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 25 Décembre 2024

• #6

job75 à dit:

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

Cliquez pour agrandir...

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 ....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Décembre 2024

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Décembre 2024

• #8

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

VB:

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

 

Vote positif 0 Vote négatif