Discussion :

[Sylvie BASTIEN]

Bonjour,
J'ai userform qui enregistre des configurations de couleurs pour d'autres userform.

Avec des lignes de code, dans lesquelles le nom du formulaire appelant est écrit, aucun problème de mise à jour de la couleur de l'userform appelant après avoir quitté l'userform qui enregistre les configurations couleur.

Il serait plus "propre" de mettre le nom du formulaire appelant,déjà stocké dans une cellule excel, dans une variable. J'ai trouvé sur ce site : VBA.UserForms.add(sVariable).show (où sVariable est une variable de type string). Ce code rappelle bien mon formulaire appelant, initialement déchargé, mais sans les couleurs et sans les données (listbox vide).

J'ai cherché sur le net mais j'ai trouvé très peu de chose. Aussi je remercie tous ceux qui voudront bien m'aider

Sylvie Bastien

[Philippe Tulliez]

Bonjour Sylvie,
Je n'ai peut-être pas compris ta question mais je n'ai aucun problème avec cette méthode.
J'ai créé un UserForm avec un ListBox ainsi que deux couleurs (Caption du UserForm) et BackColor
Avec la procédure ci-dessous écrite rapidement donc sans test sur Target, j'affiche bien le UserForm dont le nom est la valeur de la cellule (Target). Les couleurs sont bien là et la liste correctement alimentée.

Code :

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

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 UserForms.Add(Target.Value).Show
 Cancel = True
End Sub

[unparia]

Bonjour
Pas bien compris non plus la question.
Montre le code qui fait ceci, en nous précisant dans quel module de code il est placé :

Avec des lignes de code, dans lesquelles le nom du formulaire appelant est écrit, aucun problème de mise à jour de la couleur de l'userform appelant après avoir quitté l'userform qui enregistre les configurations couleur.

Cela nous "parlera" peut-être un peu plus

[Sylvie BASTIEN]

Merci à tous les deux,

Philippe, j'essaye ta solution et je vous tiens informés

Sylvie Bastien

[Sylvie BASTIEN]

Merci Philippe,

J'ai testé ton code qui affiche bien la boite de dialogue quand je double-clique sur le nom d'une boite de dialogue contenu dans une cellule excel.

Voici ce que j'ai dans mon application

1) label de l'userform usf_bteChoix

Code :

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

1
2
3
4
5
6
7
Private Sub Label6_Click()
'---
'   Intitulé appelant la boite couleur
'---
    Unload usf_bteChoix
    usf_bteCouleur.Show
End Sub

2) bouton quitter de l'userform usf_bteCouleur : (userform qui possède les boutons "Ajouter", "Modifier", "Supprimer" et "Quitter")

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
Private Sub CommandButton4_Click()
'---
'   Bouton "QUITTER" de la boite couleur
'---
    'fermeture de la boite couleur
    Unload usf_bteCouleur
 
    'témoin de boite appelante
    monTexte = Worksheets("Renseignements").Cells(2, 15).Value
 
    'affichage de la boite de dialogue selon le témoin
    Select Case monTexte
        Case Is = "usf_bteChoix"
            usf_bteChoix.Show
 
        Case Is = "usf_btePersonnels"
            usf_btePersonnels.Show
    End Select
'---
'   décharger les variables utilisées
'---
    Set monTexte = Nothing
End Sub

Certes, avec select case..., les boites de dialogue sont chargées avec leurs couleurs et leurs données.

VBA.UserForms.add(monTexte).show ne semble pas passer par Private Sub UserForm_Initialize() de la boite contenue dans la variable.

Philippe et unparia, si vous avez une idée... je suis preneuse

[unparia]

Ce code ne permets pas de voir quel est le problème.
J'y note par ailleurs une aberration évidente entre :

Code :

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

monTexte = Worksheets("Renseignements").Cells(2, 15).Value

et

Code :

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

Set montexte = Nothing

commence s'il te plait par travailler en Option Explicit, ce qui t'obligera à typer ta variable montexte
Lance et tu la verras, cette aberration ...

Et enfin : si des instructions sont à exécuter pour modifier des contrôles dans un userform, elles ne sont pas à mettre dans son évènement Initialize, mais dans son évènement Activate.

[Sylvie BASTIEN]

Unparia,

Ma variable monTexte est de type string. Elle est définie ailleurs dans l'application. Elle est initialisée, puis je travaille avec son contenu. Et à la fin, elle est déchargée afin de libérer de la mémoire.

Pourquoi trouves-tu cela bizarre ? N'est-ce pas utile ?

[unparia]

Si elle était vraiment "de type string. Elle est définie ailleurs dans l'application" et donc en Public pour être accessible depuis ton bouton "QUITTER", tu aurais une magnifique erreur dénoncée à cette ligne :

Code :

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

Set montexte = Nothing

Travaille donc proprement en Option Explicit -->> et tu verras que le type de cette variable est inconnu dans le code de ton bouton "QUITTER"

[Sylvie BASTIEN]

Unparia

Mes variables sont toutes déclarées dans le module ThisWorkbook et elles sont précédées de Option Explicit

[eriiic]

Bonjour,

Option explicit t'oblige à déclarer tes variables, mais pas à les typer.
Unparia a fait un écart de langage mais il parle bien du type. Ta variable texte n'est pas typée (ou typée Variant) au lieu de String. Il faut typer au plus près de ce que tu veux qu'elle contienne.
eric

[Sylvie BASTIEN]

Bonjour Eriiic,

J'ai déclaré une variable de type variant et je l'ai utilisée avec VBA.UserForms.add.... L'userform est bien chargé mais sans les couleurs et sans les données.

Unparia a pointé le déchargement de ma variable juste avant la fin de ma procédure. Mais il a oublié de m'indiquer pourquoi.

J'ai lu plusieurs fois que cela permettait de libérer de la mémoire. Comment procèdes-tu ?

[unparia]

J'ai lu plusieurs fois que cela permettait de libérer de la mémoire

De décharger de la mémoire des variables objets.
Ta variable montexte n'est pas un objet.

[Sylvie BASTIEN]

Bonjour Eriiic,

J'ai déclaré une variable de type variant et je l'ai utilisée avec VBA.UserForms.add.... L'userform est bien chargé mais sans les couleurs et sans les données.

Unparia a pointé le déchargement de ma variable juste avant la fin de ma procédure. Mais il a oublié de m'indiquer pourquoi.

J'ai lu plusieurs fois que cela permettait de libérer de la mémoire. Comment procèdes-tu ?

[Philippe Tulliez]

Bonjour Sylvie,
Maintes fois répété par Unparia et appuyé par Eric, il y a une incompatibilité entre cette ligne

Code :

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

monTexte = Worksheets("Renseignements").Cells(2, 15).Value

et celle-ci

Code :

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

Set montexte = Nothing

Set est un mot clé utilisé pour attribuer une référence d'objet à une variable ou à une propriété or la variable monTexte n'est pas un objet dans ton cas mais une valeur.

Exemple

Code :

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

1
2
3
4
5
6
7
 Dim rng As Range  ' Variable objet de type range
 Dim txt As String ' Variable de stype String (chaîne de caractères)
 txt = "Mon texte"
 Set rng = ThisWorkbook.Worksheets("Résultats").Range("A1").CurrentRegion
 ' Code
 ' Fin de procédure
 Set rng = Nothing ' Libère la mémoire occupée par la variable objet

Typer une variable comme un variant n'est pas une bonne pratique.

La lecture de ce tutoriel Utiliser les variables en VBA Excel t'en apprendra plus sur le sujet

[eriiic]

Comme dit unparia, elle ne doit pas être Variant mais String.
C'est une question de rigueur qui t'empêche une utilisation anormale de la variable. Un bon type permet en plus à l'autocomplétion de te proposer les bonnes propriétés et méthodes (dans la mesure où tu ne te contentes pas de As Variant ou As Object quand tu as mieux ;-)).
Que ta variable texte soit considérée comme un objet (seuls à accepter Is Nothing) peut s'avérer gênant donc ça mange pas de pain de bien la typer, au contraire.
C'est fortement conseillé de bien typer, même si le cœur de ton problème est trouvé ailleurs.
Edit : bon, j'ai été trop lent, désolé de la sur-couche :-)