Comparaison de matrice en VBA
mimosifa
Messages postés
1
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
5 juillet 2005
-
5 juil. 2005 à 16:11
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 - 6 juil. 2005 à 19:44
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 - 6 juil. 2005 à 19:44
3 réponses
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
6 juil. 2005 à 05:46
6 juil. 2005 à 05:46
Tu travailles sous quelle version de Excel ? Parles-tu de variable tableaux ou de tableaux Excels ???
Pour des variables tableaux je ne connais qu'un seul moyen qui, je
pense, n'est pas le plus efficace!!! Je vais quand même te le donner
parce qu'on sait jamais, ça peut toujours te servir!!!
Le seul moyen est de parcourir, via 2 boucles imbriquées, tes tableaux
et d'afficher les différences (je parles donc ici de soustractions et
toi ???) dans une feuille Excel. Pour se faire il vaut mieux utiliser
Cells(x,y) à Range("A1") pour une question de comodité! De plus, on
considérera que tes tableaux commencent à l'index "1" et non "0" comme
théoriquement. Si ce n'est pas le cas, à toi de corriger le tire dans
la déclaration des FOR et dans le ciblage des cellules !!!
tblPremier 'Ton 1er tableau
tblSecond 'Ton 2ème tableau
Dim varTourX As Long 'Ou Integer ou ce que tu veux!!!
Dim varTourY As Long
nbrY = UBound(tblPremier) 'ou (tblSecond) qu'importe puisqu'ils doivent avoir la même taille!!!
nbrX = UBound(idem
Sinon t'a qu'a faire un test du style :
If Ubound(tblPremier) > Ubound(tblSecond) Then
nbrX = Ubound(tblPremier)
nbrY = Ubound(tblPremier)
Else
nbrX = Ubound(tblSecond)
nbrY = Ubound(tbl
Second
)
End If
C'est au choix!!!
For varTourY = 1 To nbrY
For varTourX = 1 To nbrX
ThisWorkbook.Worksheets(" Feuil1 ").Cells(varTourX, varTourY).Value = tblPremier(varTourX, varTourY) -
tblSecond(varTourX, varTourY)
Next varTourX
Next varTourY
Ceci répond-il à ta question
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse accéptée". )
Pour des variables tableaux je ne connais qu'un seul moyen qui, je
pense, n'est pas le plus efficace!!! Je vais quand même te le donner
parce qu'on sait jamais, ça peut toujours te servir!!!
Le seul moyen est de parcourir, via 2 boucles imbriquées, tes tableaux
et d'afficher les différences (je parles donc ici de soustractions et
toi ???) dans une feuille Excel. Pour se faire il vaut mieux utiliser
Cells(x,y) à Range("A1") pour une question de comodité! De plus, on
considérera que tes tableaux commencent à l'index "1" et non "0" comme
théoriquement. Si ce n'est pas le cas, à toi de corriger le tire dans
la déclaration des FOR et dans le ciblage des cellules !!!
tblPremier 'Ton 1er tableau
tblSecond 'Ton 2ème tableau
Dim varTourX As Long 'Ou Integer ou ce que tu veux!!!
Dim varTourY As Long
nbrY = UBound(tblPremier) 'ou (tblSecond) qu'importe puisqu'ils doivent avoir la même taille!!!
nbrX = UBound(idem
Sinon t'a qu'a faire un test du style :
If Ubound(tblPremier) > Ubound(tblSecond) Then
nbrX = Ubound(tblPremier)
nbrY = Ubound(tblPremier)
Else
nbrX = Ubound(tblSecond)
nbrY = Ubound(tbl
Second
)
End If
C'est au choix!!!
For varTourY = 1 To nbrY
For varTourX = 1 To nbrX
ThisWorkbook.Worksheets(" Feuil1 ").Cells(varTourX, varTourY).Value = tblPremier(varTourX, varTourY) -
tblSecond(varTourX, varTourY)
Next varTourX
Next varTourY
Ceci répond-il à ta question
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse accéptée". )
cs_mimos
Messages postés
1
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
6 juillet 2005
6 juil. 2005 à 11:15
6 juil. 2005 à 11:15
Merci ScSami pour ta reponse.
En fait, je dois comparaer deux à deux les tables de deux bases de données, et afficher les differences (les lignes qui ne sont pas les mêmes dans les deux bases)
En fait, je dois comparaer deux à deux les tables de deux bases de données, et afficher les differences (les lignes qui ne sont pas les mêmes dans les deux bases)
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
6 juil. 2005 à 19:44
6 juil. 2005 à 19:44
Ah, désolé... Alors mon code ne correspond pas!
Refait un post sur le forum en essyant d'être plus clair dès le début
et en n'ouvliant pas de préciser avec quoi tu travailles ainsi que la
version (VBA 2003, VB6, ...).
Je peux pas t'aider car moi et les bases de données ça fait... 32 bits
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse accéptée". )
Refait un post sur le forum en essyant d'être plus clair dès le début
et en n'ouvliant pas de préciser avec quoi tu travailles ainsi que la
version (VBA 2003, VB6, ...).
Je peux pas t'aider car moi et les bases de données ça fait... 32 bits
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse accéptée". )