Discussion :

[Tweelight]

Mesdames, Messieurs, Bonjour!
Je vais commencer par expliquer la chose... J'ai deux listings datés dans un classeur Excel (2003) de X et Y lignes chacun (X peut être <, > ou = à Y (minimum de lignes garanties: 1200)). ces deux listings ont une clef de référence (la colonne A). Je souhaite tester la présence des données entre le listing récent et l'ancien, à la fin de la procédure l'ancien listing sera supprimé et le nouveau prendra le nom de l'ancien (logique me direz-vous ).
La référence unique est le nom d'un fichier. Si et seulement si, la référence unique n'est pas présente dans le nouveau listing alors le fichier sera déplacé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
NombreDE = List.Range("A65536").End(xlUp).Row
NombreDEIOP = NouvIOP.Range("A65536").End(xlUp).Row
NombreEssai = 0
For Recurrence = 2 To NombreDE
        For Tentative = 2 To NombreDEIOP
              If List.Range("A" & Recurrence).Value = NouvIOP.Range("A" & Tentative).Value Then
                  Exit For
              Else
                  NombreEssai = NombreEssai + 1
              End If
        Next Tentative
'        MsgBox NombreEssai
        If NombreEssai = NombreDEIOP Then
            MsgBox "ancien pas dans nouveau" & vbCrLf & AdressefichierValide
'            code de déplacement de fichiers (en cours de rédaction)
        End If
        NombreEssai = 0
Next Recurrence

Pour tester ma programmation, j'ai mis 10 "anciennes" références. Pour une raison qui m'est inconnue le message "ancien pas dans nouveau" ne sort pas .
donc si quelqu'un voit une faute merci de me l'indiquer, je tourne depuis une semaine...

Edit: je vais tenter avec des "while", jsute au cas où.

[gFZT82]

Bonjour,

Plutôt que passer par 2 boucles pour effectuer ta recherche de clé, tu peux utiliser la méthode Find.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    NombreDE = List.Range("A65536").End(xlUp).Row
    Set PlageDE = List.Range("A2:A" & NombreDE)
    NombreDEIOP = NouvIOP.Range("A65536").End(xlUp).Row
    Set PlageDEIOP = NouvIOP.Range("A2:A" & NombreDEIOP)
    For Each Cel In PlageDE
        Set c = PlageDEIOP.Find(Cel, LookIn:=xlValues, lookat:=xlWhole)
        If c Is Nothing Then
            MsgBox Cel & " n'est pas dans nouveau"
        End If
    Next Cel

Cordialement.

[Tweelight]

Bonjour et Merci gFZT82...
Je clos ce sujet...

Une semaine de plantages - tentatives résolue en 5 minutes... Va falloir que je prennes encore des cours.