Bonjour,

j'ai un problème avec une macro que j'essaye de créer. je vous explique:
j'ai créé un interface qui demande à l'utilisateur de saisir quatre valeurs correspondant aux entêtes suivante: X, Y, Z_début, Z_fin dans les cellules E7, F7, G7 et H7 que j'ai nommée x, y, Z0 et Zf

la macro doit concaténer les trois premières valeurs et faire une recherche verticale du résultat dans une plage nommée table. jusque là aucun problème ma macro marche et me renvoie la valeur correspondant à la recherche qui est un tonnage.

le problème commence quand j'introduis la boucle "for next". parce que je ne cherche pas qu'a afficher le résultat de la recherche, je veux aussi que ce résultat soit cumulé pour toute les valeurs de la variable cote allant de Z0 à ZF. Z0 étant toujours supérieur à ZF. Aidez moi s'il vous plait à trouver l'erreur dans le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Planification()
'
' Planification Macro
'
Dim cote As Single
Dim tonnage_0 As Single
Dim tonnage_total As Single
 
cote = Range("G7").Value
For cote = Z0 To Zf Step -1
Range("I7").Select
ActiveCell.FormulaR1C1 = Range("E7").Value & "-" & Range("F7").Value & "-" & cote
Range("F12").Select
ActiveCell.FormulaR1C1 = Range("G7").Value & " -> " & Range("H7").Value
Range("G12").Select
ActiveCell.FormulaR1C1 = "=vlookup(code,table,2,0)"
tonnage_0 = Range("G12").Value
tonnage_total = tonnage_total + tonnage_0
Range("G12").Value = tonnage_total
Next
 
End Sub