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