Recherche horizontale Fermé

Question

Bonjour, 

J'ai besoin d'aide!!! 
Je travaille sur une macro qui doit effectuer une recherche horizontale dans deux onglets (TODAY) et (Hier). Le but étant de la rechercher la date figurant en cellule C2 d'un onglet data et d'aller recherche horizontalement cette date dans les deux onglets cités ci-dessus. Or, A ce niveau tout va! 

Un exemple: 

C2=24/09/2014
dans TODAY, cette date se situe en E2 et dans HIER en B2.

La fontion worksheetfunction.hlookup que j'utilise me ramène les bonnes data en C2 de mon onglet data. Tout va très bien. Là où j'ai du mal, c'est quand je veux effectuer cette même recherche horizontale mais pour qu'elle me ramène les donnés en C2 de l'onglet HIER. J'ai pensé à un .offset mais ça ne fonctionne pas. Comment pourrai-je procéder d'après vous ?

Merci d'avance.

Un extrait de mon code: 

Sub test_copier_coller()Dim i As Long, dl As Long, dc As Long, rCell As Range        With Application        .Calculation = xlCalculationManual        dc = Range("Z3").End(xlToLeft).Column        dl = Range("A65536").End(xlUp).Row                For Each rCell In Range("B6:O" & dl)                        If Cells(rCell.Row, 1) <> "" Then                            'Cells(5, rCell.Column).Copy                'Cells(rCell.Row, rCell.Column).PasteSpecial                'Application.CutCopyMode = False                                On Error Resume Next                'c'est ici que je bloque ?!                rCell = WorksheetFunction.HLookup(Cells(2, rCell.Column),Sheets("TODAY").Range("B2:AE42"), rCell.Row - 1, False)/(1-worksheetfunction.HLookup(cells(2,rcell.Column),Sheets("HIER").Range("B2:AE42"),rcell.Row-1.offset(0,1),false)                If Err.Number > 0 Then rCell = "-"                            End If        Next rCell        .Calculation = xlCalculationAutomatic    End WithEnd Sub

Merci d'avance de votre aide.

Configuration: Windows XP / Chrome 37.0.2062.120 
 
Cordialement,
Conrade82

pijaku · Answer

Bonjour,

Ta demande, mise en parallèle avec ton code, est très confuse :

Tu ds, dans tes explications, vouloir chercher le contenu de la cellule C2, ce que je ne vois nulle part dans ton code...

Dans tes explications, tu parles de chercher cette date "horizontalement" et donc tu la trouves en ligne 2 de tes deux feuilles. Or, dans ton code, si je ne m'abuse, tu cherches dans le Range : ("B2:AE42") de tes 2 feuilles...

Dans ton code, à quoi sert dc = Range("Z3").End(xlToLeft).Column? tu ne t'en sers pas ailleurs...

Si j'ai bien compris la demande...
Tu parcours toutes les cellules de ton Range Range("B6:O" & dl) afin de les remplir.
Les données que tu souhaites placer dans ces cellules se situent dans les feuilles TODAY et HIER.
Tu as une date en C2. Tu dois donc chercher les données correspondantes à cette date, dans les feuilles TODAY et HIER. Pour cela, tu recherches la date dans les lignes 2 de ces deux feuilles. 

La seule question à élucider est donc :
Si tu trouves cette date en ligne 2 des feuilles TODAY et HIER, ou se situe la donnée à "rapatrier"? Dans qu'elle ligne?

conrade82 · Answer

Bonjour Franck,

Merci de ton aide. 

Première chose, mon fichier contient une 3è feuille PRISE OR qui correspond à mon Range("B6:O" & dl).

Si je trouve cette date en ligne 2 des feuilles TODAY et HIER, la données à rapatrier se trouve sur la même ligne que celle dans laquelle la boucle se trouve c-à-d dans la feuille PRISE OR. Les feuilles TODAY, HIER et PRISE OR ont presque le même format, du moins elles ont les mêmes lignes: 

en A5 j'ai Paris, A6 Extra... et c'est pareil dans les 3 feuilles. Par contre, les feuilles TODAY et HIER ont pour chaque jour de la semaine 2 colonnes: une colonne Flotte et une colonne TU. ex: 
- B2:C2 = 26/09/2014 (cellules fusionnées)
- B3= Flotte
- C3= TU
et c'est ainsi sur 15 jours. Donc si la feuille PRISE OR va de B6 à O..., TODAY et HIER vont de B6 à AE...

Le souci, et c'est ce pourquoi je demande de l'aide, c'est en B6 de PRISE OR, il me faut calculer: 

=(TODAY!B6/(1-TODAY!C6)-TODAY!B6)-(HIER!B6/(1-HIER!C6)-HIER!B6)

Or le souci, c'est les dates ne coïndent jamais entre la feuille TODAY et HIER, il y aura toujours un décalage de 1 à 7 jour vu que je veux comparer les données d'hier à celle d'aujourd'ui et celles d'y a 6 jours à celle d'aujourd'hui pour schématiser... 

C'est pourquoi j'ai pensé à la prendre la dans la feuille PRISE OR comme champ de recherche dans les 2 autres feuilles afin d'en retrouver les données. ça fonction pour la donnée issue de la colonne flotte mais pas de la colonne TU... J'ai peur de ne pas avoir plus éclaircit mon propos, non ? :-(

pijaku · Answer

J'ai demandé un relais pour ton sujet car je vais devoir m'absenter.
Tu peux déjà, en attendant, essayer ce test :

Sub Test()
Dim TrouveFeuilTODAY As Range, TrouveFeuilHIER As Range, maDate As Date

maDate = Sheets("PRISE OR").Range("B2").Value
MsgBox "Je cherche le contenu de B2, soit : " & maDate
With Sheets("TODAY")
    Set TrouveFeuilTODAY = .Rows(2).Cells.Find(maDate)
    If Not TrouveFeuilTODAY Is Nothing Then
        MsgBox "Feuille TODAY, trouvé en : " & TrouveFeuilTODAY.Address & Chr(10) & _
        "La cellule située en ligne 6 de cette feuille contient " & TrouveFeuilTODAY.Offset(4, 0).Value
    Else
        MsgBox "pas trouvé en feuille TODAY"
    End If
End With
With Sheets("HIER")
    Set TrouveFeuilHIER = .Rows(2).Cells.Find(maDate)
    If Not TrouveFeuilHIER Is Nothing Then
        MsgBox "Feuille HIER, trouvé en : " & TrouveFeuilHIER.Address & Chr(10) & _
        "La cellule située en ligne 6 de cette feuille contient " & TrouveFeuilHIER.Offset(4, 0).Value
    Else
        MsgBox "pas trouvé en feuille HIER"
    End If
End With
End Sub

eriiic · Answer

Bonjour,

Tu as bien détaillé, merci.
Mais je pense qu'une finesse doit encore m'échapper car je ne vois pas le pb d'adresser une cellule à droite d'une autre :-s

Quoiqu'il en soit une proposition.
J'ai pris une autre piste pour ne pas me laisser influencer : fonction perso. On se concentre sur l'essentiel, moins de code à contrôler ;-)
Je recherche donc la date dans les 2 feuilles et mémorise les colonnes. Idem pour pour le code station par sécurité.
A partir de la j'applique ta formule :
X = (TODAY!B5/(1-TODAY!C5)-TODAY!B5) 
Y = (HIER!D5/(1-HIER!E5)-HIER!D5) 
X-Y 
J'ai mis un arrondi simple. Si besoin change pour arrondi.sup ou arrondi.inf (ou rien).

Par contre aucune idée si c'est bon, tu ne fournis pas d'exemple de résultats à obtenir (je suppose ceux du tableau faux, sinon tu ne demanderais pas...).
Pour C5 je trouve 74 comme avec les formules fournies (en F15).
A toi de voir si ça t'inspire. Une fois validées ou modifiées les 2 lignes de calcul, tu peux appeler la fonction à partir d'une boucle vba si tu préfères un sub qui traite la plage à la place des fonctions feuille.
https://www.cjoint.com/?DICqKPELBqS

eric

Recherche horizontale

4 réponses

Discussions similaires