Pb compilo_suite_desolé

[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("D1500")
Set PlageCible = WSCible.Range("D1500")



For Each CellSource In PlageSource
For Each CellCible In PlageCible

'grrrrr

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


Répondre à ce message

vue en arborescence Sujet précedent | Sujet suivant





Répondre à ce message
Votre nom :
Votre email :
Sujet :
Pièce jointe:


Recevoir la réponse par email à l'adresse ci-dessus.





C'est votre premier message sur le forum? :


Consultez la charte du Forum XLD

 

[Arnaud]

salut,

déja, pkoi avoir créer 2 post pour le même problème ???????????

ensuite pour ton problème met un

Msgbox Len(CellSource.FormulaR1C1) - 5) pour voir si c bien tjs une valeur positive qui est en paramètre du 'Left'

 

[jean-christophe]

merci à toi de m'aider.

J'ai mis 2 post car j'avais oubblier la ligne grrrr (au cas ou...c mieux pour voir d'ou vient le pb)

Quand je tape ta ligne j'ai erreu de syntaxe ???!!??

 

[jean-christophe]

>>> j'avais pas les yeux en face des trous!!!!

BOn apre avoir viré la parenthese

Le compilo me donne bien 3 ( la valeur est correct). C'est donc apres que ca plante mais ou ??

 

[Arnaud]

le plus simple serai que tu avance dans ton prog en pas à pas por voir ou est l'erreur.

si tu ne c pas comment faire, regarde le post ici

http://www.excel-downloads.com/html/French/forum/messages/1_96043_96043.htm

g essayé d'expliquer un peu comment faire.

 

[@+Thierry]

Ah Bonjour Arnaud, re Jean Christophe...

Et bien tu nous mets une sacrée pagaille dans ce Forum, et toujour sans dire Bonjour même pour le doublon de post...

Voir ma réponse dans le ton autre Fil Lien supprimé où je t'explique que tu n'est pas du tout "XLD-Compliant"

Bon Après Midi
@+Thierry