Fonction intersection avec listbox et textbox

Version imprimable

22/06/2011, 20h17
Fred4345

Fonction intersection avec listbox et textbox

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

Une proposition

Code:

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

1 pièce(s) jointe(s)

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:

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)
Pièce jointe 79361

22/06/2011, 23h32
Fred4345

1 pièce(s) jointe(s)

intersection suite

Bonsoir à tout les deux.
Merci pour vos réponses aussi rapide.:ccool:
Par contre vu le code, la je ne suis pas au même niveau que vous.:cry:
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

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:

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

23/06/2011, 00h33
Fred4345

re

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.:D
Fred
23/06/2011, 00h58
Fred4345

Désolé pour ma demande sur la combobox.:oops:
J'ai changé mes listbox pour des combobox comme tu me l'avais suggéré.
Effectivement pour le choix c'est plus facile.:ccool:
Encore une fois merci pour ton aide
Fred