Pb compilateur

[jean-christophe]

Voici les lignes de code le compilo dit : argument ou appel de procedure incorrect :


La ligne qui pose soucis est la ligne que j'ai mis en commentaire

qui s'appelle 'grrrrrr

==> le but est de comparer les cellules qui sont dans des fichiers différents MAIS je ne veux PAS prendre en compte (pour la comparaison) une extension qui tient à la fin du contenu de la cellule sur 5 caractères.



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
Dim CellSource_Val As String



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


CellSource_Val = Left(CellSource.FormulaR1C1, (Len(CellSource.FormulaR1C1) - 5))

If CellSource_Val = CellCible.FormulaR1C1 Then Exit For

CellSource.Font.Bold = True
Next CellCible
Next CellSource


End Sub


MERCI à vous tous 🙂

 

[@+Thierry]

Bonjour Jean-Christophe, le Forum

Le but de ce Forum n'est pas d'ouvrir un Fil, de pomper la macro mise en réponse pour essayer de la trafiquer sans succès, et de faire un nouveau fil sans même faire référence à la question initiale, surtout si en plus on y a donné aucun signe de vie...

Je te conseille par conséquent de lire notre Charte :


Car tu aurais déjà dû rester dans le fil initial, ne fusse que pour me tenir au courant de tes problèmes, si ce n'est pour dire merci...

=> Fil Orginal Lien supprimé

Pour ta ligne en défaut, je suppose que c'est celle-ci :
CellSource_Val = Left(CellSource.FormulaR1C1, (Len(CellSource.FormulaR1C1) - 5))

Essaies tout simplement ceci :
CellSource_Val = Left(CellSource, (Len(CellSource) - 5))

Idem pour :
If CellSource_Val = CellCible.FormulaR1C1 Then Exit For

par :
If CellSource_Val = CellCible Then Exit For

Bon Appétit à tous et toutes
@+Thierry