Help macro pour comparer sous excel
Bonjour,
Bonjour,
Je dois traiter un tableau excel
Je vous explique ce que j'ai et ensuite ce que je veux :
en ligne, j'ai des "chemins"
par exemple
1 - A - B - C - D 26
2 - A - C - B - A 17
3 - A - C - D - B 12
Le tableau comporte environ 350 lignes et 20 colonnes. La dernière colonne représente la qté concerné
En bref, je voudrais connaitre la quantité de choses qui passe par A pour aller en B, de C pour aller en D etc etc...
bref, je dois comparer les cellules adjacentes 2 par 2 et ensuite, additionner ce qu'il y a dans la colonne de droite.
C'est ma 1ere macro, je ne sais pas trop comment m'y prendre!
Merci pour votre aide!!
Larourou
Bonjour,
Je dois traiter un tableau excel
Je vous explique ce que j'ai et ensuite ce que je veux :
en ligne, j'ai des "chemins"
par exemple
1 - A - B - C - D 26
2 - A - C - B - A 17
3 - A - C - D - B 12
Le tableau comporte environ 350 lignes et 20 colonnes. La dernière colonne représente la qté concerné
En bref, je voudrais connaitre la quantité de choses qui passe par A pour aller en B, de C pour aller en D etc etc...
bref, je dois comparer les cellules adjacentes 2 par 2 et ensuite, additionner ce qu'il y a dans la colonne de droite.
C'est ma 1ere macro, je ne sais pas trop comment m'y prendre!
Merci pour votre aide!!
Larourou
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Je ferais un truc du style
sub chemin()
Dim AB, AC, AD, BA, BC, BD, CA, CB, CD, DA, DB, DC as integer
Dim chem as string
for i = 1 to 350
for j = 1 to 20
chem=sheets("Feuil1").cells(i,j) & sheets("Feuil1").cells(i,j +1)
select case chem
case "AB"
AB = AB + sheets("Feuil1").cells(i,21)
case"AC"
AC = AC + sheets("Feuil1").cells(i,21)
case"AD"
AD = AD + sheets("Feuil1").cells(i,21)
case "BA"
BA = BA + sheets("Feuil1").cells(i,21)
case"BC"
BC = BC + sheets("Feuil1").cells(i,21)
case"BD"
BD = BD + sheets("Feuil1").cells(i,21)
case "CA"
CA = CA + sheets("Feuil1").cells(i,21)
case"CB"
CB = CB + sheets("Feuil1").cells(i,21)
case"CD"
CD = CD + sheets("Feuil1").cells(i,21)
case "DA"
DA = DA + sheets("Feuil1").cells(i,21)
case"DB"
DB =DB + sheets("Feuil1").cells(i,21)
case"DC"
DC =DC + sheets("Feuil1").cells(i,21)
end select
next j
next i
end sub
(j'ai écrit la macro directement dans le forum sans la tester, peut etre qu'il y a des erreurs à corriger)
