Coordonner deux userforms/VBA formule

MariePurpan Messages postés 4 Statut Membre -  
MariePurpan Messages postés 4 Statut Membre -
Bonjour,

Je cherche une formule qui permet de coordonner des informations d'un VBA qui s'appliqueront dans un deuxieme vba.
Dans mon cas un vba me permet de choisir une option et j'aimerai qu'un fois choisie elle indique à mon deuxieme userform2 de rentrer toujours ces mêmes données (dans ma fenetre userform2)

Merci d'avance

3 réponses

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour MariePurpan

    Quand tu sélectionnes ton option dans UF1 tu peux mettre une variable (normalement à 0) à 1 et à l'activation de l'UF2 un IF basé sur cette variable détermine ce qu'il y a lieu d'afficher dans l'UF

    Impossibles d'en dire plus sans connaitre ton fichiers et ses userforms et macros
    Tu peux poster un exemple de ton fichier sur cjoint.com, faire créer un lien, le copier et revenir le coller ici dans ton prochain message

    Cdlmnt
    Via
    0
  2. MariePurpan Messages postés 4 Statut Membre
     
    Voila le lien:

    http://www.cjoint.com/c/FCvjLDaSkXg

    Je vous explique: lorsque je clique dans le userform "inventaire" sur le bouton suivant de la page "viande/poisson" il s'affiche un deuxieme userform"garniture" sur la page "Garniture1". Ce que je souhaite c'est que lorsque je clique sur mon option "1 garniture" de ce userformGarniture il s'affiche dans mon userformeInventaire sur la page "garniture 2" Aliment = Aucun et pour quantité, prix et nombre de portions =0 dans chaque textbox.

    Si vous pouvez m'éclairer ce serait super !!

    Marie
    0
  3. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour Marie,

    Complète ainsi ta macro associée au bouton Valider :
    With frmgarniture
    If .opb1g = True Then
    frmInventaire.TextAliment3 = "Aucun"
    frmInventaire.Textquantite3 = 0
    frmInventaire.TextNombreportions3 = 0
    frmInventaire.TextPrix3 = 0
    End If
    End With


    Cdlmnt
    Via
    0
    1. MariePurpan Messages postés 4 Statut Membre
       
      merci beaucoup !!! ça marche impeccable !!
      0