comparer 2 colonnes et identifier les différences

comparer 2 colonnes et identifier les différences - VB/VBA/VBS - Programmation

Marsh Posté le 18-11-2007 à 00:35:31    

Bonjour à tous,
 
j'ai un soucis de programmation en ce moment et j'aimerais solliciter des personnes plus compétentes en informatiques pour trouver le solution la plus efficiente...
 
en fait mon problème se résume à 2 colonnes excel avec des données dedans quasi identique sauf 1.
 
J'aimerais justement identifier cette donnée.  
Je stocks mes infos dans access.
 
J'avais pensé à faire des dictionnaires en vba mais le problème c'est que je stocks une instance et non un résultat....Voici le code
 
Dim myDico1 As Dictionary
Set myDico1 = New Dictionary
Dim myReport_1 As myObject
Set myReport_1 = New myObject
 
 
   myDico1.Add myReport_1.SourceReference, myReport_1
 
 
myReport_1 est donc la dernière entrée de mon dictionnaire....
 

Reply

Marsh Posté le 18-11-2007 à 00:35:31   

Reply

Marsh Posté le 18-11-2007 à 01:31:31    

en fait je pense que je peux etre plus clair désolé....
 
j'ai une base de donnée avec un nombre important de donnée pour le 15/11/07 et le 16/11/07.
 
Beaucoup de ces données sont identiques d'un jour sur l'autre, j'aimerais donc identifié les nouvelles entrées ou sorties ...
 
des idées ?
 
Merci

Reply

Marsh Posté le 18-11-2007 à 06:14:37    

Par exemple :
 
1. Sauvegarder ces données.
2. Mettre les données des deux journées à la suite dans une seule grande colonne.
3. Trier la colonne.
4. Faire tourner la petite moulinette suivante :

Sub DeleteDouble()  
  Dim rRange As Range  
  Dim vCell As Variant  
  Set rRange = Range([A1], [A1].End(xlDown))  
  For Each vCell In rRange  
    Do While vCell = vCell.Offset(1, 0)  
      vCell.Offset(1, 0).EntireRow.Delete  
    Loop  
  Next vCell  
End Sub

Il ne reste plus que les lignes uniques, donc les nouveautés.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed