Set variable=objet. comment faire pour que objet soit remplacé par une variable contenant le nom de l'objet?

Version imprimable

09/03/2014, 21h58
bernard_metz

Set variable=objet. comment faire pour que objet soit remplacé par une variable contenant le nom de l'objet?

Bonjour,

je souhaite utiliser la fonction "Set variable = objet" en paramètrant le mot "objet". Je m'explique: je souhaite que l'objet soit variable en fonction de certains paramètres...

Apparemment, on ne peut mettre derrière le "=" que un nom d'objet existant et non une variable où se trouve le nom de l'objet...

Cette possibilité de remplacer le nom de l'objet par une variable contenant son nom ou une autre méthode me serait bien utile...

Quelqu'un peut il m'aider?

merci d'avance
10/03/2014, 03h47
Docmarti
Bonsoir Bernard

Citation:

Envoyé par bernard_metz

Apparemment, on ne peut mettre derrière le "=" que un nom d'objet existant et non une variable où se trouve le nom de l'objet...

Cette limitation n'existe pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub tt() Dim a As Object Dim b As Object Set a = Range("A1:B2") Set b = a Debug.Print b.Address End Sub
10/03/2014, 09h50
bernard_metz
Merci de la réponse!

Voilà le code que j'ai essayé:
Code:

1 2 3 4 5 6 7 8 9 Dim A As objet Dim B As objet Private Sub essai() Set A = Sheets("essai").Range("H10") Set B = A B.Caption = "ok" End Sub
J'obtien le message : Erreur de compilation: Type défini par l'utilisateur non défini.

L'objectif étant ici de pouvoir utiliser une procédure unique pour un ensemble de contrôles bien sure...
10/03/2014, 11h09
Marc-L

Bonjour, bonjour,

message tout à fait normal !

Quelle ligne donc déclenche l'erreur ? Quelle propriété est en cause ?
As-tu au moins vérifié qu'elle existait sur l'objet rattaché ? (Évidemment non …)
L'objet est-il un contrôle ? (Ben non c'est une cellule ‼)
Sans compter la mauvaise orthographe du type objet …
10/03/2014, 12h07
Docmarti

Citation:

Envoyé par bernard_metz

J'obtien le message : Erreur de compilation: Type défini par l'utilisateur non défini.

Tu as écrit Objet au lieu de Object

Du coup tu essaies de déclarer un type inconnu de VBA.

re bonjour,

merci pour les réponses!... ca progresse mais apparemment il doit me manquer encore quelque chose...

j'ai corrigé objet par object oups...

j'ai vérifier le code ci-dessous dans un nouveau classeur pour enlever tous problème pouvant venir du code actuel et j'ai créé le bouton "B" sur un formulaire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Userform_activate() Dim a As Object Dim B As Object Set a = Sheets("essai").Range("A1") ' la cellule comporte le nom du formulaire + le nom du bonton "formulaire.B" Set B = a Debug.Print B.Address B.Caption = "ok" End Sub
Cette fois-ci j'ai le message d'erreur: erreur d'exécution '438' - propriété ou méthode non gérée par cet objet

... et le surlignement jaune est sur --> B.Caption = "ok"

10/03/2014, 13h08
Marc-L

Comme déjà indiqué, c'est normal car l'objet est une cellule et non pas un contrôle ‼

En activant l'Enregistreur de macros, sélectionner le contrôle puis modifier ses propriétés, code livré sur un plateau !
Suffit ensuite de remplacer dans le code généré le nom du contrôle par la référence de la cellule …
10/03/2014, 13h24
Igloobel

Salut
tu dis

Citation:

... et le surlignement jaune est sur --> B.Caption = "ok" .

et comme les autres je dis c'est normal
Marc-L dis

Citation:

... l'objet est une cellule et non pas un contrôle ‼

ton ".Caption" est une méthode de l'objet Contrôle comme un bouton par exemple.
Il faut une méthode propre à lobjet cellule du genre ".value" (qui devrait faire l'affaire mais j'ai pas le temps de tester)

à bientôt
10/03/2014, 13h35
Docmarti

Pour avoir une introduction de base à la programmation VBA pour Excel

http://www.agroparistech.fr/IMG/pdf/...A2012-2013.pdf

Pour aller plus loin:

http://silkyroad.developpez.com/VBA/DebuterMacros/

re bonjour,

merci pour tout cela.

Peut être me suis-je mal exprimé... --> voir les explications complémentaires en remarques sur le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Userform_activate()
 
    Dim a As Object
    Dim B As Object
 
    '********************
    ' PLUS D'EXPLICATIONS
    '********************
    ' j'ai mis le nom de mon contrôle qui est un "bouton" dans la cellule Sheets("essai").Range("A1")
    ' mais je l'obtiens aussi par du code et cela dans une variable comme par exemple nombouton = "B"
    ' je connais le nom du formulaire : "formulaire"
    ' dans la fonction "B.Caption" je souhaite que B corresponde au résultat: formulaire.B
    ' et que cette fonction agisse comme : formulaire.B.Caption = "ok"
    ' c'est cela que je n'arrive pas à réaliser
    ' je pourrais remplacer Set a = Sheets("essai").Range("A1") par Set a = "formulaire." + "B"
    ' mais c'est cela qui ne marche pas
 
    Set a = Sheets("essai").Range("A1") ' la cellule comporte le nom du formulaire + le nom du bonton "formulaire.B"
 
    Set B = a
 
    Debug.Print B.Address
 
    B.Caption = "ok"
 
    ' en conclusion, c'est ce "B" qui est la variable qui me permettrait d'utiliser la même "sub"
    ' pour plusieurs noms de bouton
 
End Sub

En d'autres termes encore:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Userform_activate()
 
    Dim a As Object
    Dim B As Object
 
    Set a = "formulaire." + "B"            ' ceci ne marche pas... coment faire pour écrire         formulaire.B          à cet endroit? Ou quel autre méthode permettrait d'obtenir ce résultat?
 
    Set B = a
 
    Debug.Print B.Address
 
    B.Caption = "ok"
 
End Sub

10/03/2014, 15h00
Marc-L

Citation:

Envoyé par Marc-L

En activant l'Enregistreur de macros, sélectionner le contrôle puis modifier ses propriétés, code livré sur un plateau !
Suffit ensuite de remplacer dans le code généré le nom du contrôle par la référence de la cellule …

Cela donne quoi le code généré par l'Enregistreur de macros ?
10/03/2014, 15h54
bernard_metz

re bonjour,

Mon souci n'est pas de modifier le nom d'un contrôle car cela je sais le faire dans le code; où alors je n'ai pas compris la raison de votre conseil...

Ce que je cherche à faire c'est appeler des propriétés d'un contrôle en utilisant une variable au lieu d'un texte fixe.

Le texte habituel serait formulaire.B.Caption = "ok" et dans mon cas "B" est un contrôle que je souhaite faire fonctionner comme une variable...

Je vais essayer d'être encore plus précis dans l'explication de mon problème et veuillez m'excuser si je me suis mal exprimé avant cela:

Je dois exécuter les fonctions ci-dessous dans une "sub" générale (ceci fonctionne à partir du moment où les contrôles "RRRR", "SSSS", "TTTT", "UUUU" et "VVVV" sont présents sur le formulaire":

formulaire.RRRR.Caption = "ok"
formulaire.SSSS.Caption = "ok"
formulaire.TTTT.Caption = "ok"
formulaire.UUUU.Caption = "ok"
formulaire.VVVV.Caption = "ok"

Afin d'éviter de reproduire cette "sub" plusieurs fois, je souhaiterais pouvoir écrire : formulaire.B.Caption = "ok" où B serait tantôt = à "RRRR", "SSSS", "TTTT", "UUUU" et "VVVV"... et donc dans ce cas il ferait appel à un contrôle en fonction de la valeur "B".

Je cherche simplement à savoir comment paramètrer ce "B" ou alors si une autre méthode permet d'arriver à ce résultat...

merci encore à vous tous
10/03/2014, 17h15
Invité

Salut,

En utilisant simplement le code suivant:

Code:

Me.Controls("XXXX").Caption = "OK"

avec 'XXXX' le nom du controle.
10/03/2014, 17h35
Marc-L

Salut Vincent !

Cela faisait un bail !

Il aurait pu le trouver par lui-même via le Générateur de macros car a-t-il capté la notion d'objet ? …
J'avais pourtant fourni toutes les billes dès mon premier message …
10/03/2014, 18h12
bernard_metz
Re bonjour,

Merci!!! ca y est et en plus ca fonctionnne... simple et efficace... un grand merci ça va me simplifier les choses pour la suite...

Désolé pour Marc si je n'ai pas tout saisi.... mais avec le générateur de macro il ne m'affiche rien lorsque je travaille sur des "boutons".... : exemple
Code:

1 2 3 4 5 6 7 8 9 Sub Macro3() ' ' Macro3 Macro ' ' Range("F16").Select ActiveSheet.Shapes("CommandButton1").Select End Sub
Voilà tout ce que j'ai après avoir arrêté l'enregistreur de macro; bien que j'ai fait l'ensemble de la démarche normalement...

Il y a là aussi peut être quelque chose qui m'échape parceque cet outil est super pour des bricoleurs comme moi ;-) ?...

Encore un grand merci!
10/03/2014, 19h40
Marc-L

Oui en fait ce n'est pas un "bouton" mais un "bouton de commande" !
Et avec le code généré, cela ne peut donc pas être un objet Range …