Ordre différents ?
D
Bonsoir voici mon code qui permet de copier les valeurs d'une feuille à l'autre. Mais par contre j'aimerais par le biais d'un "msgbox" être avertis lorsque ces valeurs (qui seront copiées plusieurs fois dans la même journée) ne sont pas dans le même ordre que la fois précédente. Pouvez-vous m'aider ? merci à tous.
Sheets("R1").Range("B1:C30").Copy Sheets("R2").Range("G4:H30")
Set mondico = CreateObject("Scripting.Dictionary")
For Each Object In Sheets("R1s").Range("A1:A30")
mondico(Object.Value) = Object.Value
Next Object
Sheets("R2").Range("A4").Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
Sheets("R2").SelectSalut le forum
Comment veux-tu qu'Excel devine que les données ne sont pas dans le même ordre que précédemment ?
Essaye d'être plus explicite dans ta demande....
Mytå
D
Une idée si par exemple les valeur sont copiées dans deux colonnes par intermittance et dès lors qu' il y a des différences, j'en serais averti ! A ton avis ?
Je te joins un fichier, merci.