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
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
A voir également:
- Chercher une valeur dans un tableau excel
- Tableau croisé dynamique - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Liste déroulante 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
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
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
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
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
3 mars 2011 à 14:47
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)