Récupérer le nom d'une variable dans un tableau type Array

Bonjour à tous (et bonne année)

Ça y est ! Je colle à un point sur la création d'un scripte que je me suis finalement créé un compte ... je vous explique:

J'ai défini un tableau Array dans lequel on trouve pas moins de 200 arguments qui sont des Variables (qui récupèrent des valeurs numériques dans un txt). aujourd'hui j'aimerais bouclé sur ce tableau et faire une mise en forme conditionnelle en fonction du nom de la variable. Ci dessous un exemple (simplifié).

...For ...

Variables = Array(P1_bas, P1_bas_Nominal + P1_bas_ITsup, P1_bas_Nominal, P1_bas_Nominal + P1_bas_ITinf, Circularite_P1_bas, Circularite_P1_bas_IT, y_P1_bas, y_P1_bas_Nominal + y_P1_bas_ITsup, y_P1_bas_Nominal, y_P1_bas_Nominal + y_P1_bas_ITinf, z_P1_bas, z_P1_bas_Nominal + z_P1_bas_ITsup, z_P1_bas_Nominal, z_P1_bas_Nominal + z_P1_bas_ITinf)

For ligne = Ligne_debut To Ligne_fin

Cells(ligne, Incrementation_de_colonne).Value = Variables(ligne - Ligne_debut)

If Variables(ligne - Ligne_debut).Name = "*" & "IT" & "*" Then

Cells(ligne, Incrementation_de_colonne).Select

Selection.Font.Italic = True

End If

Next

Next...

Mais Variable(x).name bah ca marche pas...

Merci de votre aide

Bonjour

je peux me tromper

Mais tu essayes de trouver le nom de la variable à partir d'un tableau contenant des nombres : Pas facile facile (même impossible)

A mon avis tu fais un 2ème tableau qui contient les noms de variable (

VariablesTxt = Array("P1_bas", "P1_bas_Nominal + P1_bas_ITsup",.......

Ensuite avec la position du 1er tableau tu peux récupérer le nom de la variable

Cells(ligne, Incrementation_de_colonne).Value = Variables(ligne - Ligne_debut) ' Tu écris la valeur dans la cellule
Nom = VariablesTxt(ligne - Ligne_debut)   ' Nom contient le nom de la variable

Bonjour

Pour continuer

Voici un code qui doit faire ce que tu veux

Sub essai()
  Variablestxt = Array("P1_bas", "P1_bas_Nominal + P1_bas_ITsup", "P1_bas_Nominal", _
              "P1_bas_Nominal + P1_bas_ITinf", "Circularite_P1_bas", "Circularite_P1_bas_IT", _
              "y_P1_bas", "y_P1_bas_Nominal + y_P1_bas_ITsup", "y_P1_bas_Nominal", "y_P1_bas_Nominal + y_P1_bas_ITinf", _
              "z_P1_bas", "z_P1_bas_Nominal + z_P1_bas_Nominal", "z_P1_bas_Nominal", "z_P1_bas_Nominal + z_P1_bas_ITinf")

  Variables = Array(P1_bas, P1_bas_Nominal + P1_bas_ITsup, P1_bas_Nominal, _
              P1_bas_Nominal + P1_bas_ITinf, Circularite_P1_bas, Circularite_P1_bas_IT, y_P1_bas, _
              y_P1_bas_Nominal + y_P1_bas_ITsup, y_P1_bas_Nominal, y_P1_bas_Nominal + y_P1_bas_ITinf, _
              z_P1_bas, z_P1_bas_Nominal + z_P1_bas_ITsup, z_P1_bas_Nominal, z_P1_bas_Nominal + z_P1_bas_ITinf)

  For ligne = ligne_debut To ligne_fin
    Cells(ligne, Incrementation_de_colonne).Value = Variables(ligne - ligne_debut)
    If Variablestxt(ligne - ligne_debut) Like "*" & "IT" & "*" Then
      Cells(ligne, Incrementation_de_colonne).Font.Italic = True
    End If
  Next
End Sub

Merci bien c'est nickel

par contre le

trouver le nom de la variable à partir d'un tableau contenant des nombres : Pas facile facile (même impossible)