Bonjour,

J'ai une macro qui me renvoie des valeurs en string qui correspondent à des variables que j'ai déclaré précedemment, et je n'arrive pas à faire reconnaître mes chaînes comme telles.
Dans l'exemple suivant, je voudrais obtenir 98 dans ma msgbox à partir de "ki"...

Sub Conversion()

k1 = 98
I = 1
MsgBox ("k" & i) 'Renvoie bien sûr "ki"

End Sub

J'ai essayé tout un tas de combinaisons avec Cint, Cstr ... comme me l'avait conseillé Daniel,
mais je n'arrive à rien.

Si quelqu'un pouvait m'aider...

Merci,

E.B.

Utilise des tableaux plutôt :

Dim k(100) As integer
I = 1
Msgbox (k(I))

Sub Conversion()
'déclaration de tes varibles en tant qu'entier
dim k1 as integer
dim i as integer

k1 = 98
i = 1
MsgBox ("k1=" &  str(k1) & " i=" & str(i))  'Renvoie bien sûr "k1=98 i=1""

End Sub

j'espère que c'est ce que tu voulais

SupraDolph.

t'as essayé  ?
dim nm as string

k1 = 98
nm = cint(cstr("k" + i))

msgbox "result =" + nm

Désolé d'insiter, mais je n'y arrive toujours pas. La solution de etniks me renvoie une incompatibilité de type...

Ce que je ne comprends pas c'est pourquoi à partir du moment ou j'obtiens la chaîne de caractère correspondant à ma variable "k1" correspondant à k1, la fonction Cint ne suffit pas m'ôter les "" pour reconnaître la variable...

Je vais tenter de passer par un tableau, mais le problème, c'est que ma chaîne en string es déjà renvoyée par un tableau genre tblo(5)="k1"...

Merci pour votre aide

E.B.

Ben tu es en VB, tu n'est pas en LISP, tes variables sont typés. La fonction CInt convertit une chaîne en nombre, ca d'accord, mais elle n'interprête pas la chaîne. Par exemple, Cint("8 + 3") te renvoie pas 11 mais provoque une erreur de type incompatible, normal !

C'est pour cà, tu n'a guère le choix, à part passer par un tableau, je ne vois pas !

J'ai trouvé une solution à mon problème qui, je dois le reconnaître n'est pas bien élégante...
Je vuolais initialement convertir les nombres en chiffres romains d'une chaîne en chiffres arabes, et ma question visait à m'éviter la lourdeur des "if" successifs pour t et t-1...
Je ne doute pas qu'il y ai plus simple, mais le plaisir de réussir tout seul...
Merci quand même


Sub Romains()

Dim VF As Integer

For k = 3 To 24

    Dim Tableau()
    Compteur = 1
   
    For I = 0 To Len(Cells(k, 1)) - 1
    clef = Mid(Cells(k, 1), I + 1, 1)
    ReDim Preserve Tableau(1 To Compteur)
    Tableau(Compteur) = clef
    Compteur = Compteur + 1
    Next

t = 2

If Len(Cells(k, 1)) > 1 Then

    While t <= Len(Cells(k, 1))
       
If Tableau(t) = "I" Then Tableau(t) = 1
If Tableau(t) = "V" Then Tableau(t) = 5
If Tableau(t) = "X" Then Tableau(t) = 10
If Tableau(t) = "L" Then Tableau(t) = 50
If Tableau(t) = "D" Then Tableau(t) = 100
If Tableau(t) = "M" Then Tableau(t) = 1000
If Tableau(t - 1) = "I" Then Tableau(t - 1) = 1
If Tableau(t - 1) = "V" Then Tableau(t - 1) = 5
If Tableau(t - 1) = "X" Then Tableau(t - 1) = 10
If Tableau(t - 1) = "L" Then Tableau(t - 1) = 50
If Tableau(t - 1) = "D" Then Tableau(t - 1) = 100
If Tableau(t - 1) = "M" Then Tableau(t - 1) = 1000
       

        If Tableau(t - 1) >= Tableau(t) Then
            If t < Len(Cells(k, 1)) Then
            VF = VF + Tableau(t - 1)
            Else: VF = VF + Tableau(t - 1) + Tableau(t)
            End If
        t = t + 1
        Else: VF = VF + Tableau(t) - Tableau(t - 1)
        t = t + 2
        End If
   
    Wend
   
ElseIf Len(Cells(k, 1)) = 1 Then
    If Tableau(1) = "I" Then Tableau(1) = 1
    If Tableau(1) = "V" Then Tableau(1) = 5
    If Tableau(1) = "X" Then Tableau(1) = 10
    If Tableau(1) = "L" Then Tableau(1) = 50
    If Tableau(1) = "D" Then Tableau(1) = 100
    If Tableau(1) = "M" Then Tableau(1) = 1000
   
    VF = Tableau(1)

ElseIf Len(Cells(k, 1)) = 0 Then
    VF = 0

End If

VF = 0

Next

End Sub

Il y avait aussi une solution, mais un peu lourde à mettre en place (c'est pourquoi je ne l'ai pas donnée), qui consistait à créer une collection "encapsulée" comme décrite dans les tutos msdn, qui te permet d'appeler indifféremment l'élément de la collection par son index numérique ou son index de type « string ».

 

Rico

j'ai un petit solution je sais pas si elle te convient

en fait pour les variables t'a qu'a mettre des controles label invisible sur la feuille

Label1 = 20

MsgBox Form1.Controls("label1").Caption


Hassen TUNISIE

mais c'est du visual basic pas du VBA

Hassen TUNISIE