J
jean-christophe
Guest
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("D1500")
Set PlageCible = WSCible.Range("D1500")
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
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("D1500")
Set PlageCible = WSCible.Range("D1500")
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