Feuille userform avec paramètres Résolu

Question

Bonjour, 

Peut-on appeler une feuille userform avec des paramètres qu'on peut traiter dans le code de la feuille ?

Merci d'avance pour vos lumières.
iBenny

yg_be · Answer

bonjour, 
utilises-tu Excel?

ta question est peu claire:  que veux-tu dire par "appeler une feuille userform"?
que sont les paramètres d'une feuille ou d'une userform?

il est probablement préférable que tu expliques ce que tu veux réaliser, peut-être en donnant un exemple ou en partageant un fichier.

yg_be · Answer

en essayant de donner un sens à ce que écris, je me demande si tu ne fais pas ceci:
- tu fais du VBA dans Word,
- dans ce VBA, tu interagis avec Excel, et tu appliques la méthode show à un object de type (Excel)UserForm.
- tu souhaites que le VBA de Word puisse communiquer des données qui seraient utilisées par du code VBA dans Excel

est-ce correct? 
si oui, peux-tu nous montrer ce que tu fais en VBA dans Word, pour interagir avec Excel?  il me semble probable qu'il soit possible d'adapter cela pour obtenir ce que tu souhaites.

Patrice33740 · Answer

Bonjour,

« Une feuille nommée MaFeuille peut être invoqué dans le code par son nom : MaFeuille.show
Est-il possible de passer des paramètres à la feuille d'une façon quelconque ?  »
 

Il n'est pas possible de transmettre des informations à un Userform via les arguments  (on utilise argument plutôt que « paramètre ») de la méthode .Show.

L'ouverture d'un Userform se fait par la méthode .Show qui possède un argument facultatif DoModal. C'est le seul argument toléré par la méthode .Show 

Pour transmettre des information à un Userform, il est possible de définir des propriétés. Il suffit d'affecter leurs valeurs à ces propriétés avant d'afficher l'Userform.
C'est ce qui devrait être fait systématiquement pour séparer l'interface  utilisateur et les données "métier".
Pour définir une propriété d'un userform, on peut simplement déclarer une variable publique dans cet userform.

Par Exemple :
Un bouton dans ThisDocument :
Private Sub MonBouton_Click()
Dim bit As Byte
Dim str As String
  bit = 23
  str = "Mon texte"
  MonModule.OuvrirMaFeuille bit, str
End Sub
Et une procédure d'affichage dans un module standard nommé MonModule :
Sub OuvrirMaFeuille(b As Byte, s As String)
  MaFeuille.a = b
  MaFeuille.t = s
  MaFeuille.Show
End Sub

Et finalement le Userform nommé MaFeuille :
Public a As Byte
Public t As String
Private Sub btnAfficher_Click()
  MsgBox "Propriété a = " & Me.a & vbCrLf & _
         "Propriété t = " & Me.t
End Sub
Private Sub btnQuitter_Click()
  Unload Me
End Sub

Le fichier : https://mon-partage.fr/f/jKMDFTmH/

Cordialement
Patrice

Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

Patrice33740 · Answer

Re,

Pour remplacer le MsgBox, tu peux utiliser le MsgBox Perso de Didier Fourgeot, déjà fait et entièrement paramétrable  :
http://www.mdf-xlpages.com/modules/TDMDownloads/singlefile.php?lid=34&com_id=449&com_rootid=449&cid=10&amp

iBenny · Answer

Bonjour

Le problème insoluble réside dans le fait qu'une variable globale définie dans le module appelant n'est pas accessible dans la forme appelée... et vice versa (à ce que je comprends).

Ma variable globale Rép dans la forme est invisible dans le module appelant.

J'ai contourné le problème en sauvegardant la valeur convoitée dans la propriété "Tag" de la forme qui elle est accessible dans le module appelant. Le tour est joué :
Function Question(Q As String)

With Questionner
    If Q = "Monter" Then
        .Caption = "Remonter la dernière ligne ?"
        .Sup1.Visible = False
        .Sup2.Visible = True
        .Q = "On remonte la dernière ligne ? = " + Format(Selection.Characters.Count) + " caractères"
    Else
        .Caption = "Position de l'image = " + Format(PointsToInches(Selection.Information(wdVerticalPositionRelativeToPage))) + " pouces"
    End If
    .Show
End With
Question = Questionner.Tag
End Function

Si vous avez des infos sur la communication de variables globales entre module appelant et forme appelée, on est intéressé par la chose. Entretemps. passer par la propriété "Tag" semble une élégante solution.

Cordiales salutations
iBenny

iBenny · Answer

Y a rien à montrer. Je l'ai mis dans mon code (en jaune) de forme pour montrer ce que j'ai essayé mais vais la supprimer car inaccessible dans le module appelant. Et vice-versa...

Salutations
iBenny

yg_be · Answer

un autre exemple tout simple:
code du userform
Public Function reponse(question As String) As String
Me.TextBox1 = question
Me.Show
reponse = Me.TextBox1
End Functioncode du module:
Sub getresp()
Debug.Print UserForm1.reponse("dis moi")
End Sub

iBenny · Answer

Je fais amende honorable et donne raison à yg_be en #23 :

On peux déclarer une variable "public" au lieu de "Dim" en global dans le module et elle serra accessible partout, même dans les formes !!!

Quand on fait trop de choses en même temps, on s'enferre !!!

Module:

Public Rép As Boolean

Function Question(Q As String) As Boolean

With Questionner
    If Q = "Monter" Then
        .Caption = "Remonter la dernière ligne ?"
        .Sup1.Visible = False
        .Sup2.Visible = True
        .Q = "On remonte la dernière ligne ? = " + Format(Selection.Characters.Count) + " caractères"
    Else
        .Caption = "Position de l'image = " + Format(PointsToInches(Selection.Information(wdVerticalPositionRelativeToPage))) + " pouces"
    End If
    .Show
End With
Question = Rép
End Function

Forme:

Salutation et merci à tous
iBenny

Patrice33740 · Answer

Bonjour,

Réponse à lire jusqu’à la fin :)

Exemple simple avec un Userform nommé Questionner qui contient :
- un Label nommé Question
- un premier bouton nommé Bouton1
- un second bouton nommé Bouton2

Dans un module standard :
Option Explicit
Public Enum uReponse
  uBouton1 = 1
  uBouton2 = 2
End Enum
Sub Question_1()
  With Questionner
    .Bouton1.Caption = "Oui"
    .Bouton2.Caption = "Non"
    .Reponse = Empty
    .Question = "Remonter la dernière ligne ?"
    .Show
    If .Reponse = uBouton1 Then
      MsgBox "Reponse Oui"
    ElseIf .Reponse = uBouton2 Then
      MsgBox "Reponse Non"
    Else
      MsgBox "Pas réponse"
    End If
  End With
  Unload Questionner
End Sub

Dans le module du formulaire Questionner :
Public Reponse As uReponse
Private Sub Bouton1_Click()
  Me.Reponse = uBouton1
  Me.hide
End Sub
Private Sub Bouton2_Click()
  Me.Reponse = uBouton2
  Me.hide
End Sub


Le fichier :  https://mon-partage.fr/f/mrGkAIjG/
 
L'intérêt de cette méthode est que l'IHM est indépendante du traitement "métier". 
D'autre part, je te conseille de saisir le code manuellement, dans l'ordre ci-dessus : tu verras que l'intellisense simplifie grandement la saisie.

Feuille userform avec paramètres

9 réponses

Discussions similaires

Newsletters