find next

[p.fournand]

Bonsoir,
quelqu'un a t'il une idée sur le faite que cette fonction trouve la premiere occurence mais plante pour la suite ?
Function RechercheW(Plage As Range, Num, Pile, Rang, Colonne) As Integer
RechercheW = 999
With Plage
Set ou = .Find(Num, LookIn:=xlValues)
'If Not ou Is Nothing Then
firstAddress = ou.Address
Do
If Cells(ou.Row, ou.Column + 1).Value = Pile Then
If Cells(ou.Row, ou.Column + 2).Value = Rang Then
If Cells(ou.Row, ou.Column + 3).Value = Colonne Then
RechercheW = Cells(ou.Row, ou.Column + 46).Value
Exit Function
End If
End If
End If
Set ou = .FindNext(ou.Address)' A la sortie de cette ligne, OU = nothing ????
Loop While Not ou Is Nothing And ou.Address <> firstAddress
End With
Set ou = Nothing
End Function

Merci

Desole, la premier fichier n'avait pas la bonne macro !

 

[Habitude]

Re : find next

Bonjour

Le find est fait sur une valeur et non une adresse

As-tu essayer
.findnext(ou)

au lieu de
.findnext(ou.address)

 

[dra72]

Re : find next

Bonjour tous.

Beaucoup de mal à comprendre l'origine du problème, d'autant que si on remplace la Function par une Sub, ça fonctionne correctement.

Voir fichier joint:Regarde la pièce jointe Copie de Classeur1(1).xlsm

Que se passe-t-il donc?

 

[Guest]

Re : find next

Bonjour,

Une fonction ne peut pas modifier des cellules ou intervenir sur les feuilles.
Une fonction ne peut que retourner une valeur même si elle fait intervenir d'autres cellules que la cellule appelante.

[edit] le problème n'ai pas là, me suis trompé.

A+

 

[Fred0o]

Re : find next

Bonjour p.fournand, Habitude, dra72, Hasco, le forum.

Erreur sur la condition du While, corrigée dans le code ci-dessous.

Function RechercheW(Plage As Range, Num, Pile, Rang, Colonne) As Integer
  RechercheW = 999
  With Plage
    Set ou = .Find(Num, LookIn:=xlValues)
    'If Not ou Is Nothing Then
    firstAddress = ou.Address
        Do
            If Cells(ou.Row, ou.Column + 1).Value = Pile Then
                If Cells(ou.Row, ou.Column + 2).Value = Rang Then
                    If Cells(ou.Row, ou.Column + 3).Value = Colonne Then
                         RechercheW = Cells(ou.Row, ou.Column + 46).Value
                         Exit Function
                    End If
                 End If
            End If
            Set ou = .FindNext(ou)
            If ou Is Nothing Then Exit Do
        Loop While ou.Address <> firstAddress
    End With
  Set ou = Nothing
End Function

A+

 

[dra72]

Re : find next

Bonjour FredOo,

Pour la cellule "F17", ta fonction ne renvoie plus d'erreur #VALEUR! mais retourne la valeur 999. Or, pour la dite cellule, cette valeur devrait être 202 soit Range("AZ5").

En suivant le déroulement de la fonction pas à pas, on remarque, comme le précisait p.fournand, que

Set ou = .FindNext(ou.Address)

(résultat identique pour

Set ou = .FindNext(ou)

)
nous donne une "valeur" Nothing pour ou (ce qui est incorrect) puisqu'il y a 2 valeurs 20 dans "F1:F8".

D'où vient une telle bizarrerie?

 

[Fred0o]

Re : find next

Bonjour dra72,

En fait j'ai pas bien compris comment le fonction de p.fournand fonctionnait. Attendons donc qu'il se connecte.

A+

 

[pierrejean]

Re : find next

Bonjour a tous

J'ai deja remarqué que la fonction Find avait du mal a fonctionner dans une fonction
Je propose l'alternative suivante

 

[dra72]

Re : find next

Bonjour pierrejean,

J'avais effectivement pensé à cette solution mais j'avais peur (peut-être à tort) qu'elle ne ralentisse le calcul, vu que p.fournand nous précise que son tableau est très très grand.
C'est vrai que dans la fonction initiale, on retrouve 3 des 4 comparaisons effectuées.

Pour ma part, j'avais testé ceci (et bizarrement ça fonctionne):
Regarde la pièce jointe Copie de Classeur1.xlsm

Bon dimanche à tous.

 

[Guest]

Re : find next

Re bonjour à tous,

S'il y a beaucoup de valeur à explorer et éviter une boucle sur toutes les valeurs:

Function RechercheW(ByVal Plage As Range, Num, Pile, Rang, Colonne) As Integer
    RechercheW = 999
    Dim t As Variant: t = Plage.Value
    Dim ou As Variant
    ou = Application.Match(Num, t, 0)
    Do While Not IsError(ou)
        If Plage(ou, 2) = Pile And Plage(ou, 3) = Rang And Plage(ou, 4) = Colonne Then
            RechercheW = Plage(ou, 47)
            Exit Do
        Else
            t(ou, 1) = ""
        End If
        ou = Application.Match(Num, t, 0)
    Loop
End Function

A+

 

[dra72]

Re : find next

Bonjour Hasco.

j'ai testé ton code et ça marche chez moi.

Reste à p.fournand de voir si ça lui convient.

Bonne soirée à tous

 

[pierrejean]

Re : find next

Re

Une proposition a base de tableaux ( n'est-ce pas recommandé pour traiter les tableaux ? )

Les tableaux peuvent etre étendus sous reserve de respecter
1) le mot Wagon en ligne 1 pour le 1er tableau (mais pas en colonne E)
2) conserver la disposition du second tableau (zone vert clair ) avec le mot wagon en colonne E
3) exclure le mot Wagon de toute autre position

 

[Guest]

Re : find next

Re,

N'apporte rien au fil.

Juste un grand Salut chaleureux à l'ami Pierre-Jean (bonjour chez toi)🙂🙂🙂

A+

 

[pierrejean]

Re : find next

Re

Merci Hasco 🙂 🙂 🙂

As-tu testé ma proposition ?

 

[Guest]

Re : find next

Re,

Oui, ça fonctionne.

A++