Aide sur un script en VBA

Salut à tous, j'ai un problème avec le script que j'utilise pour comparer les données de 2 feuilles Excel d'un même classeur. En fait je constitue une liste qui me recupère les données de la 1ere feuille et je veux comparer les données de la 2e feuille à celle de la liste. Voici le script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

With Sheets("Nouveau") Set zone1 = .Range(.Cells(2, 1), .Cells(.Range("A" & Application.Rows.Count).End(xlUp).Row, 1)) End With   With Sheets("Ancien") Set zone2 = .Range(.Cells(2, 1), .Cells(.Range("A" & Application.Rows.Count).End(xlUp).Row, 1)) End With   For Each z2 In zone2 'constitution d'une liste sans doublons des "Anciens" If Not liste.exists(z2.Value) Then liste(z2.Value) = z2.Value 'on crée une liste avec le fichier ancien. Next z2

---

Maintenant j'aimerais pouvoir faire compiler ceci qui ne fonctionne pas :

Code:

---

1 2 3 4

If liste.exists(z1.Value) Then ' c'est ici qu'on calcul les départs en TGI.   'If z2.Offset(0, 6) = "01" And z1.Offset(0, 8) = "11" Then deptgi = deptgi + 1 ceci passe pas If z1.Offset(0, 8) = "11" And liste(z2.Offset(0, 6)) = "01" Then deptgi = deptgi + 1 End If

---

Ceci aussi donne une erreur

En fait il y a des personnes de ma 1ere feuille (Ancien) qui avaient le code "01" pour qui se code est devenu "11" dans la seconde feuille (Nouveau). Il faut noter aussi qu'il n'ya pas de doublons dans mes données.

J'arrive pas à trouver la bonne synthaxe de cette ligne :

Code:

---

If z1.Offset(0, 8) = "11" And liste(z2.Offset(0, 6)) = "01" Then deptgi = deptgi + 1

---

Il ya erreur à ce niveau : liste(z2.Offset(0, 6)) = "01" En fait j'aimerais vérifier que la donnée se trouvant à la colonne 8 de la feuille Nouveau est 11 et qu'elle a pour valeur 01 dans la feuille Ancien dans la colonne 6. Si c'est le cas, alors j'incrémente "deptgi".

J'espère avoir été claire sur mon erreur, Merci encore.

Salut tempio,


Je ne pense pas pouvoir t'aider mais pourrais-tu m'éclairer s'il te plait

que sont z1 et z2 ?

si ce sont des tableaux tu n'as pas besoin de offset non ?

et pour le "liste(z2.Offset(0, 6))" ça représente/sert à quoi ?
car pour moi ça devrait être z2(0,6)="01"

Tu devrais peut-être tout traiter dans un tableaux plutôt que de créer une "liste", ça serait peut-être plus simple ?
Bon courage

Salut Fllyann pour ta 1ere question, il ne s'agit pas de tableaux mais bien de liste que je constitue en déclarant par :

Code:

---

Set liste = CreateObject("Scripting.Dictionary")

---

Désolé d'avoir oublier de le mentionner. Pour ta 2e quetion : C'est cette partie justement qui compile pas :

Code:

---

1 2	If z2.Offset(0, 6) = "01" And z1.Offset(0, 8) = "11" Then deptgi = deptgi + 1 'j'ai testé cette ligne mais ne passe pas If z1.Offset(0, 8) = "11" And liste(z2.Offset(0, 6)) = "01" Then deptgi = deptgi + 1 End If 'en testant celle là aussi il ya erreur.

---

J'espère avoir été assez claire quand même.

voici un fichier joint qui illustre exactement je que je veux faire. Voir code à la ligne 44.

Bonjour,
Le fichier .xls fourni permet de constater que les erreurs ont toutes la même origine.
La variable z2 n'a plus de valeur valide après la boucle for...each lorsque qu'elle a fini de balayer la plage concernée.

Donc il devient impossible d'utiliser cette variable après la boucle utilisant z2

Cela explique le message d'erreur : "objet requis"

Il faudrait sans doute utiliser z2 dans le cadre d'une boucle.

Je n'ai rien vu concernant "01" et "11" dans les feuilles excel donc je ne peux rien dire à ce sujet.

Cordialement,

En effet Bellande, c'était cela l'erreur et voici le bon fichier que je vais poster ici. Le nouveau code passe bien sur cet fichier test sauf que lorsque je l'exécute sur le vrai fichier où il ya plus de 500 enregistrement, ca rame quelques temps avant d'afficher la réponse :

Voici le code :

Code:

---

1 2 3 4 5 6 7

For Each z2 In zone2 For Each z1 In zone1 If z1 = z2 Then ' c'est ici qu'on calcul les départs en TGI. 'MsgBox z2.Offset(0, 3) & " " & z1.Offset(0, 3) If z1.Offset(0, 8) = "11" And z2.Offset(0, 6) = "01" Then deptgi = deptgi + 1 'ceci compte les départs TGI End If Next z1 Next z2

---

Je cherche maintenant à l'améliorer pour éviter le temps que ca met à ramer.

Je t'envoie un message privé ...

Voici le fichier sans erreurs et le bout de code à améliorer se trouve à la ligne 53 (double boucle). Il rend l'appli lente à l'exécution avec 500 enregistrements. Merci d'avance...