Discussion :

[Belina]

Bjr!
j'ai besoin d'aide pour comparer 2 cellules d'une même ligne.J'ai saisi des montants, si le montant de Ax=Montant de Bx alors mettre 0 dans les deux cellules ou marquer les 2 cellules par une même lettre.

Merci de ton aide

[rvtoulon]

Bonjour,
en imaginant que tes cellules sont dans Feuil1 et commence en A1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub compare_cell()
Dim dercell As Long
 
With Sheets("Feuil1")
dercell = .Range("A1").SpecialCells(xlLastCell).Row
For i = 1 To dercell
If .Range("A" & i).Value = .Range("B" & i).Value Then
.Range("A" & i).Value = 0
.Range("B" & i).Value = 0
End If
Next i
End With
 
End Sub