Bonjour,
Sur Excel, j'ai une ligne (de D1 à GS1) et une colonne (de B2 à B3975). J'aimerai comparer chaque cellule de la ligne à toute la colonne. Lorsque 2 cellules sont égales on met 10 dans la cellule situé à l'interséction de ces 2 cellules sinon 0.
Par exemple si la cellule D1 et B15 sont égales, alors on affecte à la cellule D15 la valeur 10.
J'ai commencé à faire code mais celui ci ne veut pas marcher:
Sub comp()
Dim i As Long
Dim j As Long
Dim c As Worksheet
Set c = ThisWorkbook.Worksheets("Feuil1")
For j = 4 To 202 Step 1
For i = 2 To 4000 Step 1
If c.Cells(i, 2).Interior.Value = c.Cells(1, j).Interior.Value Then
c.Cells(i, j).Interior.Value = 10
Else
c.Cells(i, j).Interior.Value = 0
End If
Next i
Next j
End Sub
Je ne connais pas grand chose au VBA, j'espére que vous pourrez m'aider.
