Discussion :

[concept67]

Bonjour tout le monde !

Je débute avec les macros !

J'aimerais extraire des données d'un tableau en fonction d'un pre choix avec un option bouton !
En fonction de ce choix, on affiche une liste box de ce pré-choix et en fonction de ce pré-choix on affiche les données correspondantes à la ligne !
Avec le fichier joint ce sera plus compréhensible !

Merci d'avance pour votre aidetest.xlsx

[mjpmjp]

bonjour,
il y a 2 "sortes" de bouton option :
le OptionButton (qui est rond) choisir une seule option parmi plusieurs
le CheckBox (qui est carré) choisir une option de plus

si tu as plusieurs "pré-choix" tu peu utiliser OptionButton pour sélectionner LE "pré-choix" qui va bien
mais tu peu aussi utiliser CheckBox pour sélectionner LES "pré-choix" qui formeront un "pré-choix" unique qui va bien aussi

dans tous les cas, pour savoir si le bouton Check ou Option est validé : if Bouton.value then... (if Bouton.value=true)

voilà pour le bouton

@+JP

[mjpmjp]

bonjour,

En fonction de ce choix, on affiche une liste box de ce pré-choix et en fonction de ce pré-choix on affiche les données correspondantes à la ligne !

cette simple phrase laisse entrevoir de multiple possibilités et donc des codages multiples

on affiche une liste box de ce pré-choix

si c'est juste de l'info (pas de sélection dans la liste) , tu peu afficher dans une TextBox multiligne

TextePreChoix1 = "Liste du " & chr(34) & "pré-choix 1" & chr(34) & vbcrlf & ligne1 & vbcrlf & ligne2

TextBox.value = TextePreChoix1

@+JP

[concept67]

Bonjour JP,

tout d'abord, merci pour ton aide, mais ça devient compliqué ! en fait je viens de m'apercevoir que la forms que j'avais commencé n'est pas le fichier, je renvois donc le fichier !
C'est bien un option button que j'ai besoin, lorsque je clique sur O85, il doit m'afficher dans la list box les lignes D11 à D17test.xlsx
puis en fonction d'un ligne choisi dans la list box, il doit m'afficher les cellules correspondantes à la ligne

[mjpmjp]

bonjour,
nickel, c'est clair

dans le code de form
Appel du bouton

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub O85_Click()
    'si O85.value = true
    'appelle List_PreChoix() avec la liste des lignes à choisir
    'une autre solution que je prefere serait List_PreChoix(1)
    '1 étant le numéro du préchoix qui sera selectionné par "select case"
    If O85 Then Call List_PreChoix("D11:D17")
End Sub

"Remplissage" de la ListBox par le "PréChoix"

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub List_PreChoix(PlageLigne As String)
    'pour chaque Cellule de la plage "PlageLigne"
    'ajouter la valeur de la cellule (représentée par C)
    For Each C In Range(PlageLigne)
        ListBox1.AddItem C.Value
    Next
End Sub

Trouver le numéro de Ligne des Data

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ListBox1_Click()
    'ListIndex est le numéro en partant de ZERO
    'de la ligne sélectionnée dans la ListBox
    'la ligne 3 indique 2...donc ListIndex + 1 = 3 = Ligne 3
    'la ligne 3 correspond à la ligne D13 soit 10 de plus
    'LigneDataNum = Ligne 3 + 1 + 10
    'LigneData = Range("A" & ListBox1.ListIndex + 1 + 10).Value
    '
    LigneDataNum = ListBox1.ListIndex + 1 + 10
    '
End Sub

@+JP

[mjpmjp]

re,



@+JP

[concept67]

Bonjour JP,

J'ai collé le code dans ma user forms en changeant le nom de mon bouton O85, mais cela ne fonctionne pas, ça bug !!
En fait je viens de m'apercevoir que la forms n'était toujours pas sauvegardé, c'est chose faite, voici le bon fichier
test2.xlsm