Discussion :

[tomy7]

Bonjour,
j ai a peu près 100 feuilles . j aimerai mettre la cellule ABCD 8 (car elle est groupé).

j aimerai que cette cellule soit la même sur toues les feuilles.


une idée merci

[tomy7]

j ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim Mysheet as worksheet
set Mysheet = activeworkbook.worksheets(1)
worksheets.fillacrosssheets Mysheet.range("A8:D8").value 
worksheets.fillacrosssheets Mysheet.range("E8:I8").value 
xlfillwithall

mais sa bug

une idée

[illight]

pas compris ce que tu veux dire par ça :

j aimerai mettre la cellule ABCD 8 (car elle est groupé).

[tomy7]

ma cellule ABCD8 est groupé
j ai trouvé:
j ai une cellule qui est egale a range("A8: D8")

[fring]

Bonjour,

Je pense avoir compris que tu veux fusionner les cellule A8/B8/C8/D8 de toutes les feuilles. Si c'est le cas tu peux éventuellement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Range("A8:D8").Merge
Next
End Sub

[tomy7]

non dsl je me suis mal exprimer.

j ai une cellule qui est fusionner ds ma feuille 1 .


je veux juste que cette cellule soit eguale sur mes 222 feuilles

je ne savais pas comment selectionner cette cellule mais j ai trouvé

avec range("A8 : D8")

mtn ce que je sais pas c l egualiser a tt mes feuilles

vs comprenez.


j ai essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim Mysheet as worksheet
set Mysheet = activeworkbook.worksheets(1)
worksheets.fillacrosssheets Mysheet.range("A88").value 
worksheets.fillacrosssheets Mysheet.range("E8:I8").value 
xlfillwithall

mais sa bug sur xlfillwithall

[tomy7]

voici la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim Mysheet as worksheet
set Mysheet = activeworkbook.worksheets(1)
worksheets.fillacrosssheets Mysheet.range("A8: D8").value , xlfillwithall
worksheets.fillacrosssheets Mysheet.range("E8:I8").value , xlfillwithall

merci qd meme