Bonjour,
J'ai cette formule:
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$
suivant les valeurs que prennent B13 et B14 dans ma feuille 2,j'irai
chercher dans ma feuille 1 les memes valeurs que prennent B13 et B14 et
afficher sur ma cellules la valeur correspondant de la colonne L de la
feuille 1
cela marche très bien pour une ligne, mais quand je tire mes lignes.j'ai
un
petit souci
Supposons que dans ma colonne H et I j'ai plusieurs fois,des codes
identiques c'est a dire:
en feuille 1:
ligne15: 10 en H15 20 en I15 500 en L15
Ligne 16: 10 en H16 20 en I16 800 en L16
Ligne 17: 0 en H17 20 en I17 100 en L17
Ligne 18: 10 en H18 20 en I18 900 en L18
tout ce la est dans la feuille 1
si dans ma feuille 2 je rentre en B13 la valeur 10 et en B14 la valeur 20
suivant ma formule que je met dans une colonne(par exemple la colonne D de
la feuille 2)
je voudrai Avoir:
en D15: 500
en D16: 800
en D17: 900
ces valeurs corresponde bien au code rentré.
je n'aurai pas 100 car il correspond pas au code
merci de votre aide.
Bonjour,
J'ai cette formule:
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$
suivant les valeurs que prennent B13 et B14 dans ma feuille 2,j'irai
chercher dans ma feuille 1 les memes valeurs que prennent B13 et B14 et
afficher sur ma cellules la valeur correspondant de la colonne L de la
feuille 1
cela marche très bien pour une ligne, mais quand je tire mes lignes.j'ai
un
petit souci
Supposons que dans ma colonne H et I j'ai plusieurs fois,des codes
identiques c'est a dire:
en feuille 1:
ligne15: 10 en H15 20 en I15 500 en L15
Ligne 16: 10 en H16 20 en I16 800 en L16
Ligne 17: 0 en H17 20 en I17 100 en L17
Ligne 18: 10 en H18 20 en I18 900 en L18
tout ce la est dans la feuille 1
si dans ma feuille 2 je rentre en B13 la valeur 10 et en B14 la valeur 20
suivant ma formule que je met dans une colonne(par exemple la colonne D de
la feuille 2)
je voudrai Avoir:
en D15: 500
en D16: 800
en D17: 900
ces valeurs corresponde bien au code rentré.
je n'aurai pas 100 car il correspond pas au code
merci de votre aide.
Bonjour,
J'ai cette formule:
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$
suivant les valeurs que prennent B13 et B14 dans ma feuille 2,j'irai
chercher dans ma feuille 1 les memes valeurs que prennent B13 et B14 et
afficher sur ma cellules la valeur correspondant de la colonne L de la
feuille 1
cela marche très bien pour une ligne, mais quand je tire mes lignes.j'ai
un
petit souci
Supposons que dans ma colonne H et I j'ai plusieurs fois,des codes
identiques c'est a dire:
en feuille 1:
ligne15: 10 en H15 20 en I15 500 en L15
Ligne 16: 10 en H16 20 en I16 800 en L16
Ligne 17: 0 en H17 20 en I17 100 en L17
Ligne 18: 10 en H18 20 en I18 900 en L18
tout ce la est dans la feuille 1
si dans ma feuille 2 je rentre en B13 la valeur 10 et en B14 la valeur 20
suivant ma formule que je met dans une colonne(par exemple la colonne D de
la feuille 2)
je voudrai Avoir:
en D15: 500
en D16: 800
en D17: 900
ces valeurs corresponde bien au code rentré.
je n'aurai pas 100 car il correspond pas au code
merci de votre aide.
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C9204D2E-F038-4FE7-9883-131A8FD2244E@microsoft.com...
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C9204D2E-F038-4FE7-9883-131A8FD2244E@microsoft.com...
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" a écrit dans le message de news:
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
5778AE86-B030-4470-A915-14D0D0672683@microsoft.com...
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C9204D2E-F038-4FE7-9883-131A8FD2244E@microsoft.com...
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" a écrit dans le message de news:
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" a écrit dans le message de news:
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
5778AE86-B030-4470-A915-14D0D0672683@microsoft.com...
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:
Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C9204D2E-F038-4FE7-9883-131A8FD2244E@microsoft.com...
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:
Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
68AEDDD3-D331-491A-A78A-4BEE4D1116AF@microsoft.com...
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:
Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing
Bonjour Jean,
Tu peux télécharger l'exemple simple que je t'ai fait, les explications sommaires sont dans le classeur.
"je n'ai pas compris ton code" Il va falloir que tu y mettes quand même plus de 5 minutes ...cela m'a quand même pris
plus de 5 minutes moi-même pour l'écrire !
clique sur ce lien pour télécharger le classeur !
http://cjoint.com/?mmqyQketRn
Salutations!
"JEAN" a écrit dans le message de news:
je n'ai pas compris ton code, d'ailleur je l'ai essayé et cela ne fonctionne
pas.
A savoir que si je met en critere B13 et B14 de ma feuille 2
je doit pouvoir recuperer tout les valeurs des 10 colonnes que j'ai dans ma
feuille 1 correspondant a ces conditions.
Je peux avoir les meme conditions plusieurs fois.
merci
"michdenis" wrote:Bonjour Jean,
Essaie ceci :
Tu colles le code dans le module Feuille de la Feuil2 de ton application. Si les adresses que tu as données, cela
devrait fonctionner sans retouches !
Si tu as déjà du code dans cet événement de la feuille, la section "Déclaration des variables" va dans le haut de la
procédure et tu insères ceci à la fin des procédure déjà existante. Assure-toi, que tu n'as pas déjà des variables
dans
la procédure qui possèdent déjà le nom des variables que j'utilise dans ce code.
'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Déclaration des variables:
Dim Etat As Integer
Dim R As Range, R1 As Range
If Not Intersect(Target, Range("B13:B14")) Is Nothing Then
Application.EnableEvents = False
Etat = Application.Calculation
Application.Calculation = xlCalculationManual
On Error Resume Next
With Worksheets("Feuil1")
With .Range("H14:L250")
.AutoFilter field:=1, Criteria1:=Range("B13")
.AutoFilter field:=2, Criteria2:=Range("B14")
Set R = .Offset(1, 4).Resize(, .Columns.Count - 4)
Set R1 = R.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Range("L15:L250").Clear
R1.Copy Range("L15")
.AutoFilter
End With
End With
Application.EnableEvents = True
Application.Calculation = Etat
Set R = Nothing: Set R1 = Nothing
End If
End Sub
'-------------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
oui mais du coup ca me classe mes valeurs, et comme j'ai plusieurs valeurs de
differentes colonne à recuperer.
ca les classe pas comme dans la feuille 1
je voudrai pas utilisé la fontion petite valeur.
je veux seulement recuperer mes valeurs suivant la condition qui satisfait.
si jutilise petite valeur
et que j'ai par exemple dans ma feuille 1 dans une colonne
123
190
101
23
189
je veux que ca recupere de cette facon
et pas comme ceci:
23
101
123
189
190
sinon ma recuperation est pas bonne
merci
"michdenis" wrote:Bonsoir Jean,
Remplace K dans la formule par Ligne(A1) et tu tires ta formule vers le bas
Salutations!
"JEAN" a écrit dans le message de news:
ca repond pas tout a fait à ma questions,
quelle est le rapport avec petite valeur et la lettre K
c'est juste qu'avec cette formule
=INDEX(Feuil1!L15:L250;EQUIV($B$13&$B$14;Feuill1!$H$15:$H$250&Feuil1!$I$15:$I$250;0))
je voudrai recuperer chaque valeur dans la colonne de ma feuille 2 les
differentes valeurs que prennent la colonne L suivont la conditions de B13 et
B14
je comprend pas trop pourquoi petite valeur et K
merci
"Starwing" wrote:Bonjour JEAN,
Cette formule ferait-elle ton affaire?
Pour trouver la K ième plus petite valeur répondant à une
série de conditions...
En D15:
Matricielle:
Validation par Ctrl + Shift + Entrée
=PETITE.VALEUR(SI(($B$13þuil1!$H$15:$H$250)*
($B$14þuil1!$I$15:$I$250);Feuil1!$L$15:$L$250);K)
k prend la valeur de 1 en D15
k prend la valeur de 2 en D16
etc...
Starwing