Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche date

Horloman

XLDnaute Junior
Je m'excuse de revenir à la charge avec ce sujet, mais j'ai vraiment besoin d'aide:

Le VBA est le suivant:

Function DPP(article, debut)
Temp = 999999
For s = debut To Sheets.Count
p = Application.Match(article, Sheets(s).[A:A], 0)
If Not IsError(p) Then
If Sheets(s).Cells(p, 2) < Temp Then Temp = Sheets(s).Cells(p, 2)
End If
Next s
If Temp <> 999999 Then DPP = Temp Else DPP = "Inconnu"
End Function

Merci beaucoup à son auteur BOISGONTIER.

Mon probléme est le suivant:

Dans la fonction ddp je mets article égale à la valeur que je recherche et debut égale à 100 qui correspond au name visible à travers VBA (propriété feuille name=Feuil100.

Ensuite j'aimerais analyser la colonne 13 à partir de la feuil100 afin de renvoyé la date la plus basse.

Cells(p,2) devient Cells(p,13) ??? Si oui je n'ai rien qui viens hormis Inconnu.

Au secours, je ne pige rien
 

pierrejean

XLDnaute Barbatruc
Re : Recherche date

bonjour Horloman

La fonction de notre ami JB fonctionne parfaitement

Si elle ressort inconnu c'est que dans les feuilles a compter de 100eme (!)
il n'existe pas en colonne A de cellule comportant l'article
 

job75

XLDnaute Barbatruc
Re : Recherche date

Bonjour Horloman, pierrejean,
La fonction étudie à partir de la 100ème feuille : Sheets(100) comptée à partir de la gauche. Cela ne correspond pas nécessairement à Feuil100 !
A+
 

Horloman

XLDnaute Junior
Re : Recherche date

Bonjour,

Donc en résumé avec les modifications en rouge:

Function DPP(article, debut)
Temp = 999999
For s = debut To Sheets.Count
p = Application.Match(article, Sheets(s).[B:B], 0)
If Not IsError(p) Then
If Sheets(s).Cells(p, 16) < Temp Then Temp = Sheets(s).Cells(p, 16)
End If
Next s
If Temp <> 999999 Then DPP = Temp Else DPP = "Inconnu"
End Function

Je devrais chercher dans la colonne B l'article et envoyer la valeur de la colonne N°16 ?

Mais j'obtiens toujours inconnu
 

Discussions similaires

Réponses
2
Affichages
210
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…