choix de format de copie entre fichier

[re-jean-christophe]

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


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 ;-)

 

[yeahou]

Bonjour re-jean-christophe, le Forum

Ton problème est le suivant, tu fait une extraction de chaine de cellsource dans cellsource qui est un objet range et VB ne sait plus ou il en est. si cela avait fonctionné, tu aurais supprimé kbps de tes cellules

CellSource=Mid(Cellsource,1, Len(Cellsource)-5)

tu peux contourner en utilisant une chaine texte et surtout préciser ton code

Dim CellSource_Val as string
For Each CellSource In PlageSource
For Each CellCible In PlageCible

'AAAAA
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

logiquement, cela doit fonctionner

Cordialement, A+

 

[re-jean-christophe]

MERCI à la personne qui m'a répondu...

C'est époustoufflant de voir que vous répondez aussi rapidement, aussi justement et en plus gratuitement.

Si ca c'est pas un "modèle" de fraternertité ,d'autres diraient presque de Civilité, ca devrait en faire réfléchir plus d'un qui critique bêtement
internet !!!! Il n'y a pas que de HACKERs ( voir LAMERs, pour certain)

UN GRAND MERCI A VOUS TOUS qui nous répondez.

JUSTE une question : vous etes tous bénévoles, professionnels ou un peu des deux, parce que vous donnez bcp de votre temps (si gentillement) ?? On croirait voir la pub de Liberty surf : "un monde of amour..." (ou on embrasse les troncs d'arbres, pour ceux qui s'en souviennent ;-)))

DONC CONTINUER c TREMENDOUS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[yeahou]

Re salut re-jean-christophe, le Forum

Je suis bénévole comme tous les autres contributeurs, je pense et tu peux m'appeler yeahou. Je ne suis que depuis peu sur ce forum, à vrai dire je ne m'interressais pas aux forums. Puis j'ai rencontré un problème que je n'arrivais pas à résoudre. J'ai essayé de placer un post et j'ai eu une réponse si rapide et parfaitement adaptée de Ti que j'ai décidé à mon tour d'aider d'autres personnes dans la mesure de mes moyens. si j'ai pu t'aider, j'en suis content.

Bonne continuation

Cordialement, A+