Magic_Doctor
XLDnaute Barbatruc
Bonsoir,
J’ai 2 tableaux. L’un n’a aucune mise en forme, l’autre si.
Au moyen de 2 boucles intriquées, je voudrais que le 1er tableau prenne la même mise en forme que le second.
Ça plante et je me demande bien pourquoi.
J’ai 2 tableaux. L’un n’a aucune mise en forme, l’autre si.
Au moyen de 2 boucles intriquées, je voudrais que le 1er tableau prenne la même mise en forme que le second.
VB:
Sub Macro1()
Dim nblgn1 As Byte, nblgn2 As Byte, plage1 As Range, plage2 As Range, cel1 As Range, cel2 As Range
nblgn1 = Application.CountA([ListeItems2].Columns(1)) 'nombre de lignes non vides de la 1ère colonne du tableau "ListeItems2"
Set plage1 = [ListeItems2].Columns(1).Resize(nblgn1) 'plage des lignes non vides de la 1ère colonne du tableau "LiteItems2"
nblgn2 = Application.CountA([ListeItems3]) 'nombre de lignes non vides du tableau "ListeItems3"
Set plage2 = [ListeItems3].Resize(nblgn2) 'plage des lignes non vides du tableau "LiteItems3"
Application.ScreenUpdating = False
For Each cel2 In plage2
For Each cel1 In plage1
If cel1.Value = cel2.Value Then
With cel1
.Interior.Color = cel2.Interior.Color
.Font.Color = cel2.Font.Color
End With
Exit For
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Ça plante et je me demande bien pourquoi.