Bonjour,
Dans cette manip les for each fonctionne mais pas la fusion
Si je coupe cette macro en 2 macro tout fonctionne.
Donc je doit mal écrire la ligne Merge
For Each D In Worksheets("feuil1").Range("cl")
If Not IsError(Application.Match(D.Value2, Range("dt"), 0)) Then
D.Offset(, 2) = 1
End If
Next
For Each D1 In Worksheets("feuil1").Range("cl")
If Not IsError(Application.Match(D1.Value2, Range("dr"), 0)) Then
D1.Offset(, 2) = 2
End If
Next
Range("d:d1").Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
End With
End Sub
Merci de votre aide à tous.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004
