Macro excel

didier -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
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 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
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