Re bonjour tout le monde,
J'ai écris un code pour copier la mise en forme d'une feuille et la collée aux 95 autres.
Cependant il ne marche pas arrivé à :
Ma question est donc, Pourquoi ne fonctionne t il pas et bien sure pouvez vous m'apporter votre aide ?
Question rhétorique ?
J'ai écris un code pour copier la mise en forme d'une feuille et la collée aux 95 autres.
Cependant il ne marche pas arrivé à :
Code:
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
VB:
Sub Copie_mise_en_forme()
'
Sheets("11480_20120813").Select
Cells.Select
Selection.Copy
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
' Si le nom n'appartient pas à la liste entre guillemets
If InStr(1, "Graph2 récap index_feuilles 11480_20120813", Ws.Name) = 0 Then
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next Ws
End Sub
Ma question est donc, Pourquoi ne fonctionne t il pas et bien sure pouvez vous m'apporter votre aide ?
Question rhétorique ?