vba

[ABCyriac]

Bonjour a tous svp
je veux comparer le format de toutes les celllules venant de deux classeur différents et si les formats sont différents forcer le format de la cellule la feuillle 2 en format de la cellule de la feuille 1
Mons soucies est le suivant après le premier tour de boucle il ne trouve plus de feuille2. Merci pour votre aide

For Each feuille1 In classeur1.Worksheets
Set feuille2 = classeur2.Sheets(feuille1.Name)


'for i = 4 to feuille1.Cells(Rows.Count, 1).End(xlToLeft).Column

'for j = 1 to feuille1.Cells(4, Columns.Count).End(xlToLeft).Column

For i = 4 To 50
For j = 1 To 46


If feuille1.Cells(i, j).NumberFormat <> feuille2.Cells(i, j).NumberFormat Then
Set feuille2.Cells(i, j).NumberFormat = feuille1.Cells(i, j).NumberFormat

Else
MsgBox "C'est le meme format"
End If


Next j
Next i
Next feuille1


End Sub

 

[vgendron]

Bonjour

pourquoi comparer des formats alors qu'au final tu appliques le format du classeur 1 ??
autant appliquer directement non??

Sub Formater()

Dim wb1 As Workbook
Dim wb2 As Workbook

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set wb1 = ActiveWorkbook 'classeur1 qui sert de "source": Doit etre ouvert ET actif
Set wb2 = Application.Workbooks("Classeur2.xlsm") 'classeur2 qui va etre modifié: Doit etre ouvert
For Each ws1 In wb1.Sheets
    ws1.Range("A4").Resize(50, 47).Copy
    wb2.Sheets(ws1.Name).Range("A4").Resize(50, 47).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Next ws1
End Sub