Rechercher un nombre dans une matrice

Bonjour le forum

Voici un fichier qui est un barème

Les nombres de la première colonne vont du plus petit au plus grand

et sur la première ligne les nombres vont de 1 à 5

Je suis entrain de chercher une fonction en VBA me permettant de trouver le nombre

qui se trouve a l'intersection du nombre de la colonne et celui de la ligne.

comme exemple en saisissant 100 000 et 2 trouver 470

fichier joint

Merci par avance de votre aide

19test.xlsx (7.16 Ko)

Bonjour

comme exemple en saisissant 100 000 et 2 trouver 470

Tu veux les saisir où ces deux nombres ? dans deux cellule en dehors du tableau ?

A te relire

Merci Dan de ta réponse rapide

je saisis les nombres en dehors la feuille et probablement pour faire joli

à partir d'un formulaire

re,

je saisis les nombres en dehors la feuille

Dans une autre feuille du même fichier ??

Si formulaire, ce serait mieux d'avoir le fichier avec le formulaire sans quoi il faudra refaire le code VBA associé pour réaliser ta demande

Amicalement

Bonjour Dan

Voici un petit fichier qui pourrait être utile

Merci d'avance

Bonne journée

13test.xlsm (14.92 Ko)

re,

Vois le fichier joint dans lequel j'ai remplacé le textbox par des combo dans ton USF.

De là tu choisis dans la liste des deux combo puis recherche ta valeur en cliquant sur le bouton rechercher

Si ok, merci de ne pas omettre lors de ta réponse de cloturer le fil en cliquant sur le v vert à coté du bouton EDITER

Amicalement

19test1.xlsm (20.63 Ko)

Je te remercie Dan. C 'est déjà très bien

je pourrais faire avec.

Sinon je voudrais aller un peu loin si possible en renvoyant un message d'erreur

si l'un ou l'autre des deux nombres saisi n'existe pas dans la matrice

A+

re,

Sinon je voudrais aller un peu loin si possible en renvoyant un message d'erreur

si l'un ou l'autre des deux nombres saisi n'existe pas dans la matrice

Dans l'USF remplace le code par celui-ci après :

Private Sub CommandButton1_Click()
'Macro Dan pour BAHK le 22/02/13
Dim lg As Integer
Dim cl As Byte
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
With Sheets("Bareme")
    lg = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False).Row
    cl = .Range(Cells(1, 2), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).Find(ComboBox2.Value, LookIn:=xlValues, SearchOrder:=xlByColumns, MatchCase:=False).Column
End With
TextBox3 = Cells(lg, cl)
Else: MsgBox "Veuillez compléter les deux combobox !!"
End If
End Sub

Amicalement

Slt Dan j'ai accepté ta réponse qui me va bien

Je te souhaite un bon Weekend end

A très bientôt

Rechercher des sujets similaires à "rechercher nombre matrice"