Discussion :

[wahabts7]

Bonsoir,
Cela fait 2 jours que j'essai de trouver une solution.

EN fait, j'ai un fichier excel avec deux feuilles
feuille1 3 colonnes nom / taille/ date entree
feuille2 3 colonnes nom / taille / date sortie
le probleme c'est que je peux avoir plusieurs nom pareils
ce que je voudrai faire c'est placer dans la feuille 1 la date sortie qui correspond au nom et taille, sachant que je veux lier la date entree a la plus proche date sortie qui lui correspond.
j'ai classé ma feuille 2 par odre chrono et si la pièce n'est pas dispo dans la feuille 2 il me met la ligne correspondante en feuille 1 en rouge
une solution?

[Qwazerty]

Salut et bienvenu
La solution simple sans se casser trop la tête serait de simplement rajouter un colonne avec une formule style
Si A = les nom
B = la taille
Pour la ligne 2 en colonne D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= A2 & B2

Ainsi au lieu de faire la recherche sur la colonne A tu fais ta recherche sur la colonne D.
Tu caches ta colonne D pour ne pas que ça fasse vilain et le tour est joué.
Maintenant, il existe surement une solution plus propre et je parierais que le VBA n'est pas nécessaire.
A++
Qwaz

[wahabts7]

Merci pour la réponse ,mais en fait il me faut une macro.
je réexplique le pb

ce que je veux, c'est mettre sur la feuille 3 les données en sortie. donc j'aurai le nom; quantité date entrée et date sortie (date sortie du nom doit etre la plus proche des dates de sortie si il y a des noms pareils)

merci pour l'aide

exple de ce que je veux faire

feuil1
nom taille date entree
a 1 18/03/2010 05:10
a 1 21/03/2010 05:10
b 2 21/03/2010 05:10
c 3 21/03/2010 05:10
feuil2
nom taille date sortie
a 1 19/03/2010 05:10
a 1 22/03/2010 05:10
c 3 22/03/2010 05:10

feuil3 je veux croiser 1ere date entree avec premiere date sortie selon taille et nom

nom taille date entree datesortie
a 1 18/03/2010 05:10 19/03/2010 05:10
a 1 21/03/2010 05:10 22/03/2010 05:10
c 3 21/03/2010 05:10 22/03/2010 05:10

le nom b par exple n'est pas sorti on le met sur la feuil3 mais la ligne sera en rouge c optionnel pour les pros )

c mieux expliqué je pense
merci pour tout c vmt urgent

[Qwazerty]

Salut
Les dates d'entrée/sortie sont elles inscrites au file de l'eau?
Dans ton exemple on a
a
a
b
c

a ce a correspond forcement au 1er a de l'autre tableau?
a
c

Une autre façon de poser la question serait de dire, les entrée sortie sont elles classées par date?

A++
Qwaz

[wahabts7]

oui effectivement a renvoie au nom dans la feuil1et 2
pour les feuil1et2 les dates entree/sortie sont classées par ordre chronologique

[Qwazerty]

Salut

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
Private Sub CommandButton1_Click()
Dim F1 As Worksheet, F2 As Worksheet, F3 As Worksheet
Dim TheCel As Range
Dim Tab_F2
Dim xTab As Long
Dim KeyNT As String
 
'init
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Set F3 = Sheets("Feuil3")
 
 
'recopie le contenu de la feuil1 dans la feuil3
F1.UsedRange.Copy F3.[A1]
 
'On consigne les valeur de la feuil2 dans un tableau
Tab_F2 = F2.UsedRange
 
 
'On complete le tableau Feuil3
With F3
    For Each TheCel In .Range("A2", .Cells(Rows.Count, "A").End(xlUp))
        KeyNT = TheCel & TheCel.Offset(0, 1)
        .Range(TheCel, TheCel.Offset(0, 3)).Font.ColorIndex = 0
        'on recherche dans le tableauF2
        For xTab = 2 To UBound(Tab_F2)
            If (Tab_F2(xTab, 1) & Tab_F2(xTab, 2) = KeyNT) And (CDate(Tab_F2(xTab, 3)) >= TheCel.Offset(0, 2)) Then
                TheCel.Offset(0, 3) = CDate(Tab_F2(xTab, 3))
                GoTo suite
            End If
        Next
        'Si on arrive ici la personne n'est pas sortie
        .Range(TheCel, TheCel.Offset(0, 3)).Font.ColorIndex = 3
suite:
    Next
End With
 
End Sub

Essai comme ça, a adapter en, fonction de la structure de ton tableau.
J'ai fais le code en Fct° de ce que tu as donné comme indication d'organisation des infos

A++
Qwaz