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 …

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