Chercher une valeur dans un tableau excel
funbreizhou
Messages postés
89
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
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 -
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-
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)
-
