copie entre fichier

[jean-christophe]

Bonjour à tous, les super bêtes de VB !!



Je cherche sous Excel en VBA, à récupérer UN ENSEMBLE de cellules qui sont dans 1 fichier appelons le fichierA (qui lui est fermé) pour les comparer avec un autre ensemble de cellules qui sont dans le fichierB (lui ausi fermé).


En outre si les cellules du fichierA ne correspondent pas à celle du fichierB, je mettrai celles du fichierA en caractère GRAS.

MERCI BCP de votre aide !

J-TOF.

 

[@+Thierry]

Bonjour Jean-Christophe, le Forum

Etant Donné que tu veux mettre en gras les cellules du FichierA, il te faudra forcément l'ouvrir. Les Techniques ADO/DAO ne pourront pas toucher au format de police. (De plus ces techniques sont assez comliquées à maîtriser)

Donc à partir de là, il vaut mieux ouvrir les deux fichiers et comparer les plage d'une manière classique avec une simple Boucle For Each...

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("FichierA.xls")
Set WSSource = WBSource.Sheets("SheetA")
Set WBCible = Workbooks("FichierB.xls")
Set WSCible = WBCible.Sheets("SheetB")


Set PlageSource = WSSource.Range("A1:A10")
Set PlageCible = WSCible.Range("A1:A10")


For Each CellSource In PlageSource
For Each CellCible In PlageCible
If CellSource = CellCible Then Exit For
CellSource.Font.Bold = True
Next CellCible
Next CellSource


End Sub

Bon Aprèm

@+Thierry