vba

ABCyriac · 5 Août 2021

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 · 6 Août 2021

Bonjour

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

VB:

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

vba

ABCyriac

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Discussions similaires