un seul critère de recherche

Le
pellet15
Bonsoir à tous
Dans la procédure suivante il y a deux critère de recherche et je
voudrait éliminer le premier
( subd ).
pour que seulement ( pmil ) soit utiliser .

Que dois-je modifier ??
Merci

Sub recherche_PMil()
subd = Sheets("GPS").Range("B2")
pmil = Sheets("GPS").Range("C2")
Sheets("GPS").Range("D2") = cherche(subd, pmil)
ActiveSheet.Protect "cn178174", DrawingObjects:=False,
Contents:=True, Scenarios:=True
End Sub

Public Function cherche(subd, pmil)
derlig = Sheets("GPS").Cells.Find("*", [A1], , , xlByRows,
xlPrevious).Row
Set liste = Sheets("GPS").Range("G2:G" & derlig)
diff = 1000000000#: lig = -1: rep = 0
T1 = Now
For Each celle In liste
Application.StatusBar = Format((Now - T1) * 86400, "#")
If celle.Offset(0, -2) = subd Then
vale = celle.Offset(0, -1): rep = rep + 1
If (Abs(vale - pmil)) < diff Then
diff = Abs(vale - pmil): lig = celle.Row: rep = 0
End If
End If
If rep > 10 Then Exit For
Next celle
If lig > -1 Then cherche = Intersect(liste, Rows(lig))
Application.StatusBar = False
End Function
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #22305451
Bonjour,

Sur ce qu'on peut voir, c'est bien trop flou sans voir à quoi cela
correspond dans ton classeur,
a priori ce code n'utilise pas pmil pour la recherche.
C'est subd qui est recherché .pmil semble utilisé dans la restitution.

Cordialemement.

--
LSteph

On 28 juin, 02:37, pellet15
Bonsoir à tous
Dans la procédure suivante il y a deux critère de recherche et je
voudrait  éliminer le premier
 (  subd ).
pour que seulement  (  pmil  )  soit utiliser .

Que dois-je modifier ??
Merci

Sub recherche_PMil()
 subd = Sheets("GPS").Range("B2")
 pmil = Sheets("GPS").Range("C2")
 Sheets("GPS").Range("D2") = cherche(subd, pmil)
     ActiveSheet.Protect "cn178174", DrawingObjects:úlse,
Contents:=True, Scenarios:=True
End Sub

Public Function cherche(subd, pmil)
 derlig = Sheets("GPS").Cells.Find("*", [A1], , , xlByRows,
xlPrevious).Row
 Set liste = Sheets("GPS").Range("G2:G" & derlig)
 diff = 1000000000#: lig = -1: rep = 0
 T1 = Now
 For Each celle In liste
  Application.StatusBar = Format((Now - T1) * 86400, "#")
  If celle.Offset(0, -2) = subd Then
   vale = celle.Offset(0, -1): rep = rep + 1
   If (Abs(vale - pmil)) < diff Then
    diff = Abs(vale - pmil): lig = celle.Row: rep = 0
   End If
  End If
  If rep > 10 Then Exit For
 Next celle
 If lig > -1 Then cherche = Intersect(liste, Rows(lig))
 Application.StatusBar = False
End Function
pellet15
Le #22305831
On 28 juin, 06:34, LSteph
Bonjour,

Sur ce qu'on peut voir, c'est bien trop flou sans voir à quoi cela
correspond dans ton classeur,
a priori  ce code n'utilise pas pmil pour la recherche.
C'est subd qui est recherché .pmil semble utilisé dans la restitution .

Cordialemement.

--
LSteph

On 28 juin, 02:37, pellet15


> Bonsoir à tous
> Dans la procédure suivante il y a deux critère de recherche et je
> voudrait  éliminer le premier
>  (  subd ).
> pour que seulement  (  pmil  )  soit utiliser .

> Que dois-je modifier ??
> Merci

> Sub recherche_PMil()
>  subd = Sheets("GPS").Range("B2")
>  pmil = Sheets("GPS").Range("C2")
>  Sheets("GPS").Range("D2") = cherche(subd, pmil)
>      ActiveSheet.Protect "cn178174", DrawingObjects:úlse,
> Contents:=True, Scenarios:=True
> End Sub

> Public Function cherche(subd, pmil)
>  derlig = Sheets("GPS").Cells.Find("*", [A1], , , xlByRows,
> xlPrevious).Row
>  Set liste = Sheets("GPS").Range("G2:G" & derlig)
>  diff = 1000000000#: lig = -1: rep = 0
>  T1 = Now
>  For Each celle In liste
>   Application.StatusBar = Format((Now - T1) * 86400, "#")
>   If celle.Offset(0, -2) = subd Then
>    vale = celle.Offset(0, -1): rep = rep + 1
>    If (Abs(vale - pmil)) < diff Then
>     diff = Abs(vale - pmil): lig = celle.Row: rep = 0
>    End If
>   End If
>   If rep > 10 Then Exit For
>  Next celle
>  If lig > -1 Then cherche = Intersect(liste, Rows(lig))
>  Application.StatusBar = False
> End Function- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -




Bonjour LSteph

Lorsque j'inscrie la Subd en B2 et pmil en C2 j'obtien Long/lat en
D2.

je voudrait plus utiliser la Subd critere B2
inscrire pmil en C2 et apres exécution avoir la réponce en D2........

Le tableau est comme celui la :
Subd pmil long/lat
Col.B2------- C2---------------D2--------
Butler 0,02 ???????????????


col. E--------------F-----------------------G
Ligne 2 Butler 0,01 N45.48756 W73.54134
Ligne 3 Butler 0,01 N45.48754 W73.54139
Ligne 4 Butler 0,01 N45.48752 W73.54144
Ligne 5 Butler 0,02 N45.48750 W73.54150
Ligne 6 Butler 0,02 N45.48747 W73.54155
Ligne 7 Butler 0,02 N45.48745 W73.54160
Ligne 8 Butler 0,03 N45.48743 W73.54164
Ligne 9 Butler 0,03 N45.48740 W73.54169
Ligne 10 Butler 0,03 N45.48738 W73.54173
Ligne 11 Butler 0,03 N45.48736 W73.54177
ect jusqua la ligne 5184
Publicité
Poster une réponse
Anonyme