Applicatif gestion liste

L

limofab

Guest

• 12 Novembre 2008

• #31

Re : Applicatif gestion liste

Merci a toi 13GIBE59 et RENAUDER pour votre aide.
Je vais finir de mettre en forme le tout.
Est ce que je pourrais encore vous embêter si j'ai d'autres ptits soucis ?

@+ et merci encore

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 13 Novembre 2008

• #32

Re : Applicatif gestion liste

Bonjour,

Juste une ptite question, est ce qu'on peut créer des onglets pour la sélection des articles ? En effet, j'ai beaucoup d'articles et la liste présente dans le UserBox dépasse de l'écran.

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Novembre 2008

• #33

Re : Applicatif gestion liste

Bonjour, Limofab.

Tu peux joindre ton fichier ? J'avoue ne pas comprendre ta requête.

A +

JB

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 13 Novembre 2008

• #34

Re : Applicatif gestion liste

Bonsoir,
Ma liste d'article est plus longue que prévu. Elle dépasse donc du selecbox. Je souhaite si possible ajouter des boutons ou onglet "Genre article1", "Genre article2", "Genre article3" pour diviser le choix de l'utilisateur. En gros un choix par catégorie.
Est ce possible ?

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Novembre 2008

• #35

Re : Applicatif gestion liste

Bonsoir, Limofab.

Oui, je pense que c'est possible (je ne dis pas que j'y arriverais forcément, je débute !).
Cela dit, mets sur un bout de fichier précisément ce que tu souhaites.

A +

JB

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 13 Novembre 2008

• #36

Re : Applicatif gestion liste

Ah oui dsl j'avais oublié le fichier

 

Pièces jointes

• test.xls

  46 KB · Affichages: 60
• test.xls

  46 KB · Affichages: 62
• test.xls

  46 KB · Affichages: 68

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Novembre 2008

• #37

Re : Applicatif gestion liste

Salut.

Je pense que tu dois créer
1) soit autant de userform que de catégories et adapter le code suivant:

Private Sub UserForm_Initialize()
Sheets("Données").Activate
Range([A1], [A65536].End(xlUp)).Select
For Each Cell In Selection
Me.ComboBox1.AddItem Cell
Next Cell
End Sub
avec les noms de ComboBox2, ComboBox3, etc et les plages correspondantes
Range([A1], [A65536].End(xlUp)).Select

2) soit dans le même userform tu places 4 comboBox numérotées 1 à 4 et tu adaptes les codes comme ci-dessus.

J'espère avoir été compréhensible. A ta disposition quand même.

A +

JB

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 13 Novembre 2008

• #38

Re : Applicatif gestion liste

J'arrive à créer un 2e bouton mais la liste correspondante ne remonte pas... 😱
Je pense que j'ai un soucis avec cette partie de code en rouge :

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim I As Integer
If Me.ComboBox2.ListIndex = -1 Then
On Error GoTo Fin
Me.Hide
Resp = MsgBox("Veuillez sélectionner un article !", vbExclamation + vbOKOnly, "Il n'y a pas d'article")
Me.Show
Else
I = Me.ComboBox2.ListIndex + 1
Sheets("Données").Range("D" & I & ":F" & I).Select: Selection.Copy
Sheets("Devis").Select
Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste: Application.CutCopyMode = False
Range("D1").Select
Unload frmDonnées
Sheets("Devis").Select: Range("D1").Select
End If
Fin:
End Sub

Je ne comprend pas la signification de "offset(1,0)" dans le code du dessus
Je pense que mon "Range("D" & I & ":F" doit être bon

 

Pièces jointes

• test1.zip

  18.4 KB · Affichages: 34
• test1.zip

  18.4 KB · Affichages: 27
• test1.zip

  18.4 KB · Affichages: 33

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Novembre 2008

• #39

Re : Applicatif gestion liste

Attention !

Il faut que tu affectes une liste d'articles à ton comboBox2, du même genre que :
Private Sub UserForm_Initialize()
Sheets("Données").Activate
Range([A1], [A65536].End(xlUp)).Select
For Each Cell In Selection
Me.ComboBox1.AddItem Cell
Next Cell
End Sub

mais située bien sûr sur une autre colonne que la colonne A.

Concernant Offset :

Sheets("Données").Range("D" & I & ":F" & I).Select: Selection.Copy
=on copie la ligne
Sheets("Devis").Select
=on sélectionne l'onglet "Devis"
Range("D65536").End(xlUp).Offset(1, 0).Select
=on part du bas de la colonne "D", on remonte jusqu'à la dernière cellule remplie (End(xlUp), puis Offset(ligne, colonne) nous permet de nous décaler d'une ligne vers le bas et de 0 colonne vers la droite(Offset(1,0)), et ce pour sélectionner la première cellule vide de la colonne "D".

Tu es sur la bonne voie...

Bonne nuit. Je travaille demain ! Lever 6h30 ! Extinction des feux...

A +

JB

 

Vote positif 0 Vote négatif