Pb avec find

[jul51]

Hello à tous,

Voila je suis en train de développer un pricer de cap, j'ai besoin d'aller chercher dans un table normale la valeur correspondante comme cela:

J'ai une table sous cette forme: Formulaire de Mathématiques : Table de la loi normale

J'ai tout transformer pour etre au forma excel (suppression des chr160 et des . à la place des virgules).

Par exemple, j'ai un nombre du type : 1,877423982

Le debut de mon code va chercher avec left le 1,8 et va me le chercher dans la table.

Et là, impossible d'obtenir un resultat?

Avec la fonction recherche de excel, il me trouve bien dans la colonne A la valeur 1,8 mais pas la formule find?

Voici mon code:

Worksheets("Feuil1").Activate
     
    
        For Each MaCel In Worksheets("Feuil1").Range("K1:K50")
        If Not MaCel = "" Then
        If IsNumeric(Cells(MaCel.Row, 11)) Then
        
        MsgBox MaCel
        val1 = Left(MaCel, 3)
        val2 = "0.0" & Mid(MaCel, 4, 1)
        
        MsgBox val1
        MsgBox val2
        
        Worksheets("Feuil2").Activate
        
        Set mot = Range("A2:A41").Find(What:=val1, LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
        If val1 = "" Then Exit Sub
        
        If Not mot Is Nothing Then

Ce n'est que le debut, val1 prend bien la valeur voulue mais find ne me la trouve pas dans la colonne A?????

Merci de votre aide

 

[JYLL]

Re : Pb avec find

Bonjour Jul51 et le forum,

Pour avoir 1,8 à partir de 1,877423982 tu fais :

valeur= (cint(1,877423982*10)/10

si tu multiplies :

Ligne= 1,8*10+1

tu auras le numéro de ligne

et si tu prends:

Colonne=cint((valeur-cint(valeur))*10)+1

tu auras le numéro de colonne ceci aux offsets prés.

bon test.

 

[jul51]

Re : Pb avec find

Merci de ta réponse mais 1.8 tombe en ligne 20 chez moi, pas en ligne 19? ((1.8*10)+1)

J'ai finalement fait autrement, find ne marche pas bien pour aller chercher des chiffre donc j'ai utilisé ça:

For Each MaCel In Range("A2:A41")
        If MaCel.Value = val1 Then
        LL = MaCel.Row
        End If
        Next

et il me donne la ligne, je fais la meme pour la colonne et ça roule.


Encore merci

 

[Pierrot93]

Re : Pb avec find

Bonjour Jul, Jyll

ci dessous avec l'utilisation de "find", me renvoie bien la bonne cellule. Mon séparateur décimal est le point, à privilégier si utilisation vba, enfin c'est juste mon avis.

Sub test()
Dim x As Range, z As Double
'cellule h2 renseignée par 1.877423982, x me renvoie la bonne cellule
z = 1.8
Set x = Range("2:2").Find(z, , xlValues, xlPart, , , False)
If Not x Is Nothing Then MsgBox "la date du jour est en " & x.Address
End Sub

@+