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. Pouvez-vous m'aider ? merci à tous.
Code:
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").Select