OVH Cloud OVH Cloud

problème d'extraction

2 réponses
Avatar
gilbert
Bonjour à tous,

Une solution à vous demander

Voila le PB deux tableau "data"et "data1". "data" étant le tableau de
référence

data

1
2
3

4
5
6

7
8
9




data1 dans le deuxième tableaux des valeurs
différentes

1
3
0

1
6
2

2
0
5




J'aimerai extraire les deux plus grandes valeurs du deuxième tableau dans
ce cas le 6 et le 5 dans deux cellules Ex : A1 et A2 (sachant que les
valeurs peuvent se trouver dans n'importe quelle cases et êtres
différentes.)

Ensuite en B1 et B2 afficher les valeurs du tableau de référence soit 5 et
9 .

J'ai trouvé pour extraire les grandes valeurs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1].Value = "=LARGE( data1,1)"

[A2].Value = "=LARGE( data1,2)"

End Sub



Mais ensuite je nage j'espère que quelqu'un pourra me venir en aide

Merci d'avance a +

2 réponses

Avatar
cousinhub
Bonsoir,
essaie ce code :

Sub essai()
prem = [address(MIN(IF(data1=large(data1,1),ROW(data1),"")),COLUMN(data1))]
deux = [address(MIN(IF(data1=large(data1,2),ROW(data1),"")),COLUMN(data1))]
[a1] = [LARGE(data1,1)]
[a2] = [LARGE(data1,2)]
[b1] = Range(" " & prem & " ").Offset(0, -1).Value
[b2] = Range(" " & deux & " ").Offset(0, -1).Value
End Sub

Bon courage

Bonjour à tous,

Une solution à vous demander

Voila le PB deux tableau "data"et "data1". "data" étant le tableau de
référence

data

1
2
3

4
5
6

7
8
9




data1 dans le deuxième tableaux des valeurs
différentes

1
3
0

1
6
2

2
0
5




J'aimerai extraire les deux plus grandes valeurs du deuxième tableau dans
ce cas le 6 et le 5 dans deux cellules Ex : A1 et A2 (sachant que les
valeurs peuvent se trouver dans n'importe quelle cases et êtres
différentes.)

Ensuite en B1 et B2 afficher les valeurs du tableau de référence soit 5 et
9 .

J'ai trouvé pour extraire les grandes valeurs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1].Value = "=LARGE( data1,1)"

[A2].Value = "=LARGE( data1,2)"

End Sub



Mais ensuite je nage j'espère que quelqu'un pourra me venir en aide

Merci d'avance a +




Avatar
gilbert
Merci mais j'ai trouvé
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1] = [LARGE(data1,1)]
[a2] = [LARGE(data1,2)]
[B1] = [INDEX(data, MATCH(A1,data1,0))]
[B2] = [INDEX(data, MATCH(A2,data1,0))]
End Sub
----------------------------------------------
"cousinhub" a écrit dans le message de news:
%
Bonsoir,
essaie ce code :

Sub essai()
prem =
[address(MIN(IF(data1=large(data1,1),ROW(data1),"")),COLUMN(data1))]
deux =
[address(MIN(IF(data1=large(data1,2),ROW(data1),"")),COLUMN(data1))]
[a1] = [LARGE(data1,1)]
[a2] = [LARGE(data1,2)]
[b1] = Range(" " & prem & " ").Offset(0, -1).Value
[b2] = Range(" " & deux & " ").Offset(0, -1).Value


Bon courage

Bonjour à tous,

Une solution à vous demander

Voila le PB deux tableau "data"et "data1". "data" étant le tableau de
référence

data

1
2
3

4
5
6

7
8
9




data1 dans le deuxième tableaux des valeurs
différentes

1
3
0

1
6
2

2
0
5




J'aimerai extraire les deux plus grandes valeurs du deuxième tableau dans
ce cas le 6 et le 5 dans deux cellules Ex : A1 et A2 (sachant que les
valeurs peuvent se trouver dans n'importe quelle cases et êtres
différentes.)

Ensuite en B1 et B2 afficher les valeurs du tableau de référence soit 5
et 9 .

J'ai trouvé pour extraire les grandes valeurs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1].Value = "=LARGE( data1,1)"

[A2].Value = "=LARGE( data1,2)"

End Sub



Mais ensuite je nage j'espère que quelqu'un pourra me venir en aide

Merci d'avance a +