Discussion :

[creunch]

Bonjour,

Dans un premier temps, j'ai creé un tableau comme ci-dessous:

/////// Phase1 Phase2 Phase3 PhaseX
Client1
Client2
Client3
ClientX

Ensuite, j'ai creer un Userform dans lequel j'ai trois listbox.

La premiere (listbox1) correspond aux noms des clients, la seconde (listbox2) correspond aux noms des phases et la troisième (listbox3) correspond à des numéros de semaine.

Ma question est la suivante: Comment faire pour que la valeur de la listbox3 s'affiche dans mon tableau à l'intersection de la colonne et de la ligne définit par les deux premiere listbox?

/////// Phase1 Phase2 Phase3 PhaseX
Client1
Client2
Client3 - S1 -
ClientX

Merci d'avance pour vos futur réponse

[rvtoulon]

Bjr, creunch et bienvenue sur ce forum
ne sachant pas:
-dans quelle feuille se trouve ton tableau, à quel ligne ni a quel colonne il commence,
j'ai supposé qu'il se trouve dans la feuil1, que la colonne "client" correspond a la colonne A et que la ligne "phase" est la ligne 1.

Tu peux utiliser l'événement keypress de ta listbox3 et mettre ce code :

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
Private Sub ListBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim val1 As Range, val2 As Range
Dim clientlign As Long, phasecolon As Long
 
If KeyAscii = vbKeyReturn Then
 
  Set val1 = Sheets(1).Columns(1).Find(Me.ListBox1.Value)
    If Not val1 Is Nothing Then clientlign = val1.Row
 
  Set val2 = Sheets(1).Rows(1).Find(Me.ListBox2.Value)
    If Not val2 Is Nothing Then phasecolon = val2.Column
 
  Sheets(1).Cells(clientlign, phasecolon).Value = Me.ListBox3.Value
 
End If
 
End Sub

Tu sélectionnes : ton client, puis ta phase, ton num de semaine et tu appuie sur "entrée" (Attention, il faut que la listbox3 est le focus)

ou alors dans un bouton de commande :

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
Private Sub CommandButton1_Click()
Dim val1 As Range, val2 As Range
Dim clientlign As Long, phasecolon As Long
 
'recherche du client dans colonne A
Set val1 = Sheets(1).Columns(1).Find(Me.ListBox1.Value)
    'si client trouvé alors je met le num de ligne en variable
    If Not val1 Is Nothing Then clientlign = val1.Row
 
  'recherche de la phase dans la lign 1
  Set val2 = Sheets(1).Rows(1).Find(Me.ListBox2.Value)
    'Si phase trouvé alors je met le num de colonne en variable
    If Not val2 Is Nothing Then phasecolon = val2.Column
 
  Sheets(1).Cells(clientlign, phasecolon).Value = Me.ListBox3.Value
 
End Sub

Adapte le en fonction de tes besoins.

@+

ps: n'oublie pas de cliquer sue Résolu si tu as réglé ton problème.

[Didier Gonard]

Bonjour,
Pour moi, le plus simple et le plus rapide serait d’alimenter tes lisbox en 2 colonnes (1 colonne pouvant être non visible):

Textbox 1
Col 1 nom client
Col 2 N° de ligne correspondant

Textbox 2
Col 1 Nom Phase
Col 2 N° col correspondant

Du coup en prenant compte des 2 sélections, tu récupères directement les coordonnées de l’intersection voulue

L’alimentation des 2 listbox ne prend pas plus de temps et tu évites tous les traitements secondaires parasites ensuite.

cordialement,

Didier

[creunch]

Merci à vous deux pour ces réponse elles m'ont été très utile. Je vais enfin pouvoir finaliser mon tableur.

A plus sur le forum