Activation de variables sous condition

Version imprimable

07/06/2017, 16h48
Junfiizz

Activation de variables sous condition

Bonjour!

J'ai une simple question, et votre réponse me permettra soit de dire youpi, soit de me tirer les cheveux, encore.

Est-il possible sous VBA "d'activer" une variable avec une condition?

En gros si en B6 ce trouve le nom correspondant a la variable nom1 par exemple, alors c'est la variable compteur1 qui s'incrémente par la suite, et ainsi de suite, si après c'est nom5, ce seras le compteur5 qui s'incrémente.

Je ne sais pas si je suis très clair..

Bref, merci d'avances de vos réponses!
08/06/2017, 08h06
Invité

Bonjour,
Quand tu dis variable tu parle de variable vba ou celle excel?

En d'autre terme tu veux incrémenter un cellule? Cellule("nom1") = Celulle("nom1") + 1?

Ou Variable("nom1") = Variable("nom1") + 1?
08/06/2017, 09h12
Junfiizz

Je parle d'une variable en vba, qui ne s'activerai que par correspondance avec une autre variable.

Un truc du genre :
Si il détecte 1 en b6 alors, nom1 = c6 et compteur6 = compteur6 +1
Sinon compteur6 = compteur6

Mais, si en c6 si il détecte nom15, c'est le compteur15 qui s'active.

Je pourrais faire tout les test a chaque fois, mais il a 23 nom, donc 23 compteur, j'aurais aimer savoir si il y avait une solution plus "simple" ou tout du moins, moins longue a l'écriture.
Et je ne peux pas compter le nombre de fois que le nom15 apparaît par exemple car parfois il apparaît trois fois mais pour un seul événement.

Je peux fournir les colonnes du tableur qui m'intéresse pour que ce soit plus compréhensible, si jamais.

Merci!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Dico As Object
Public Property Let Variables(Nom As String, value As Variant)
If TypeName(Dico) = "Nothing" Then Set Dico = CreateObject("Scripting.Dictionary")
Dico(Nom) = value
End Property
Public Property Get Variables(Nom As String) As Variant
If TypeName(Dico) = "Nothing" Then Set Dico = CreateObject("Scripting.Dictionary")
Variables = Dico(Nom)
End Property
Sub test()
Set Dico = Nothing
For i = 1 To 10
    Variables("compteur6") = Variables("compteur6") + 1
    Variables("compteur15") = Variables("compteur6") - 1
    Debug.Print Variables("compteur6"), Variables("compteur15") 
Next
End Sub

08/06/2017, 11h32
Junfiizz

J'avoue ne pas comprendre grand chose a ton code...

Pourrais tu l'expliquer un peu?
08/06/2017, 12h38
Invité

property c'est comme un variable, et vue que Property Variables gère le Dictionary {Dico(Nom) = value} les variables sont créé dynamiquement car il n'est absolument pas possible d'appeler une variable par son nom!

Variables("compteur6") = Variables("compteur6") + 1 ajoute un item "compteur6" au dico puis l’incrémente de 1!

maintenant si le nom des variables sont assujetti aux valeur Excel et/ou des compteurs il te faut identifier dans un feuille de configuration le règles de nommages!