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