01net    Web


Actuellement en ligne : 155 Utilisateurs dont 22 dans Windows & logiciels >S'inscrire      >S'identifier      >Recherche      >Aide  
modéré par azerty39, A.Ouloube, zippo25, totoftotof, cedvet  
01net > Forum de 01net > Windows & logiciels > bureautique
> [Résolu] Excel - macro - comparer deux fichiers
Passionné(e) d'internet, de logiciels, de forums ? 01net recrute...
Auteur
Message
 
<     1       >
peyro
  même pas peur!
  :-)
      ?   @     Posté le 18/01/2008 14:48:25  
Voter pour ce message
Bonjour,
je possede deux versions d'un meme modele (ci apres nommé "old model" et "ancien modele") et j'aimerai voir un peu la différence de résultat.
le résultat (en D33) dépend de deux variable stockées en B5 et B13.

j'ai lié les cellules B5 et B13 de "ancien modèle" au cellules B5 et B13 de "old model".
et apres je lance cette macro : (le fichier différence étant là ou je veux stocké mes différence de résultat)

______________________________________________________________________________

Sub Macro()
For i = 3 To 4
For j = 0 To 6

Windows("old Model TL V4.xls").Activate
Cells(5, 2).Value = i * 10
Cells(13, 2).Value = 32 + j * 3

Windows("differences.xls").Activate
Cells(i, j + 3).Select
ActiveCell.FormulaR1C1 = _
"='[old Model TL V4.xls]Assum - Results'!R33C4-'[ancien modele.xls]Assum - Results'!R33C4"

Windows("differences.xls").Activate
Cells(i, j + 3).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Next j
Next i

End Sub


______________________________________________________________

ok alors apres réflexion un peu plus posée il a suffit d'utiliser Activatesheet.cells
au lieu de cells
... :super:
-->Message édité par peyro le 18/01/2008 14:55:52<--
-------
they peed on my rug!
<     1       >

01net > Forum de 01net > Windows & logiciels > bureautique
> [Résolu] Excel - macro - comparer deux fichiers

Aller à :

Page générée en : 0.055s - X2board 2.2

Nous contacter | Charte de confiance | Voir notice légale

Tous droits réservés © 1999 - 2008 Groupe Tests - 01net.


Sites du réseau 01net Network : 01net - 01men - Rmc.fr - Bfmtv.fr - Radiobfm.com - TousLesPodcasts - Micro Achat

Calendrier
Réalisez de A à Z des calendriers originaux pour partager les grands moments !
Jeux
Nouveauté : Aidez une tortue héroïque à parcourir trois fabuleux mondes de jeux regorgeant de détails.