Discussion :

[jbal57]

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

[78chris]

Bonjour

La fonction RECHERCHEV fait cela très bien et s'adaptera en cas de changement de N°.

Pourquoi VBA ?

[jbal57]

Ce fichier est pour un responsable un peu réservé côté travail.. il veut un truc simple avec 2 cases voila pourquoi j'ai besoin de ça.
A savoir qu'un article peu avoir été monté sur plusieurs machines, donc résultats multiples.

est-ce qu'avec "J'ai pensé à récupérer la position de la cellule dans une variable et faire un +1 au niveau de la colonne ?" je suis dans la bonne direction ou je m’égare complet ?

Merci

[BENNASR]

bonjour
si j'ai compris t'as un base de donnée en colonne A le code article et en colonne B la machine qui recevra cette article, et chaque article peut être monté sur plusieurs machines ... dans ce cas un tableau croisé dynamique fait l'affaire avec excellence
mais si t'insiste sur VBA et vu que chui débutant ds le domaine... à mon avis t'as besoin d’insérer un userform avec un textbox un bouton de commande et un listbox
dans le textbox tu saisi le code recherché et tu clique sur la commande recherché et tu aura ton résultat (multiple ou unique dans la listbox) (voir capture écran)
le code à ajouter au bouton rechercher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
Dim plage As Range
Set plage = Sheets("feuil1").Range("A2:A" & [A65536].End(xlUp).Row)
codrecherché = CDbl(UserForm1.TextBox1.Value)
 i = 0
For Each Cell In plage
 If Cell.Value = codrecherché Then
    UserForm1.ListBox1.ColumnCount = 3
    UserForm1.ListBox1.ColumnWidths = "50;70;100"
    UserForm1.ListBox1.AddItem
    UserForm1.ListBox1.Column(0, i) = Cell.Address
    UserForm1.ListBox1.Column(1, i) = Cell(1, 1)
    UserForm1.ListBox1.Column(2, i) = Cell(1, 2)
    i = i + 1
 End If
    Next Cell
End Sub

bon courage

[jbal57]

Parfait c'est exactement ce dont j'avais besoin. merci beaucoup BENNASR