Bonjour à tous,
Je suis un peu bloqué aujourd'hui.
J'ai une macro qui me compare 2 cellules de 2 feuilles différentes.
Je n'ai aucun soucis de facon générale.
Function comparaison()
Dim plage As Range, plage2 As Range
Set twb = ThisWorkbook
Set tws = twb.Worksheets("Parameters")
Set wsc = twb.Worksheets("Parameters (2)")
Lmax = tws.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
Cmax = tws.Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column
Lmax2 = wsc.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
Cmax2 = wsc.Rows(1).Find("*", , , , xlByColumns, xlPrevious).Colum
Set plage = Range(tws.Cells(1, 1), tws.Cells(Lmax, Cmax))
Set plage2 = Range(wsc.Cells(1, 1), wsc.Cells(Lmax2, Cmax2))
For i = 1 To Lmax
For j = 1 To Cmax
If tws.Cells(i, j).Value <> wsc.Cells(i, j).Value Or tws.Cells(i, j).Font.Strikethrough And tws.Cells(i, j).Value <> "" Then
tws.Cells(i, j).Interior.ColorIndex = 3
tws.Cells(i, j).Font.ColorIndex = 2
Else
End If
Next j
Next i
End Function
Ca marche comme je le souhaite
Sauf que par moment j'ai une partie du texte d'une cellule qui est barré mais vba ne vois pas (tout au moins chez moi) que c'est barré.
et bien sur pour lui la "value" est la meme.
Que dois-je faire?
D'avance merci