Comparer 2 cellules de feuilles différentes

Résolu/Fermé
Gui110 Messages postés 9 Date d'inscription mardi 29 mai 2018 Statut Membre Dernière intervention 18 juin 2018 - 29 mai 2018 à 11:04
Gui110 Messages postés 9 Date d'inscription mardi 29 mai 2018 Statut Membre Dernière intervention 18 juin 2018 - 29 mai 2018 à 14:20
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 mai 2018 à 14:18
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 mardi 29 mai 2018 Statut Membre Dernière intervention 18 juin 2018
29 mai 2018 à 14:20
Effectivement ca marche comme ca ! Merci beaucoup
0