Discussion :

[damien33]

Bonjour,

Je souhaite obtenir la valeur d'une cellule d'un tableau à partir de 3 informations

Du type :


.......................critère1............A ..............B..............C
critère2 ..........critère 3
1........................M.................bon......mauvais........moyen
2...........................................bon..........bon............bon
3........................M...............moyen.......bon..........mauvais

Je dois donc saisir (si possible à partir d'un userform) les informations critère 1 et critère2 dans un textbox et critère 3 dans un checkbox.
Puis j'aimerai obtenir dans un messagebox : bon

[argyronet]

Bonjour,

Je ne comprends pas ton tableau...
Pour localiser une valeur en Ligne /Colonne, tu peux par exemple définir un objet Range qui selon un index et une boucle For Each/Next peut te renvoyer ce que tu cherches...
T'es t-il possible de mettre une image de ton tableau Excel ou être + explicite pour + de précision concernant tes critères...?

Argy

[damien33]

tout d'abord merci de ta réponse

JE vais essayer d'etre plus clair.

sur la ligne 1 j'ai une série d'age
sur la collone A j'ai une série de métier
sur la collone B fille ou garçon

à l'intérieur du tableau des données statistiques

Je souhaite avec un userform, en lui indiquant age, metier et sexe obtenir dans un message box la donnée statistique qui y correspond (ou si aucune données correspondante avoir une réponse du style inexistant)

[AlainTech]

Pour t'aider, j'aurais besoin d'un peu plus d'info.

Y a-t-il garçon et fille pour chaque métier?

La liste des métiers est-elle figée ou peut-elle évoluer?

[argyronet]

Bonjour,

Tu peux alors partir de cette base de départ:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Function QuelleCorrespondance(ByVal Age As Integer, ByVal Metier As String, ByVal Sexe As String) As String
Dim lngDerniereLigne As Long
Dim intDerniereColonne As Integer
Dim oPlage As Range
Dim oMetier As Range
Dim I As Integer
Dim strCorrespondance As String
 
  Range("C1").Select
  intDerniereColonne = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
  Range("A2").Select
  lngDerniereLigne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
 
  Set oPlage = Range(Cells(2, 1), Cells(lngDerniereLigne, 1))
  For Each oMetier In oPlage
    If oMetier.Value = Metier Then
      If oMetier.Offset(0, 1).Value = Sexe Then
        For I = oMetier.Column To intDerniereColonne
          If Cells(1, I).Value = Age Then
            strCorrespondance = oMetier.Offset(0, I - 1).Value
          End If
        Next
      End If
    End If
  Next
  If Len(strCorrespondance) = 0 Then
    strCorrespondance = "Aucune correspondance"
  End If
  QuelleCorrespondance = strCorrespondance
End Function
 
Sub cmdObtenirValeur()
Dim intAge As Integer, strMetier As String, strSexe As String
 
  intAge = txtAge
  strMetier = txtMetier
  strSexe = txtSexe
 
  MsgBox QuelleCorrespondance(intAge, strMetier, strSexe)
End Sub

Argy

[damien33]

La ligne B indique si on parle du métier fille ou du métier garçon, et chaque métier n'a pas forcement l'un et l'autre.

C'est une liste figé non évolutive.

[argyronet]

Petit correction : "Omission" d'un Exit For

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
29
30
31
32
Function QuelleCorrespondance(ByVal Age As Integer, ByVal Metier As String, ByVal Sexe As String) As String 
Dim lngDerniereLigne As Long 
Dim intDerniereColonne As Integer 
Dim oPlage As Range 
Dim oMetier As Range 
Dim I As Integer 
Dim strCorrespondance As String 
 
  Range("C1").Select 
  intDerniereColonne = ActiveCell.SpecialCells(xlCellTypeLastCell).Column 
  Range("A2").Select 
  lngDerniereLigne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 
 
  Set oPlage = Range(Cells(2, 1), Cells(lngDerniereLigne, 1)) 
  For Each oMetier In oPlage 
    If oMetier.Value = Metier Then 
      If oMetier.Offset(0, 1).Value = Sexe Then 
        For I = oMetier.Column To intDerniereColonne 
          If Cells(1, I).Value = Age Then 
            strCorrespondance = oMetier.Offset(0, I - 1).Value
            Exit For
          End If 
        Next 
      End If 
    End If 
  Next 
  If Len(strCorrespondance) = 0 Then 
    strCorrespondance = "Aucune correspondance" 
  End If 
  QuelleCorrespondance = strCorrespondance 
  Set oPlage = Nothing
End Function

Argy