"Lecture" de ligne

Bonjour,

Je suis en train de réaliser un projet informatique en vba, mais je rencontre quelques difficultés.

Je dispose d'une feuille de calcul, sur laquelle se trouve un tableau, avec dans une colonne, des références, et dans l'autre colonne, les libellés correspondant à ces références.

Sur une autre feuille de calcul je dois réaliser un devis avec notamment la référence et le libellé de la prestation.

Dans le programme que je dois réaliser, il faut juste entrer la référence, et le libellé doit s'afficher automatiquement en fonction de la référence.

Voici donc le début :

Code:

---

1 2	reference = InputBox("Entrez la référence", "SAISIE", "") Worksheets("Devis").Cells(24, 1).Value = reference

---

Le problème est que je ne sais pas comment faire en sorte que le libellé s'affiche automatiquement. Car pour cela il faudrait que le programme puisse "lire" la ligne correspondant à la référence, ainsi je pourrais continuer comme cela (?? étant la ligne de la référence)

Code:

---

1 2	libelle = Worksheets("Fichier prestations").Cells(??, 2).Value Worksheets("Devis").Cells(24, 2).Value = libelle

---

A moins que je fasse fausse route et qu'il existe un autre moyen ?

J'espère avoir été assez claire dans mes explications, et que vous pourrez m'aider.

Merci d'avance.

Bonjour,

la personne qui entre la référence, elle la connaît comment cette référence ?
y-en a t il beaucoup ?

On peut soit employer une listbox et lors de l'alimentation, on met en colonne 2 la référence.

On peut avec la référence entrée faire une recherche sur la feuille des référence pour trouver la désignation liée..

c'est une question de contexte, il faudrait en savoir un peu plus.

cordialement,

Didier

bonjour,

Code:

---

1 2 3

Set sh = Worksheets("Fichier prestations") ligne = Application.Match(reference, sh.Range("A:A"), 0) libelle = Worksheets("Fichier prestations").Cells(ligne, 2).Value

---

En fait il s'agit d'une entreprise qui réalise des prestations. Donc la personne qui réalise le devis est une personne de l'entreprise et connait donc les références des différentes prestations.
Il y a 20 prestations en tout.

Je précise que c'est un projet scolaire. Étant en DUT Gestion des Entreprises et des Administrations (GEA), nous faisons de l'informatique "basique", et nous n'avons vu que les bases de la programmation vba.

Résumé de ce que nous avons vu :
InputBox
MsgBox
Sheets
Worksheets
If_Endif
DoWhile_Loop
Sub_End sub
Function_End Function

Citation:

---

Envoyé par Ormonth

On peut soit employer une listbox et lors de l'alimentation, on met en colonne 2 la référence.

On peut avec la référence entrée faire une recherche sur la feuille des référence pour trouver la désignation liée..

---

Je pense que ce serait plutôt la deuxième solution, car nous n'avons jamais parlé de listbox en cours.
Mais est-il possible de le faire avec les éléments vus en cours et indiqués plus haut ?

Bonjour,

Bien ta réponse, au moins on a les éléments ;)

Clairement, moi je passerai par une listbox car en plus, ça évite toute erreur de saisie et c'est Mieux.
Mais as-tu le droit de le faire ?
Est-tu intéressé ? C'est très facile à ce niveau à maîtriser. (Mais s'éloigne clairement aussi de ce que tu as vu :roll: )

Pour garder ta piste, la Solution d'Isabelle est très adaptée !

à toi de dire, on te guidera dans le sens voulu ;)

cordialement,

Didier

Oui je veux bien que vous me détaillez la solution avec la listbox. Ça peut toujours être intéressant.

Effectivement la solution d'Isabelle fonctionne très bien.

Je pense que je vais prendre toute vos idées et je demanderais à ma prof si j'ai le droit de faire comme ca ou pas.

Merci beaucoup de votre aide en tout cas :ccool:

Bonjour,

A bien y réfléchir, je suis sur la mauvaise piste, en effet, si c’est un projet scolaire, il ne fait aucun doute que votre prof suit une certaine progression, donc ça ne serait pas très malin de la contourner (mea culpa) :roll:

Ce qui est possible pas contre, c’est que tu gardes trace de ce fil et que si vous n’étudiez pas la chose et passez à d’autres sujets, alors dans quelques temps tu crées un nouveau post en mettant la référence de celui-ci et tu dis que tu est toujours intéressé pas le sujet ;)

à bientôt,

Didier

bonjour skin57,

si tu choisi une solution avec ListBox,
contruit un Userform avec un control ListBox1 et un CommandButton,
et copie les codes suivant sur la page code du UserForm.

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() 'Valider Dim DerligneDev As Integer DerligneDev = Worksheets("Devis").Range("A65536").End(xlUp).Row + 1 Worksheets("Devis").Cells(DerligneDev, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) Worksheets("Devis").Cells(DerligneDev, 2).Value = ListBox1.List(ListBox1.ListIndex, 1) End Sub

---

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() With Me .ListBox1.RowSource = "Prestations!A1:B21" .ListBox1.ColumnCount = 2 .ListBox1.ColumnWidths = "30;20" End With End Sub

---