Discussion :

[cityy]

Bonjour,

j'ai un beug sur mon programme j'arrive pas à charger ma liste déroulante sur mon userform avec les éléments d'un tableau qui j'ai déjà définit sur une autre feuille ( 1er cas) ou un autre workbook (2ere cas).

merci pour vos réponse

[sebing]

Bonjour,

Regarde ce tuto, tu devrais trouver ton bonheur.
http://silkyroad.developpez.com/VBA/...serForm/#LII-G
Bonne journée
Seb

[cityy]

Bonjour,

merci pour ta réponse, j'ai suivi les étapes voilà le code que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
 
 
    Dim i As Byte
 
    For i = 1 To 12
       ListBox1.AddItem "Ligne" & i
    Next i
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_Change()
 
 
    'Remarque:
    'ColumnHeads = True spécifie que la première cellule précédent
    'la plage source est utilisée comme titre dans la ListBox.
    'ColumnHeads ne fonctionne pas pour la propriété List() et la
    'méthode AddItem.
    ListBox1.ColumnHeads = True
 
    ListBox1.RowSource = "Tables!A2:A13"
 
End Sub

mais j'ai message d'erreur " object requiered"

[sebing]

Bonjour,

Private Sub UserForm_Initialize()


Dim i As Byte

For i = 1 To 12
ListBox1.AddItem "Ligne" & i
Next i
End Sub

Le code marqué plus haut veut dire qu'au chargement de ton userform il va charger ta liste avec les valeurs suivantes :
Ligne1, Ligne2... jusqu'à 12

Private Sub ComboBox1_Change()


'Remarque:
'ColumnHeads = True spécifie que la première cellule précédent
'la plage source est utilisée comme titre dans la ListBox.
'ColumnHeads ne fonctionne pas pour la propriété List() et la
'méthode AddItem.
ListBox1.ColumnHeads = True

ListBox1.RowSource = "Tables!A2:A13"

End Sub

mais j'ai message d'erreur " object requiered"

Ton message d'erreur est du au fait que tu as mis ListBox1. alors que ta liste porte un autre nom.
Ne s'appelle t'elle pas ComboBox1?

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
 
ComboBox1.RowSource = "Tables!a1:a4" 'pour le cas où ta liste est nommée ComboBox1 et les valeurs sont dans la feuille "Tables" en A1:A4
 
 
End Sub

Bonne journée

Seb

[cityy]

Salut,

merci beaucoup, ça marche. merci

[cityy]

et si je veux que mon choix dans le liste soit maintenu ça veut dire quand je choisit parmi " janvier fevier mars.....' mon choix par exemple mars reste dans la zone?

[sebing]

et si je veux que mon choix dans le liste soit maintenu ça veut dire quand je choisit parmi " janvier fevier mars.....' mon choix par exemple mars reste dans la zone?

Je comprends pas ce que tu veux. Tu veux les 12 mois dans ta liste ?
Seb

[cityy]

oui, j'ai mis les 12 mois et ca marche. merci beauucoup!!! mais quand j'excute et je choisis un mois ca ne s'affiche pas. genre tu as la liste déroulante qui s'affiche (avec mes 12 mois) et j'aimerais choisir un mois pour dire par exemple mars, il dois afficher que mon choix est mars dans la liste? est ce que tu vois ce que je veux dire?

[sebing]

oui, j'ai mis les 12 mois et ca marche. merci beauucoup!!! mais quand j'excute et je choisis un mois ca ne s'affiche pas. genre tu as la liste déroulante qui s'affiche (avec mes 12 mois) et j'aimerais choisir un mois pour dire par exemple mars, il dois afficher que mon choix est mars dans la liste? est ce que tu vois ce que je veux dire?

A quoi te sert ta liste mois? Tu as charge ta liste avec les mois de l année, que veux tu faire du mois sélectionné?
Si tu as un fichier a mettre en exemple ce serait plus facile.

ps:
N oublies pas d indiquer avec le pouce vert les aides qui t ont apportées de l aide et aussi de clôturer tes demandes par "resolu"

[cityy]

ok je marquerais mon problème résolu à la fin, ce que je veux c'est qu'en fonction du mois et de la machine me donné une valeur dans un tableau que j'ai définit.

donc je qu'en fonction de ma machine et du mois je puisse afficher la valeur formulaire.docx.

j'ai joint mon fichier je ne sais pas si ça aparrait?

[sebing]

ok je marquerais mon problème résolu à la fin, ce que je veux c'est qu'en fonction du mois et de la machine me donné une valeur dans un tableau que j'ai définit.

donc je qu'en fonction de ma machine et du mois je puisse afficher la valeur formulaire.docx.

j'ai joint mon fichier je ne sais pas si ça aparrait?

Donc le formulaire sert a afficher les données par rapport à un tableau.

Il te faut une formule qui cherche dans un tableau par rapport à la ligne et la colonne.
En Excel c'est Index et Equiv et en vba Index et Match.
Je te joins un fichier Excel (attention j'ai pas tout rentrée)
voici le code VBA :

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
Private Sub CommandButton1_Click()
Dim nom As String
Dim mois As String
Dim result As Long
'je verifie que les données sont saisies
If Cbx_mois = "" Or Cbx_machine = "" Then
    MsgBox ("veuillez renseigner tous les champs")
    Else
    nom = Cbx_machine 'recupere la donnée (nom de la machine) saisie dans le formulaire
    mois = Cbx_mois 'recupere la donnée (mois) saisie dans le formulaire
 
    'je fais une recherche sur le même principe que la formule index et equiv
    result = Application.Index(Range("A4:D7"), Application.Match(nom, Range("A4:A7"), 0), Application.Match(mois, Range("A4:D4"), 0))
    MsgBox (result)
End If
End Sub

Voila, j’espère t'avoir aidé

Bonne soirée

Seb

[cityy]

oui, merci beaucoup

[redjohnak]

Bonjour,

Je souhaite exposer mon problème qui se décrit comme suite :
Je veux afficher deux colonnes qui contiennent des donnés après avoir sélectionné une valeur sur la liste déroulante. Et recharger ces valeurs par d'autres après la sélection d'une autre.

À noter que la liste de déroulante n'est pas celle du contrôle de formulaire mais insérer à partir de validation des données....
Pourriez vous m'aider svp

[sebing]

Bonjour,

Je souhaite exposer mon problème qui se décrit comme suite :
Je veux afficher deux colonnes qui contiennent des donnés après avoir sélectionné une valeur sur la liste déroulante. Et recharger ces valeurs par d'autres après la sélection d'une autre.

À noter que la liste de déroulante n'est pas celle du contrôle de formulaire mais insérer à partir de validation des données....
Pourriez vous m'aider svp

Bonjour si tu veux trouver de l aide ouvre ton propre post, celui la est marque résolu.
bonne journée