Discussion :

[Le POlonais]

Bonjour,

J'ai un petit problème, j'ai 2 feuilles.

Dans la 1 ère feuille de A1 à Z6, je voudrais rechercher une valeur

Par exemple A1=6 A2=3 A3=4 A4=0 A5=2 A=6

Ces 6 valeurs je voudrais faire une recherche dans la 2ème feille de A1 à F100
Et si c'est la même combinaison, je prend le résultat qui se situe dans les cellules de G1 à K100.
J'arrive en comparant cellule par cellule mais par 6 cellules, je ne sais pas faire.
Si une personne de bonne volonté à un exemple je suis preneur.
Merci par avance.
A+
Norbert

[Pierre Fauconnier]

Bonsoir

Désolé, je n'ai pas compris... Peux-tu expliquer autrement?

[Le POlonais]

Je voudrais dans un tableau de données rechercher une combinaison qui se trouve dans une autre feuille.
une combinaison de 6 chiffres par exemple :
dans A1 = 2 A2 = 0 A3= 1 A4 =2 A5 = 6 A6 =5

Je voudrais retrouver cette combinaison par exemple : 2 0 1 2 6 5

dans une autre feuille en A1 à F100 et si je trouve cette combinaison je récupére la valeur qui se trouve à droite en G1 à K100.
J'espère que c'est un peu plus clair.
Merci pour votre aide
A+
Norbert

[Pierre Fauconnier]

Tu énonces les cellules A1, A2... => sur une colonne... Dans la feuille de données, tu as le même agencement en A?

Je ne comprends pas comment tu veux aller chercher des données dans G1:k100 en fonction de cette recherche...

Pourrais-tu placer un schéma (image d'écran)?

[Pratchett]

Si j'ai bien compris tu veux retrouver en colonne A la même valeur que A1, en colonne B la meme valeur que A2 , etc.Si les 6 conditions sont réunies tu veux trouver les chiffres sur la mm ligne de la colonne G à K.
Si c'est le cas, il faut que tu fasses des conditions (if... then) et si ces 6 conditions sont réunies en même temps alors copier les valeurs de G à K qui se trouvent sur la ligne gagnante.

[Le POlonais]

J'ai réussis par cellule avec If then mais je voudrais le faire avec un ensemble de cellule.
Je joins le fichier.
Exe :
Dans la feuille 2 je veux rechercher la combisaison de B1 à B16 dans la feuille 1
et je regarde a partir de D4 à S4 si je trouve cette combinaison sur cette ligne, je récupére les valeurs de T4 à S4.
Que je recopie dans la feuille 2 à partir de B20
J'aurai du commencer par joindre le fichier qui est plus explicite.
Merci pour votre aide.
A+
Norbert

[Pierre Fauconnier]

Dans le fichier que tu donnes, je ne vois aucune formule, et, sauf erreur de ma part, je ne vois pas de lien avec la problématique énoncée dans tes précédents messages.

[Le POlonais]

Le fichier que j'ai envoyé est une extraction de mon fichier qui est trop volumineux pour pouvoir l'envoyer

Ce code fonctionne mais cellule par cellule, ce que je voudrais c'est par un ensemble de cellule.

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
Public A As Single
Public jour As Single
Public nbreJour As Single
Sub LesBesoins()
If ActiveSheet.Name = "Feuil2" Then
nbreJour = 30
For jour = 0 To nbreJour
 
If Worksheets("Feuil2").Range("CA4").Offset(0, jour) = "Jeu" Or Worksheets("Feuil2").Range("CA4").Offset(0, jour) = "Sam" Then  'ligne 0 + 3
For A = 1 To 40
'Calcul des besoins matin
Worksheets("Feuil2").Range("CA50").Offset(0, jour) = Worksheets("Feuil1").Range("C" & 4) 'Résultat matin
'Calcul des besoins
 
If Worksheets("Feuil2").Range("CA62").Offset(0, jour) = Worksheets("Feuil1").Range("D" & A + 3) And _
Worksheets("Feuil2").Range("CA63").Offset(0, jour) = Worksheets("Feuil1").Range("E" & A + 3) And _
Worksheets("Feuil2").Range("CA64").Offset(0, jour) = Worksheets("Feuil1").Range("F" & A + 3) And _
Worksheets("Feuil2").Range("CA65").Offset(0, jour) = Worksheets("Feuil1").Range("G" & A + 3) And _
Worksheets("Feuil2").Range("CA66").Offset(0, jour) = Worksheets("Feuil1").Range("H" & A + 3) And _
Worksheets("Feuil2").Range("CA67").Offset(0, jour) = Worksheets("Feuil1").Range("I" & A + 3) And _
Worksheets("Feuil2").Range("CA68").Offset(0, jour) = Worksheets("Feuil1").Range("J" & A + 3) And _
Worksheets("Feuil2").Range("CA69").Offset(0, jour) = Worksheets("Feuil1").Range("K" & A + 3) And _
Worksheets("Feuil2").Range("CA70").Offset(0, jour) = Worksheets("Feuil1").Range("L" & A + 3) And _
Worksheets("Feuil2").Range("CA71").Offset(0, jour) = Worksheets("Feuil1").Range("M" & A + 3) And _
Worksheets("Feuil2").Range("CA72").Offset(0, jour) = Worksheets("Feuil1").Range("N" & A + 3) And _
Worksheets("Feuil2").Range("CA73").Offset(0, jour) = Worksheets("Feuil1").Range("O" & A + 3) And _
Worksheets("Feuil2").Range("CA70").Offset(0, jour) = Worksheets("Feuil1").Range("L" & A + 3) And _
Worksheets("Feuil2").Range("CA71").Offset(0, jour) = Worksheets("Feuil1").Range("M" & A + 3) And _
Worksheets("Feuil2").Range("CA72").Offset(0, jour) = Worksheets("Feuil1").Range("N" & A + 3) And _
Worksheets("Feuil2").Range("CA73").Offset(0, jour) = Worksheets("Feuil1").Range("O" & A + 3) And _
Worksheets("Feuil2").Range("CA74").Offset(0, jour) = Worksheets("Feuil1").Range("P" & A + 3) And _
Worksheets("Feuil2").Range("CA75").Offset(0, jour) = Worksheets("Feuil1").Range("Q" & A + 3) And _
Worksheets("Feuil2").Range("CA76").Offset(0, jour) = Worksheets("Feuil1").Range("R" & A + 3) And _
Worksheets("Feuil2").Range("CA77").Offset(0, jour) = Worksheets("Feuil1").Range("S" & A + 3) Then _
Worksheets("Feuil2").Range("CA51").Offset(0, jour) = Worksheets("Feuil1").Range("T" & A + 3) 'Résultat avant diurne
Next A
End If
Next jour
End If
End Sub

[ucfoutu]

Bonjour,
fais donc varier tes
Range("CA62") etc... dans ta boucle, en fonction de la valeur de A !
genre :
Range("CA" & str(61 + A)), etc...
et adapte ce principe à ce que tu veux faire (et que je ne vois pas clairement sans explications plus précises sur ce qui doit "bouger" dans ta boucle ..)