Chercher une valeur dans un tableau excel

Fermé
funbreizhou Messages postés 76 Date d'inscription samedi 10 octobre 2009 Statut Membre Dernière intervention 3 novembre 2011 - Modifié par funbreizhou le 2/03/2011 à 19:49
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 3 mars 2011 à 14:47
Bonjour,

J'ai un petit soucis sur Excel, j'aimerais créer une macro qui cherche une valeur dans une colonne.
Je m'explique :

J'ai une masse m0 et une hauteur minimum h0 données.
A côté j'ai une colonne de valeur de masse :


h m

60 290
65 279
70 268
75 257
80 246
85 235
90 224
95 213
100 202
105 191


données :
h0 98 m
m0 243 t

Ce que j'aimerais créer, c'est une macro qui me dise :
"Est ce que à la valeur h1 strictement supérieure à h0, la masse m1 est strictement inférieure à m0 ?"

Ca m'aiderait beaucoup!
Merci d'avance pour votre aide !



A voir également:

2 réponses

Bonjour,

Je ne suis pas sur de comprendre votre demande:

Essayons ceci :

Option Explicit

Sub ChercheValeur()

    Dim H0 As Long
    Dim M0 As Long
    Dim strTexte As String
     
    H0 = 98
    M0 = 243
     
    Range("A2").Select
    While (ActiveCell.Value < H0)
       ActiveCell.Offset(1, 0).Select
    Wend
     
    strTexte = "H1 est strictement supérieur à H0 " & ActiveCell.Address & vbCrLf
     
    If (ActiveCell.Offset(0, 1).Value < M0) Then
        strTexte = strTexte & "Mais M1 n'est pas strictement inférieur à M0 " & ActiveCell.Offset(0, 1).Address
    End If
         
    MsgBox strTexte
     
End Sub
'


Cdt

Info
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
3 mars 2011 à 14:30
Bonjour

Si tu n'es pas obligé de faire une macro et en fonction des données que tu as transmis (progression 5 en5 de la hauteur)
https://www.cjoint.com/?3ddoDOUNMKC
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
3 mars 2011 à 14:47
ET si tu veux absolument du VBA: fonction personnalisée avec traduction anglaise de la formule

Function tester_masse(h1m1 As Range, H0 As Long, M0 As Long) As Boolean
    tester_masse = Application.VLookup(Application.RoundUp(H0, -2), h1m1, 2, 0) < M0
End Function


dans la pièce jointe
=tester_masse(A2:B11;D2;E2)
0