Userform & ComboBoxRésolu

Question

Bonjour &#224; tous,
J'ai un petit soucis, je programme depuis peu et j'ai quelques difficult&#233;s &#224; saisir certaine proc&#233;dures :
J'ai cr&#233;e un userform qui contient un combobox dont les informations sont r&#233;cup&#233;r&#233;es sur une bdd excel, j'ai nomm&#233; mes colonnes et utilis&#233; la propri&#233;t&#233; RowSource (NomEmprunteur dans ce cas), j'ai ensuite cr&#233;e autant de label que de champs &#224; afficher soit 18. Pourriez vous m'indiquer la proc&#233;dure &#224; suivre pour que les valeurs correspondantes &#224; ma s&#233;l&#233;ction dans la combo s'affiche dans les labels ? mon formulaire est un formulaire de recherche &#224; 1 crit&#232;re qui est le nom de l'emprunteur ensuite toutes les informations concernant cette perssone doivent s'afficher dans les labels avec possibilit&#233; de faire d&#233;filer les infos des diff&#233;rentes fiches avec un scrollbar. voil&#224; c'est une longue explication... j'esp&#232;re que c'est suffisament clair....
Merci de l'aide que vous voudrez bien m'apporter.

mortalino · Accepted Answer

Salut Gab !

Admettons que tu ais les noms emprunteurs dans ta colonne A et les crit&#232;res dans les 
colonnes suivantes,

Dans les proc&#233;dures de ton UserForm, il faut placer 

Sub ComboBoxX_Change()
   PremLiVide = Columns(1).Find ("", [A1], , , xlByRows, xlNext).Row
' Ca c'est pour chercher la premiere ligne vide de ta colonne A

' ensuite il faut faire une boucle pour chercher le nom qui est choisi par l'utilisateur dans la ComboBox correspondant au nom saisis dans ta colonne A
   For i = 1 To PremLiVide
      ColA = ("A" & i)
      ColB = ("B" & i)
      ColC = ("C" & i)
      ' etc...
      
'cherche le nom rentrer dans la combobox dans la colonne A :
        If ComboBoxX.Value = Range(ColA).Value Then 
            Label1.Caption = Range(ColB).Value
            Label2.Caption = Range(ColC).Value
            ' etc...
            Exit sub  'comme ca, une fois qu'il a le resulta, la boucle s'arrete
         End If
   Next i
End Sub

J'espere que c'est assez clair et que cela pourra t'aider, sinon n'h&#233;site pas.

A +


  Mortalino

cs_Gabriel · Answer

Merci Beaucoup Mortalino

apr&#232;s de multiples plantages et une compr&#233;hension assez douteuse du VBA...

je me suis aventur&#233; sur d'autres chemins... celui de la modification de
donn&#233;es contenues dans ma base, CA MARCHE PAS, je promets j'essaye de
comprendre mais cest pas faute d'avoir essay&#233;.

voil&#224; ce que j'ai  trouv&#233; comme code, j'aimerais l'adapter &#224; une comboBox (tel quel il fonctionne parfaitement) 



Private Sub CommandButton5_Click() 

Dim Msg As String

ListBox1.Value = ""

With Sheets("Base")

.Range("A" & Contenu).Value = TextBox9.Value

.Range("B" & Contenu).Value = TextBox21.Value

.Range("C" & Contenu).Value = TextBox10.Value

.Range("D" & Contenu).Value = TextBox20.Value

.Range("E" & Contenu).Value = TextBox1.Value

.Range("F" & Contenu).Value = TextBox2.Value

.Range("G" & Contenu).Value = TextBox3.Value

.Range("H" & Contenu).Value = TextBox5.Value

.Range("I" & Contenu).Value = TextBox7.Value

.Range("J" & Contenu).Value = TextBox8.Value

.Range("L" & Contenu).Value = TextBox11.Value

.Range("M" & Contenu).Value = TextBox12.Value

.Range("N" & Contenu).Value = TextBox12.Value

.Range("O" & Contenu).Value = TextBox14.Value

.Range("P" & Contenu).Value = TextBox15.Value

.Range("Q" & Contenu).Value = TextBox19.Value

.Range("R" & Contenu).Value = TextBox17.Value

.Range("S" & Contenu).Value = TextBox18.Value

.Range("T" & Contenu).Value = CheckBox2.Value

.Range("U" & Contenu).Value = CheckBox3.Value

End With

Unload Me

UserForm1.Show

End Sub



 Merci encore...

cs_Gabriel · Answer

Re bonjour &#224; tous et &#224; toutes

Re bonjour Mortalino  

j'aimerais apporter une petite pr&#233;cision, quand je dis que le code
"fonctionne parfaitement" c'est sur un autre formulaire dans lequel se
trouve une listbox...

Les champs &#233;tant identiques  je pensais pouvoir le r&#233;utiliser
(erreur !!!). Par la meme occasion peut on faire une listbox
multicolonnes dont les colonnes ne se touchent pas ex : A2 - D2 - C2 -
T2

Merci de l'aide que vous voudrez bien m'apporter.

mortalino · Answer

Salut Gab

Pour récupérer une donnée, au lieu de déclarer ta variable en Dim (ex : Dim NomEmprunteur as String), déclare le en Public (ex : Public NomEmprunteur as String), situé dans les déclarations (tout en haut du module).Comme ca, qd tu l'appelles, tu récupères la valeur.

Concernant la ListBox, elle peut effectivement contenir plusieurs colonnes ; dans la propriété de la ListBox, met 4 dans ColumnCount, si ta ListBox fait, par exemple, 100 en "Width" (largeur), dans ColumnWidths, met par exemple
25; 25; 25; 25  (=> t'auras 4 colonnes de largeur égale), 
mais tu peux mettre ce que tu veux.

Ensuite, il y a peut-être un code + simple mais j'ai encore peu d'expérience donc j'ai bien une combine mais, à voir...
moi je copierai tes colonnes A, D, C et T dans une autre feuile, en colonne A, B, C & D. Puis 
ListBox1.RowSource = "NomDeLaFeuille!A2:D10"

Si tu galères, envoi un Msg !

A +
Mortalino

cs_Gabriel · Answer

Salut &#224; toi Mortalino,

Merci de m'avoir r&#233;pondu, j'essaye de ce pas....

et si tu as le temps, peux tu me renseigner sur les formats monetaires
dans les textbox. J'ai plusieurs textbox dans lequels je fais des
op&#233;rations , multiplication addition, pourcentage, et le tout en Euros.

Je t'envois un morceau de code dont aucun format ne fonctionne, si tu as une id&#233;e, je suis preneur...

Private Sub MontantMission_Change()

MontantMission = format(MontantMission.Value, " 0,00 ?")

ComAfis = format(ComAfis, "0.0E+00 ")

ComComHT = format(ComComHT, "0.0E+00 ")

TotalTTC.Value = format(TotalTTC, "0.0E+00 ")

Taxe.Value = format(Taxe.Value, "0.0E+00 ")

ComAfis.Value = Val(MontantMission.Value) * Val(P100Afis.Value) / 100

ComComHT.Value = Val(ComAfis.Value) * Val(P100Com.Value) / 100

Taxe.Value = Val(ComComHT.Value) * "19,6" / 100

TotalTTC.Value = Val(ComComHT.Value) + Val(Taxe.Value)



Merci & @+

Gabriel

mortalino · Answer

Salut Gabriel,

Pour etre franc, les formats me font aussi gal&#233;rer.
Quand je n'y arrive pas, je passe par des cellules : 

MontantMission.Value, une fois que c'est saisi, je le placerai dans une cellule d'une feuille (par exemple, dans feuille "Calcul", A1)

click droit sur la cellule A1, "Format de Cellule", "Mon&#233;taire" & Symbole "?".
cellule A2 : tu mets     =A1
click droit sur la cellule A2, "Format de Cellule", "Personnalis&#233;" & "0.0E+00"
etc...

Comme &#231;a tes calculs se feront quand tu rentres une valeur dans A1, 

Du coup, 
Private Sub MontantMission_Change()
   Sheets("Calcul").Range("A1").Value = Mission.Text
   NomTextBox.Value = Sheets("Calcul").Range("B1").Text
   etc...
End Sub

Par contre je vois que t'utilises la virgule, peut-etre cela peut aussi te cr&#233;er des probl&#232;mes (&#231;a m'est arriv&#233;). Si, quand tu saisies dans une cellule un chiffre a virgule, est ce le point ou la virgule qui s'affiche.  Si c'est la virgule, je te conseil de le changer, car dans les TextBox, lorsque tu rentres un chiffre, l&#224; c'est le point quui s'affiche. Du coup, &#233;tant configur&#233; en virgule, VBA ne comprends pas.
   Si c'est le cas, va dans "Panneau de Configuration", "Options R&#233;gionales et Linguistiques", 
sur cet onglet, clique sur "personnaliser", et remplace dans "Nombre" & "Symbole Mon&#233;taire" la virgule en point.

(Pour info, je peux te r&#233;pondre jusqu'&#224; 14h00 car pas internet chez moi, seulement au boulot)

Bonne matin&#233;e &#224; toi.


  Mortalino

cs_Gabriel · Answer

Salut Mortalino,

J'esp&#232;re que c'est pas trop dur de bosser le samedi... moi c'est  bureau 7/7...

Merci pour ta solution, je l'avais d&#233;j&#224; exp&#233;riment&#233;e, seulement je
trouvais &#231;a moins rapide que le calcul direct dans les textbox.

Connais tu le moyen de n'afficher que les USF sans avoir excel  en
arriere plan, j'ai essai&#233; de mettre les feuilles en masqu&#233; mais comme
c'est des bases de travail ca me cr&#233;e des erreurs. Est qu'a ta
connaissance il est possible de masquer les feuilles tout en
travaillant dessus ?



Merci Bon W.E

@+

Gabriel

mortalino · Answer

Cher Gabriel,

Tout d'abord, bon courage &#224; toi aussi pour le Taf.

Concernant le moyen de cacher excel, j'ai un moyen que je viens de tester, et &#231;a n'a pas l'air de planter.
Dans userform_initialize, place      Application.Visible = False
comme &#231;a Excel est cach&#233;, mais n'oublie pas de placer dans
ton bouton "Quitter" si tu en as un ou dans ThisWorkbook_BeforeClose
de placer Application.Visible = True, sinon tu vas devoir supprimer le processus Excel dans le gestionnaire des t&#226;ches

Concernant mon test, je l'ai fait sur mon tour de service, j'ai une macro pour s&#233;lectionner au fur et &#224; mesure mes 12 onglets (de janv => d&#233;ce) et qui &#233;crit en rouge les samedis et dimanches.
Je les ai remis en noir, cacher l'application Excel, mon Userform reste &#224; l'&#233;cran et j'ai lanc&#233; ma macro.
Une fois que j'ai remis l'application visible, je suis all&#233; v&#233;rifier et &#231;a m'a bien fait les changements de couleurs.

Donc test &#231;a en esp&#233;rant que &#231;a marche, 
pendant ce temps, je le teste sur d'autres de mes prog et je te tiens au courant

A toute allure
  Mortalino

mortalino · Answer

Re Bonjour Gabriel,

Et bien je viens de le tester avec un autre programme.

Mon userform principal (sorte de menu) me permet de faire afficher d'autres userform, &#231;a navigue entre chaque Userform sans aucun probleme et mes donn&#233;es s'affichent


  Mortalino

cs_Gabriel · Answer

Salut &#224; toi oh  Mortalino !

Ca marche pour moi  aussi...

Du grand art !



Merci beaucoup - Thank you very much - Vielen Dank  - 
Gracias mucho  -  Grazie molto  - Obrigado muito muito
-  &#12354;&#12394;&#12383;&#12395;&#38750;&#24120;&#12395;&#24863;&#35613;&#12375;&#12394;&#12373;&#12356;  -  &#38750;&#24120;&#24863;&#35874;&#20320;



 + que  2h30 et c'est le W.E

courage ...



@+

Gabriel

mortalino · Answer

Et bien si &#231;a marche pour toi aussi c'est parfait !
   Si on peut s'aider, c'est le top.
Merci pour les traductions en japonais (ou chinois), c'est pas mal et je ne connaissez pas !

Je te souhaite une bonne programmation et un excellent Week End &#224; toi aussi.

A bient&#244;t

  Mortalino

Userform & ComboBox

11 réponses

Discussions similaires