[vba] améliorer macro

Fermé
edi - 11 mars 2009 à 11:26
 edi - 11 mars 2009 à 12:48
Bonjour,
J'ai trouvé cette macro pour identifier des doublons de 2 onglets que j'ai réuni sur un seul (sheet1).

Sub doub()

Dim Plage As Range, Cell As Range
Dim Ligne As Integer, i As Integer, k As Integer

Dim Tableau() As Variant

i = 1

With Sheets("sheet1")
Ligne = .Range("a65536").End(xlUp).Row
Set Plage = .Range("a1:a" & Ligne)

ReDim Tableau(1 To Ligne, 1 To 3)

For Each Cell In Plage
If Application.CountIf(Sheets("sheet1").Range("e:e"), Cell) > 0 Then
k = Application.CountIf(.Range("a1:a" & Ligne), Cell)

Tableau(i, 1) = Cell
Tableau(i, 2) = k

i = i + 1
End If
Next Cell
End With

'Copie du tableau
Sheets("sheet2").Range("A2:a" & Ligne) = Tableau
End Sub

Je ne parviens pas à ajouter deux colonnes d'informations supplémentaires à droite.
quelqu'un pourrait il m'aider?
merci
ed
A voir également:

1 réponse

up
0