Comparer 2 cellules de feuilles différentes
Résolu
Gui110
Messages postés
9
Statut
Membre
-
Gui110 Messages postés 9 Statut Membre -
Gui110 Messages postés 9 Statut Membre -
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
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:
- Comparer 2 cellules de feuilles différentes
- Supercopier 2 - Télécharger - Gestion de fichiers
- Comment faire un livret avec des feuilles a4 - Guide
- Fusionner 2 cellules excel - Guide
- Bruler des feuilles de laurier - Guide
- Formule excel pour additionner plusieurs cellules - Guide