Discussion :

[Fred4345]

J'explique ma situation

J'ai une listbox 1 avec des n° de semaine
J'ai une listbox 2 avec des noms

Les valeurs de la listbox 1 et 2 se trouvent également dans une feuille.

listbox 1 en colonnes
listbox 2 en ligne

Le but est de trouver l'intersection des valeurs des 2 listbox afin de pouvoir remplir la cellule à l’aide d’un textbox

Quelqu'un aurait il une idée svp?

Merci d'avance

[mercatog]

Une proposition

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
Sub Inters()
Dim Lig As Long
Dim Col As Integer
Dim Sem As Byte
Dim Nom As String
Dim c As Range
 
With Sheets("Feuil1")                                                                              'à adapter
    Sem = Val(ListBox1.Value)
    If Sem > 0 Then
        Nom = ListBox2.Value
        If Nom <> "" Then
            Set c = .Range("A:A").Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                Lig = c.Row
                Set c = .Rows(1).Find(Sem, LookIn:=xlValues, lookat:=xlWhole)
                If Not c Is Nothing Then
                    Col = c.Column
                    Set c = Nothing
                End If
            End If
        End If
    End If
    If Col * Lig > 0 Then .Cells(Lig, Col).Value = "X"
End With
End Sub

[jfontaine]

Bonjour,

Une autre solution en utilisant les formules

Dans cette exemple je recherche le résultat d'une multiplication dans un tableau de table de 5 sur 5

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim intLigne As Integer
Dim intColonne As Integer
 
intLigne = 2
intColonne = 4
 
MsgBox Application.WorksheetFunction.VLookup(intLigne, Range("A2:F6"), _
            Application.WorksheetFunction.Match(intColonne, Range("A1:F1"), 1), 0)

[Fred4345]

Bonsoir à tout les deux.
Merci pour vos réponses aussi rapide.
Par contre vu le code, la je ne suis pas au même niveau que vous.
Je vous joins donc mon fichier sur lequel je travaille. Mon but est de pouvoir sélectionner un choix dans la listbox + un autre choix dans la deuxième listbox. A l'intersection des deux j'entre un chiffre grace à la textbox. Au fur et à mesur que je rajoute une valeur elle vient s'adidionner à celle entrée précédement.
J'espère avoir été assez clair dans mon explication.
D'avance merci pour votre aide

[jfontaine]

Oups, je me rend compte que ma premiere solution fais l'inverse, elle retourne la donnée se trouvant dans la cellule de ton tableau

Met le code ci dessous dans l'evenement Click de ton bouton valider

Code :

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

1
2
3
4
5
6
7
8
 
Dim lngLigne As Long
Dim intColonne As Integer
 
lngLigne = Sheets("TOTAL").Range("B6:B57").Find(ListBox1.Text).Row
intColonne = Sheets("TOTAL").Range("C5:E5").Find(ListBox.Text).Column
 
Sheets("TOTAL").Cells(lngLigne, intColonne).Value = Sheets("TOTAL").Cells(lngLigne, intColonne).Value + poids

Perso, j'utiliserais des combobox a la place des listbox car ici on est obliger de cliquer sur le texte de chaque listbox pour faire fonctionner le code

[Fred4345]

Franchement merci! Tu viens de me rendre un grand service car j'étais vraiment dans une impasse.
Le code fonctionne.
Quel serait ta solution avec des combobox stp? car autant que j'essaye tous.
Fred