RE-BONSOIR les DIEUX du "clavier" ;-)
Bon donc qqn de super cool m'a montré comment faire un test de comparaison entre 2 fichiers aux seins de différentes cellules. Ca marche très bien.
Par contre apres coup je me suis apercu que les cellules du fichierSOURCE se terminait toutes par kbps ce qui fait 5 caracteres (en comptant l'espace).
Donc vous l'aurez deviné, je cherche à comparer mes cellules en SUPPRIMANT (en ne comparant PAS) " kbps".
D'ou la ligne (notée AAAAA pour une + gde compréhension) que j'ai rajoutée,
mais j'ai une erreur de compilation.
Je pige pas pourquoi ni comment faire autrement.
MERCI ENCORE A VOUS TOUS ! VOUS ETES GENIAUX !!!!!!!!!!!!!
Voici le code :
Sub CompareAndBold()
Dim CellSource As Range, CellCible As Range
Dim PlageSource As Range, PlageCible As Range
Dim WBSource As Workbook, WBCible As Workbook
Dim WSSource As Worksheet, WSCible As Worksheet
Set WBSource = Workbooks("essai.xls")
Set WSSource = WBSource.Sheets("Feuil1")
Set WBCible = Workbooks("macro.xls")
Set WSCible = WBCible.Sheets("Feuil1")
Set PlageSource = WSSource.Range("D1
500")
Set PlageCible = WSCible.Range("D1
500")
For Each CellSource In PlageSource
For Each CellCible In PlageCible
'AAAAA
CellSource=Mid(Cellsource,1, Len(Cellsource)-5)
If CellSource = CellCible Then Exit For
CellSource.Font.Bold = True
Next CellCible
Next CellSource
End Sub
Vous pouvez répondre au choix par mail, ou sur le forum ;-)