Chercher une précédence

[awa123]

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

 Sub test()
 
Dim tableau(3, 2) As Variant
 
 
tableau(0, 1) = "O11"
tableau(0, 2) = 1
tableau(1, 1) = "O12"
tableau(1, 2) = 3
tableau(2, 1) = "O21"
tableau(2, 2) = 2
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

 

[Paf]

Re : Chercher une précédence

Voir le post #3 de Dranreb qui était prévoyant !

 

[Dranreb]

Re : Chercher une précédence

Notre ami ne comprend peut être pas ce que ça veut dire ?
Repris d'une des plus importantes pièces de ma programmation, souvent proposée :

Rem. La manipulation aisée et rapide des Dictionary exige la bibliothèque Scripting, fichier C:\WINDOWS\System32\scrrun.dll
' Veillez donc à ce que "Microsoft Scripting Runtime" soit bien coché dans la liste Références disponibles, menus Outils, Références…

 

[awa123]

Re : Chercher une précédence

merci c'est bon ça tourne !