Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

formulaire

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Marduk
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Marduk

XLDnaute Nouveau
Bonjour à tous,

J'ai créé un formulaire qui contient, entre autre ,des combobox. Je rempli mes combobox en même temps qu'une matrice (dans une feuille excel contenant les valeurs utilisé ainsi qu'une autre donnée) avec une boucle dans le UserForm_activate . Lorsqu'un changement est effectué dans une des combobox, j'ai un select Case qui détermine, selon la valeur choisi, quelle donnée affichée dans un textbox un peu plus loin.

Ma question est: Est-ce que c'est possible d'initialisé mon tableau à une autre place ou n'importe quoi d'autre, pour que je puisse me servir de ma matrice dans la partie où l'évenement Txtbox_change est situé (sans refaire la boucle car j'ai 12 combobox)?

J'espère avoir été clair et merci d'avance!!
 
Trier par date Trier par votes
Re : formulaire

Salut,Marduk

effectivement tu as été claire dans tes explications seulement on peux pas appeler un médecin par telephone pour lui dire qu'on a mal au ventre il faut y aller si tu m'a compris renvoi nous le patient(Fichier) et tous ici sont prêt a vous aidé

Cordialement
 
Vote positif 0 Vote négatif
Re : formulaire

salut BERRACHED,

Le fichier contient des données importante donc je ne peux pas l'envoyer , mais je peux te mettre du code :

ceci est la façon dont je rempli mes combobox

Code: 
Private Sub UserForm_Activate()
    i = 23
    
    Do
        CbDim1.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim2.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim3.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim4.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim5.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim6.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim7.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim8.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim9.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim10.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim11.AddItem Worksheets("Légende").Cells(i, "B").Value
        CbDim12.AddItem Worksheets("Légende").Cells(i, "B").Value
        i = i + 1
    Loop While Worksheets("Légende").Cells(i, "B").Value <> ""

end sub

C'est ici que je mettrais ma matrice contenant premièrement la valeur récupéré présentement ainsi que la donné résultante dans le prochain bout de code . Mon affichage pour l'instant est fait comme ceci:

Code: 
Private Sub CbDim1_Change()

Select Case CbDim1.Value
    Case "1"
        TxtMo1.Value = 0
    Case "2"
        TxtMo1.Value = 0
    Case "3"
        TxtMo1.Value = 352
    Case "4"
        TxtMo1.Value = 224
    Case "5"
        TxtMo1.Value = 160
    Case "6"
        TxtMo1.Value = 128
    Case "6"
        TxtMo1.Value = 0
    Case "7"
        TxtMo1.Value = 0
    Case "8"
        TxtMo1.Value = 0
    Case "9"
        TxtMo1.Value = 0
    Case "10"
        TxtMo1.Value = 0
    Case "11"
        TxtMo1.Value = 0
    Case "12"
        TxtMo1.Value = 0
    
End Select

L'idée derrière sa est que celui qui utilisera le fichier, même si il connait rien en programmation puisse ajouter des valeurs dans les combobox sans nuire au bon fonctionnement. Je remplacerais les case "1" Txtmo1.value = 0 par
case mat(1)(1) txtmo1.value = mat(1)(2).

Bon j'vous laisse aller relire ma question pour être sur de répondre à la bonne question. Merci d'avance
 
Vote positif 0 Vote négatif
Re : formulaire

bonjour Marduk,Said
un exemple avec module de classe,évènement change
alimentation combobox par boucle
tu fais un choix dans une combobox et un msgbox apparait avec ton choix
tu complètes le fichier si tu veux de plus ample explication
à bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
416
jeff1494
T
  • Résolu(e)
XL 2019 Formulaire Congés VBA
Réponses
3
Affichages
180
cathodique
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
655
TooFatBoy
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
295
ChTi160
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
212
fanch55
D
  • Résolu(e)
XL 2021 VBA Formulaire
2
Réponses
27
Affichages
2 K
delsart59
D
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
659
Dudu2
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
396
delsart59
D
H
  • Question Question
XL 2016 Données dans un feuille à partir d'un formulaire
Réponses
6
Affichages
727
TooFatBoy
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
811
fanch55
  • Résolu(e)
XL 2021 And/Or dans If
Réponses
3
Affichages
402
thunder23
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
T
  • Question Question
Microsoft 365 Validation de donnée
Réponses
4
Affichages
435
team18fr
T
  • Question Question
XL 2016 Gestion de Fuites d'un Parc de Compteurs
Réponses
6
Affichages
475
Captain NRJ
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
490
JHA
J
G
  • Question Question
XL 2021 Demande d'aide formulaire
Réponses
2
Affichages
476
sousou
  • Résolu(e)
Microsoft 365 Variable objet ou variable de bloc with non définie
2
Réponses
25
Affichages
2 K
patricktoulon
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
647
tactic6
J
  • Question Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
759
Jingxi
J
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…