Discussion :

[Dayo18]

Bonjour a tous

Je suis débutant dans visuel basic et je rame pas mal , donc j'essaye de faire avec un commandbutton le fait d'avoir un choix de nom, machine ou ref suivant une liste mais ce que je voudrais savoir c'est es ce que c'est possible? car je sais comment faire pour mettre un choix déroulant mais j'aimerai faire autrement vu que j'essaye de faire une manière simple de rentré en stock pour des gens qui non pas le temps.

Merci par avance

[Philippe Tulliez]

Bonjour,

j'essaye de faire avec un commandbutton le fait d'avoir un choix de nom, machine ou ref suivant une liste

J'avoue ne pas comprendre ta demande.
On peut avoir une liste avec les contrôles ListBox et ComboBox en tout les cas avec les contrôles standards et un CommandButton a pour fonction principale de réagir après un clic ou un double clic.
Alors on peut bien entendu activer un contrôle ListBox ou ComboBox après avoir ciiqué sur un CommandButton.
Je crois qu'il serait intéressant que tu précises ton attente.

[Dayo18]

En gros je voudrais pas exemple, quand je click sur le bouton "nom" que j'ai une fenêtre ou autre qui s'ouvre avec les noms des personnes ou je suis, et quand la personne a choisis son nom qu'elle se retrouve dans la case à coté pour signaler que le nom a était choisis.

[Philippe Tulliez]

Bonjour,
Désolé mais ce n'est toujours pas très clair.

quand je click sur le bouton "nom" que j'ai une fenêtre ou autre qui s'ouvre avec les noms des personnes ou je suis

En infomatique, il n'y a pas de hasard donc une fenêtre ou une autre ce n'est pas possible sauf si c'est pour faire un quizz en listant au hasard et "Les noms des personne ou je suis" ??? Tu es où ?

et quand la personne a choisis son nom qu'elle se retrouve dans la case à coté pour signaler que le nom a était choisis.

Et ça c'est encore plus confus

[Dayo18]

quand je dit les personnes ou je suis je parle des noms des personnes dans mon entreprise; en gros je cherche un moyen simple de faire des sorties outils sans que les opérateurs ne soies obliger d'utiliser le clavier mais juste la souris. Si la tu me dit que c'est confus je sais plus comment m'exprimer. Avant j'avais un système de menu déroulant mais cela leurs prenez trop de temps donc j'essaye de simplifier la chose.

[Philippe Tulliez]

Bonjour,
Et bien maintenant par rapport à cette phrase, c'est plus clair.
Par contre faire une liste déroulante de personnes, d'outils, etc. cela demande un peu plus d'explications sur la façon dont sont organisées les données dans le classeur.
Expliquer que lorsque l'on clique sur tel bouton, il faut aller chercher les données dans telle colonne de telle feuille, etc.
Je suppose que la liste des personnes se trouve sur une feuille différente que la liste des outils ou tout au moins dans des colonnes bien distinctes. Sans ces éléments pas moyen de t'aider.
Voici un exemple de code où nous avons deux contrôles CommandButton nommés respectivement cmdNom et cmdRef avec comme propriété le nom de l'étiquette de colonne de la liste de données se trouvant sur la même feuille soit Nom et Ref et un contrôle ListBox1 qui sera alimenté par sa propriété RowSource dès que l'on cliquera sur un des boutons.

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
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Dim rng As Range, rngBodyRange As Range
' ============
Private Sub cmdNom_Click()
 majListBox Me.cmdNom.Caption
End Sub
' =============
Private Sub cmdRef_Click()
 majListBox Me.cmdRef.Caption
End Sub
' ===========
Sub majListBox(LabelName As String)
 Dim numCol As Integer
 numCol = Application.WorksheetFunction.Match(LabelName, rng.Rows(1), 0)
 With Me.ListBox1
 .RowSource = rngBodyRange.Columns(numCol).Address(external:=True)
 End With
End Sub
' ==========
Private Sub UserForm_Initialize()
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 With rng
  Set rngBodyRange = .Offset(1).Resize(.Rows.Count - 1) ' Plage des données
 End With
 With Me.ListBox1
 .ColumnHeads = True
 End With
End Sub

Je te conseille la lecture de
Utiliser les UserForm en VBA Excel
Utiliser les contrôles dans un UserForm, en VBA Excel
et un coup d'oeil sur cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire.