Comparaison de 2 cellules avec une partie de texte barré
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
Bonjour Stubi le forum
et le fichier avec l'exemple de ce que tu nous décrit il est où??
a+
papou
Voila
C'est assez basic mais mon probleme est par exemple sur la ligne 10 entre les 2 feuilles.
Bonsoir Tsubi, paritec,
Je te retourne ton fichier modifié :
À l'ouverture du fichier, note bien qu'en colonne A, y'a rien en rouge, ni aucune couleur de texte blanc.
Alt F8 ➯ fenêtre Macro ; exécute la 1ère macro "compare"
➯ mise en évidence de A5 et A10 : "Test 5" et "Test 10"
Alt F8 ; exécute la 2ème macro "Init" ➯ "effacement des résultats" : y'a plus d'mise en évidence ;
c'est pour le faire toi-même si besoin, mais c'est aussi appelé automatiquement par la macro
compare au début, avant de faire son travail.
Alt F11 pour voir le code VBA, puis revenir sur Excel
Si besoin, tu peux demander une adaptation.
Merci de me dire si ça te convient.
dhany
Merci c'est exactement ce dont j'avais besoin.
Il faudra que je regarde plus en détail le code pour bien le comprendre mais la fonctionnalité est la et dans l'immédiat et mon urgence ca me suffit.
Un grand merci