Interrogation d'un tableau

Version imprimable

11/06/2015, 17h36
shadu

Interrogation d'un tableau
Bonjours,

Je suis pas mal néophite dans VBA donc essayer d'être indulgent. :P

Dans notre système informatique, j'ai fait une macro pour ressortir ce que l'on fait à chaque mois. Elle marche vraiment bien. La j'aimerai allé un brin plus loin dans le traitement des données. Donc, j'ai un immense tableau (tableau 1) ou j'ai une une variable paramètre et nature.... J'aimerai faire une macro qui interrogerait un second tableau contenant les prix correspondant à la nature et au paramètre correspondant et l'indiquerait dans une autres colonne. Voici un exemple pour tenter d'être plus clair.

Dans mon tableau 1 ... J'ai une ligne ou tu as le paramètre NPO (colone A) et la nature ep (colone B) avec dans la colonne C soit heure, Prix1 ou Prix2 inscrit. J'aimerai que la macro consulte le tableau 2 qui donne pour chaque paramètre et nature la valeur de Heure, Prix1 ou Prix2 et la marque dans la colonne D du tableau 1.

Exemple tableau 1:
```
Paramètre	Nature	Prix

NPO		ep	Prix1
NT		en-s	Heure
...
```
Exemple tableau 2:
```
Paramètre	Nature	Heure	Prix1	Prix2
			
NPO		en-n	4.06	203	255.7
NPO		en-s	4.06	203	255.7
NPO		ep	4.06	203	255.7
NPO		eu	5.34	267	340.95
NT		en-n	3.5	175	226.94
NT		en-s	3.5	175	226.94
NT		ep	3.5	175	226.94
NT		eu	3.5	175	226.94
...
```
J'ai à traité plusieurs paramètre (20+) avec chacun 1 à 6 nature différente. La tableau 1 pouvant avoir 1000+ lignes.

Je pense qu'il faut que je travail avec les variable tableau mais j'avoue que je suis un peu perdu et j'ai besoin d'aide.

Merci
11/06/2015, 18h03
Invité

Bonjour,
Tu as pensé au rechercheV?
11/06/2015, 18h13
shadu

Comme j'ai disje me concidère plutot néophyte dans le VBA. Comment marche une rechercheV?

Shadu
11/06/2015, 18h19
Invité

RechercheV ce n'est pas du vba mais une fonction dans une cellule!

Dans une cellule tu tape =recherchev( et tu te laisse guider
11/06/2015, 19h02
shadu

Merci pour tes réponses.

Pour savoir laquel des 3 colonne du tableau2 que je doit utiliser (heure, prix1 ou prix2) je peux remplacer le no_index_col par un variable dépendant de la colonne prix du tableau 1. C'est c'est relativement facile.

Cependant, mon choix dans le tableau 2 dépendant pas juste de une variable (valuer_cherchée) mais de 2 (combinaison de colonne A et B).... Est-ce possible d'utilisé des opérateur logique tel ET dnas rechercherV?

Shadu
11/06/2015, 23h02
Invité

= recherchev(A2;Feulle2!c1:E10;2)ici on recherche la valeur de la A2 dans la colonne c et on retourne la colonne 2 de la plage c1:E10 de la feuille2 donc la colonne D (c colonn1,D col2,E col3)

Merci pour l'aide j'ai finie par trouver 2 solutions possibles. C'est la 2 que je vais implanter. Doit juste l'adapter à mes tableaux.

1) Une version dans une cellule (faire shift-ctrl-enter après):

Code:

=SI(C12=C16;INDEX(C1:C10;MAX(SI((A12=A1:A10)*(B12=B1:B10);LIGNE(C1:C10);0)));SI(C12=C18;INDEX(D1:D10;MAX(SI((A12=A1:A10)*(B12=B1:B10);LIGNE(D1:D10);0)));SI(C12=C17;INDEX(E1:E10;MAX(SI((A12=A1:A10)*(B12=B1:B10);LIGNE(E1:E10);0))))))

2) Une dans VBA comme macro:

Tien steve... La solution qui semble fonctionner:
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 27 28 29 30 31 32 33 34 35 36 37 38 39 Public Sub extractionprix() Dim vlast As Integer Dim table_prix As Variant Sheets("Prix").Select vlast = Range("A3", Range("A3").End(xlDown)).Rows.Count ReDim table_prix(vlast, 5) table_prix = Range("A3", Cells(vlast + 2, 5)) Sheets("DATA").Select For i = 0 To num_lines For j = LBound(table_prix, 1) To UBound(table_prix, 1) If Cells(7 + i, 4) = table_prix(j, 1) And Cells(7 + i, 3) = table_prix(j, 2) Then Select Case Cells(7 + i, 7) Case "EXTERNE" Cells(7 + i, 18) = table_prix(j, 5) Case "Quota" Cells(7 + i, 19) = table_prix(j, 3) Case "INTERNE" Cells(7 + i, 18) = table_prix(j, 4) End Select Exit For End If Next j Next i End Sub