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.