Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Attaquer une variable par son nom

Attaquer une variable par son nom

11 réponses
Avatar
John Fuss
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la modifier
?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Michel HOLDERITH
Salut,
Pourquoi ne pas juste declarer ta variable public ?
@+
Michel.

"John Fuss" wrote in message
news:bo822c$90e$
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier

?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John




Avatar
John Fuss
Je ne sais pas à l'avance quelle variable attaquer, je recupère le nom de la
variable dans un string et je voudrai pouvoir modifier ses propriétés depuis
son nom.

John

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,
Pourquoi ne pas juste declarer ta variable public ?
@+
Michel.

"John Fuss" wrote in message
news:bo822c$90e$
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier

?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John








Avatar
Michel HOLDERITH
Bonjour tout le monde,
Voila j'ai cree plusieurs graphiques sous excel.
J'ai sauve le fichier excel en tant que web page et les graphiques sont
sauves sous forme : image001.gif, image002.gif, etc...
Existe-t-il un moyen pour ne pas avoir image001.gif mais un nom pre-etablit
lors de la sauvegarde web page ?
C'est a dire sous excel je donne un nom (ce que j'ai fait d'ailleurs) a tous
mes graphiques (ex : "pertes futures") et lors de la sauvegarde web page je
n'ai pas image001.gif mais pertes futures.gif ?
D'avance merci,
@+
Michel.

"John Fuss" wrote in message
news:bo822c$90e$
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier

?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John




Avatar
Michel HOLDERITH
oups.... desole.....

"John Fuss" wrote in message
news:bo86qj$baj$
Je ne sais pas à l'avance quelle variable attaquer, je recupère le nom de
la

variable dans un string et je voudrai pouvoir modifier ses propriétés
depuis

son nom.

John

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:
Salut,
Pourquoi ne pas juste declarer ta variable public ?
@+
Michel.

"John Fuss" wrote in message
news:bo822c$90e$
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier

?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John












Avatar
Alain CROS
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news: bo822c$90e$
Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la modifier
?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John




Avatar
John Fuss
Je test ça, merci bcp

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news:
bo822c$90e$

Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier


?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John








Avatar
John Fuss
Alain,

j'essai ton code, mais je voudrai finalement fair ecomme suit :

Public MaVariable as String

Sub SetValue(Var as string, Value as string)
ModifieVariable(Var) = Value
End Sub


et je tape...
SetValue "MaVariable", "toto"
msgbox MaVariable

est-ce possible ?

"John Fuss" a écrit dans le message de
news:boaa0r$ak3$
Je test ça, merci bcp

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news:
bo822c$90e$

Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier


?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John












Avatar
Frédéric Sigonneau
Bonsoir,

J'ai peut-être manqué un épisode, mais pourquoi une procédure particulière pour
affecter une valeur à une variable au lieu d'une affectation directe :

Public MaVariable

Sub Test()
MaVariable="toto"
MsgBox MaVariable
MaVariable="titi"
MsgBox MaVariable
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Alain,

j'essai ton code, mais je voudrai finalement fair ecomme suit :

Public MaVariable as String

Sub SetValue(Var as string, Value as string)
ModifieVariable(Var) = Value
End Sub

et je tape...
SetValue "MaVariable", "toto"
msgbox MaVariable

est-ce possible ?

"John Fuss" a écrit dans le message de
news:boaa0r$ak3$
Je test ça, merci bcp

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news:
bo822c$90e$

Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier


?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John














Avatar
John Fuss
Le fameux prkoi du comment...

J'ai créé une class dont j'instancie plusieurs occurences (variables suivant
le projet) et je voudrai faire une fonction où je lui passe un tableau
contenant les noms des occurences et je voudrai que cette f° me fasse un
traitement sur chaque occurence.

Voili voilou

John


"Frédéric Sigonneau" a écrit dans le message
de news:
Bonsoir,

J'ai peut-être manqué un épisode, mais pourquoi une procédure particulière
pour

affecter une valeur à une variable au lieu d'une affectation directe :

Public MaVariable

Sub Test()
MaVariable="toto"
MsgBox MaVariable
MaVariable="titi"
MsgBox MaVariable
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Alain,

j'essai ton code, mais je voudrai finalement fair ecomme suit :

Public MaVariable as String

Sub SetValue(Var as string, Value as string)
ModifieVariable(Var) = Value
End Sub

et je tape...
SetValue "MaVariable", "toto"
msgbox MaVariable

est-ce possible ?

"John Fuss" a écrit dans le message de
news:boaa0r$ak3$
Je test ça, merci bcp

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news:
bo822c$90e$

Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier


?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John


















Avatar
Frédéric Sigonneau
Bonsoir,

Dans ce cas, je pense que tu pourrais ajouter à ta classe une propriété
(Property) dont la valeur pourrait être mise à jour (par exemple dans une boucle
sur les instances de ta classe) avec une petite procédure de ce style :

Sub MajProp(LaClasse As TaClasse, NouvelleValeur As String)
LaClasse.LaPropriété=NouvelleValeur
End Sub

Ça suppose que la classe que tu as créée comporte une propriété nommée
LaPropriété (ou peut-être même qu'une variable publique déclarée dans la classe
suffirait..).

A tester.

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Le fameux prkoi du comment...

J'ai créé une class dont j'instancie plusieurs occurences (variables suivant
le projet) et je voudrai faire une fonction où je lui passe un tableau
contenant les noms des occurences et je voudrai que cette f° me fasse un
traitement sur chaque occurence.

Voili voilou

John

"Frédéric Sigonneau" a écrit dans le message
de news:
Bonsoir,

J'ai peut-être manqué un épisode, mais pourquoi une procédure particulière
pour

affecter une valeur à une variable au lieu d'une affectation directe :

Public MaVariable

Sub Test()
MaVariable="toto"
MsgBox MaVariable
MaVariable="titi"
MsgBox MaVariable
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Alain,

j'essai ton code, mais je voudrai finalement fair ecomme suit :

Public MaVariable as String

Sub SetValue(Var as string, Value as string)
ModifieVariable(Var) = Value
End Sub

et je tape...
SetValue "MaVariable", "toto"
msgbox MaVariable

est-ce possible ?

"John Fuss" a écrit dans le message de
news:boaa0r$ak3$
Je test ça, merci bcp

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Essaye comme ça.

Sub MiseAJourVariable(NomVariable$)
On Error Resume Next
ActiveSheet.OLEObjects(NomVariable).Object.Caption = "c'est fait"
If Err.Number <> 0 Then MsgBox "raté"
End Sub

Alain CROS.

"John Fuss" a écrit dans le message de news:
bo822c$90e$

Bonjour à ts & ttes,

Puis-je faire une fonction où je passe le nom d'une variable et la
modifier


?

ex :

Sub MiseAJourVariable(NomVariable as string)
Variable(NomVariable).Caption = "c'est fait"
End Sub

Merci d'avance

John




















1 2