Macro excel

Fermé
didier - 24 févr. 2009 à 12:42
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 24 févr. 2009 à 18:58
Bonjour,

j'ai besoin d'une macro qui me permette de mettre en forme un tableau en comparant les cellules des 2 premières colonnes (A et B) . Si la valeur des 2 cellules est la même je ne change rien, si elle est différente je supprime les 3 cellules des colonnes B, C et D.

Tableau ini
A B C D
2 2 5 6
3 5 4 7
3 3 6 8
5 5 7 9
6 6 8 1
7 2 9 2
8 8 1 3

Tableau souhaité
A B C D
2 2 5 6
3 3 6 8
5 5 7 9
6 6 8 1
8 8 1 3
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 711
24 févr. 2009 à 18:58
bonjour

Cette macro devrait répondre à ton souhait
Public Sub comparer()
Dim lig As Long
For lig = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Cells(lig, 1).Value <> Cells(lig, 2).Value Then Rows(lig).Delete
Next lig
End Sub
0