help macro pour comparer sous excel Fermé

Question

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

nikomania · Answer

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)

Help macro pour comparer sous excel

1 réponse

Discussions similaires