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 !
A voir également:
- Chercher une valeur dans un tableau excel
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
Bonjour,
Je ne suis pas sur de comprendre votre demande:
Essayons ceci :
Cdt
Info
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
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
dans la pièce jointe
=tester_masse(A2:B11;D2;E2)
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)
