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