Bonjour,

Je débute dans ce domaine et j'avoue que j'ai un peu de mal, on m'a demandé de créer une macro qui :

Un fichier base de données existe avec 2 colonnes, première N° article, seconde N° machine
Par rapport à ce fichier, créer un autre fichier ou dans une case saisir une valeur n° article et dans la case à coté obtenir le résultat de la colonne N° machine.

J'ai commencé quelque chose ou j'arrive boucler sur la 1e colonne et renvoyer un résultat, mais comment obtenir la valeur qui se trouve à côté de celle recherché ?
J'ai pensé à récupérer la position de la cellule dans une variable et faire un +1 au niveau de la colonne ?
suis-je dans la bonne direction d'après vous ?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub recherche()
'Définition des variables
Dim saisie As Long 
Dim monRange As Range
 
saisie = Feuil1.saisie_moule.Value
 
For Each monRange In ActiveSheet.Range("A2:A25") 'boucle sur la colonne A de 2 à 25
 
 If saisie = monRange.Value Then Feuil1.result_moule.Value = "ok" Else Feuil1.result_moule.Value = "nok"
 
 Next
End Sub