Discussion :

[bernard_metz]

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

[Docmarti]

Bonsoir Bernard

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bernard_metz]

Merci de la réponse!

Voilà le code que j'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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 …

[Docmarti]

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.

[bernard_metz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[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 …

[Igloobel]

Salut
tu dis

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

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

... 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

[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/

[bernard_metz]

re bonjour,

merci pour tout cela.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[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

[Invité]

Salut,

En utilisant simplement le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avec 'XXXX' le nom du controle.

[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 …

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[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 …