Comparer 2 cellules de feuilles différentes

Résolu
Gui110 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Gui110 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voila mon problème : j'ai deux tableau dans 2 feuilles différentes de mon Excel ( "Bilan global" et "RES filtré"). Tous les champs de la feuille "RES filtré" sont également des champs de la feuille "Bilan global" celle ci possede également des champs supplémentaires. Mon but est de copier toutes mes lignes de la feuille "RES filtré" dans la feuille bilan global en faisant attention que les informations soient copiées dans le champs correspondant.

J'ai copié-collé plus bas ce que j'ai pu codé jusqu'à maintenant mais ca ne fonctionne pas. Ca me renvoie le message "Erreur d’exécution 1004 Erreur définie par l'application ou par l'objet"

Est ce que quelqu'un peu m'aider svp ? Merci d'avance

("ch_Bil est le nombre de champ de la feuille "Bilan global" et "ch_RES le nombre de champ de la feuille "RES filtré")


For i = 1 To ch_Bil
For j = 1 To ch_RES
If Worksheets("Bilan global").Range(Cells(1, i)) = Worksheets("RES filtré").Range(Cells(1, j)) Then
Sheets("RES filtré").Select
Range(Cells(2, j), Cells(Doss_RES + 1, j)).Select
Selection.Copy
Sheets("Bilan global").Select
Range(Cells( 2, i), Cells(Doss_CF + Doss_RES + 1, i)).Select
ActiveSheet.Paste
End If
Next
Next
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

erreur 1004 due a ceci:
 Worksheets("Bilan global").Range(Cells(1, i))

doit etre ecrit:
Worksheets("Bilan global").Cells(1, i)
1
Gui110 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Effectivement ca marche comme ca ! Merci beaucoup
0