Bonjour,


j'ai des noms d'opération sur ma premiere colonne de mon tableau auxquelles je leur ai affecté une valeur sur la 2eme colonne.

Si le nom de l'opération fini par un "1" alors j'affiche sa valeur par une msgbox SINON je vais chercher le même préfixe de l'opération (les deux premiers caractères) et j’enlève 1 au dernier chiffre afin de trouver la valeur de son opération précédente dans le tableau.

Tout ceci afin d'afficher les valeurs cumulées (celles de l'opération en question + son opération précédente).

je suis parti du code suivant mais je n'arrive pas à lui dire de chercher le même préfixe en soustrayant de 1 le dernier chiffre

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
 
Dim tableau(3, 2) As Variant
 
 
tableau(0, 1) = "O11"
tableau(0, 2) = 1
tableau(1, 1) = "O21"
tableau(1, 2) = 2
tableau(2, 1) = "O12"
tableau(2, 2) = 3
tableau(3, 1) = "O22"
tableau(3, 2) = 4
 
For i = 0 To UBound(tableau, 1)
 
 
 
 If Right(tableau(i, 1), 1) = 1 Then
 
     MsgBox tableau(i, 2)
 
 
   ' sinon on va chercher l'opération précedante
 Else
 
 
   ' MsgBox "valeur cumulée" = tableau(i, 2) +
 
   'Afficher la valeur de l'opération en question
   ' + la valeur de l'opération précédente qui a le même préfixe ("O1" ou "O2") que l'opération en question
 
 
 End If
 
Next i
 
 
End Sub
merci beaucoup