Classer dates en fonction d'un code de plusieurs feuilles

Bonjour à vous tous

Je suis en Excel 2003

Je vous demande de nouveau une solution à mon problème asser complexe pour moi.

J'aimerais d'après une recherche sur plusieurs feuilles, retrouver une date d'après un code de cette feuille

et de l'inscrire sur une feuille "résultat" la date correspondante au code.

Je vous joint un exemple plus parlant

Merci d'avant de vos propositions

Cdt Gabinos

6testdates.zip (9.75 Ko)

Bonjour,

à tester,

For Each f In Worksheets
With Sheets("resultat")
 If Not IsError(Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D6"), Sheets(f.Name).Rows(4), 0))) Then
 dt = Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D6"), Sheets(f.Name).Rows(4), 0))
 .Range("F6") = dt
 End If
 End With
Next

ps/ pour trouver toutes les date

Sub Trouve_date()
Dim f As Worksheet, i As Long, dt As Double
With Sheets("resultat")
 For i = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
    For Each f In Worksheets
     If f.Name <> "resultat" Then
      If Not IsError(Application.Match(.Range("D" & i), Sheets(f.Name).Rows(4), 0)) Then
       dt = Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D" & i), Sheets(f.Name).Rows(4), 0))
      .Range("F" & i) = dt
      End If
     End If
    Next f
 Next i
End With
End Sub

Bonjour

Solution par formule

Après avoir nommée la liste des feuilles concernées

Formule en F2, incrémentée vers le bas

=SIERREUR(RECHERCHEH(D2;INDIRECT(INDEX(Liste_Feuilles;EQUIV(VRAI;(NB.SI(INDIRECT(Liste_Feuilles&"!C4:X4");D2)>0);0))&"!C4:X5");2;FAUX);"Inexistant")

Formule matricielle, à valider avec les 3 touches Ctrl+Maj+Entrée

Cordialement

6testdates.zip (24.30 Ko)

Merci Amadeus

Je viens de d'essayer de mettre en service mais j'ai problème

voici le résultat

7testdates04.zip (24.30 Ko)

rebonjour

suite à ma demande

et de ton fichier reçu

je n'arrive a obtenir le résultat ue j

tu a envoyer

Je remet le fichier avec la modif mais sa bug , j'ai pas réussi le résultat attendu

SVP pouvez vous modifier ce dernier fichier envoyé..

Merci d'avance

6testdates05.zip (24.35 Ko)

Bonjour

ton profil indique Excel 2003, voici la version 2003

Formule en F2

=SI(ESTERREUR(RECHERCHEH(D2;INDIRECT(INDEX(Liste_Feuilles;EQUIV(VRAI;(NB.SI(INDIRECT(Liste_Feuilles&"!C4:X4");D2)>0);0))&"!C4:X5");2;FAUX));"Inexistant";RECHERCHEH(D2;INDIRECT(INDEX(Liste_Feuilles;EQUIV(VRAI;(NB.SI(INDIRECT(Liste_Feuilles&"!C4:X4");D2)>0);0))&"!C4:X5");2;FAUX))

Cordialement

7testdates.zip (25.42 Ko)

Bonjour et Merci Amadéus.

Sa fonctionne bien

Juste que je voudrais modifier la liste de feuilles à 10 recherches de feuilles

et je sais pas comment rajouter

la liste s'arrete à l'exemple

comment modifier cette liste ?

Cdt Gabinos

Bonjour

En colonne N tu as

agde

Lyon

pomacle

marne

Tu ajoutes tes autres nom d'onglets à la suite en N5, N6, N7,...etc

et tu n'as rien d'autre à modifier

Cordialement

Merci Amadéus

Tout fonctionne nikel dans l'exemple sa fonctionne parfaitement

Pour une autre application les données de liste ne seront pas à la même colonne

comment pratiquer pour refaire une autre liste ?

tout d'abord merci de tes réponses "je suis pas très doué pour ce genre de manipulation

Cordialement

Gabinos

Bonjour

Pour une autre application les données de liste ne seront pas à la même colonne

comment pratiquer pour refaire une autre liste ?

Sur Excel 2003, dans le menu "Insertion", tu as le sous-menu "Nom" et "Définir"

La fenêtre quio s'ouvre affiche le nom existant "Liste_Feuilles"

Tu cliques sur "Liste_Feuilles"

Au bas de cette fenêtre s'affiche la formule qui correspond au nom "Liste_Feuilles"

=DECALER(resultat!$N$1;;;NBVAL(resultat!$N:$N))

Si tu veux mettre ta liste en colonne AB, tu remplaces l'indication de la colonne N par AB

ou autre colonne de ton choix

Cordialement

Merci Amadéus

J'en apprend tout les jours en EXCEL

cette application me sert pour le Géocaching......

l'explication ue tu ma mis est top j'ai réussi cette modif ouf c'est TOP

Un grand MERCI Amadéus

Cordialement

Gabinos

Rechercher des sujets similaires à "classer dates fonction code feuilles"