Dans le menu Achat, avec l'aide de combobox, je sélectionne, les listbox
affiches des données et dans les 3 textbox j'ajoute d'autres informations.
Je veux donc que lorsque je clique sur Valider, le code trouve la ligne en
fonction du choix dans les combobox et inscrive l'information ajouté dans
les textbox en H, I, et J.
Comment faire ?
Voici le lien pour mon fichier : http://cjoint.com/?lybgloIlUB
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Ajoute le code suivant avant d'alimenter ton tableau de données. Je ne me suis pas occupé de la colonne K, car je n'ai pas compris par quoi elle était alimentée. D'autre part, en cas de doublon, j'ai seulement mis "exit sub". A toi de mettre ce que tu veux faire dans ce cas-là. Enfin, je n'ai pas testé le code.
Dim Res As String, c As Range, Plage As Range Dim Compar As String Set Plage = Range("A1", Range("A65536").End(xlUp)) Res = ComboBox1 & ComboBox2 & ComboBox3 & _ ListBox1 & ListBox2 & ListBox3 & _ ListBox4 & TextBox1 & TextBox2 & TextBox3 For Each c In Plage Compar = c.Value & c.Offset(0, 1).Value & c.Offset(0, 2).Value _ & c.Offset(0, 3).Value & c.Offset(0, 4).Value & _ c.Offset(0, 5).Value & c.Offset(0, 6).Value If Res = Compar Then Exit Sub Next c
Cordialement. Daniel "François" a écrit dans le message de news: Qz9hf.91791$u%
Bonsoir Daniel et MichDenis,
Excusez mes délais pour vous répondre.
Donc, je ne veux pas de doublons en A:G et en K.
Dans le menu Achat, avec l'aide de combobox, je sélectionne, les listbox affiches des données et dans les 3 textbox j'ajoute d'autres informations. Je veux donc que lorsque je clique sur Valider, le code trouve la ligne en fonction du choix dans les combobox et inscrive l'information ajouté dans les textbox en H, I, et J.
Comment faire ?
Voici le lien pour mon fichier : http://cjoint.com/?lybgloIlUB
Merci pour votre aide.
François
Bonjour.
Ajoute le code suivant avant d'alimenter ton tableau de données. Je ne me
suis pas occupé de la colonne K, car je n'ai pas compris par quoi elle était
alimentée.
D'autre part, en cas de doublon, j'ai seulement mis "exit sub". A toi de
mettre ce que tu veux faire dans ce cas-là. Enfin, je n'ai pas testé le
code.
Dim Res As String, c As Range, Plage As Range
Dim Compar As String
Set Plage = Range("A1", Range("A65536").End(xlUp))
Res = ComboBox1 & ComboBox2 & ComboBox3 & _
ListBox1 & ListBox2 & ListBox3 & _
ListBox4 & TextBox1 & TextBox2 & TextBox3
For Each c In Plage
Compar = c.Value & c.Offset(0, 1).Value & c.Offset(0, 2).Value _
& c.Offset(0, 3).Value & c.Offset(0, 4).Value & _
c.Offset(0, 5).Value & c.Offset(0, 6).Value
If Res = Compar Then Exit Sub
Next c
Cordialement.
Daniel
"François" <hohoho@itsachristmas.time> a écrit dans le message de news:
Qz9hf.91791$u%2.1321679@weber.videotron.net...
Bonsoir Daniel et MichDenis,
Excusez mes délais pour vous répondre.
Donc, je ne veux pas de doublons en A:G et en K.
Dans le menu Achat, avec l'aide de combobox, je sélectionne, les listbox
affiches des données et dans les 3 textbox j'ajoute d'autres informations.
Je veux donc que lorsque je clique sur Valider, le code trouve la ligne en
fonction du choix dans les combobox et inscrive l'information ajouté dans
les textbox en H, I, et J.
Comment faire ?
Voici le lien pour mon fichier : http://cjoint.com/?lybgloIlUB
Bonjour. Ajoute le code suivant avant d'alimenter ton tableau de données. Je ne me suis pas occupé de la colonne K, car je n'ai pas compris par quoi elle était alimentée. D'autre part, en cas de doublon, j'ai seulement mis "exit sub". A toi de mettre ce que tu veux faire dans ce cas-là. Enfin, je n'ai pas testé le code.
Dim Res As String, c As Range, Plage As Range Dim Compar As String Set Plage = Range("A1", Range("A65536").End(xlUp)) Res = ComboBox1 & ComboBox2 & ComboBox3 & _ ListBox1 & ListBox2 & ListBox3 & _ ListBox4 & TextBox1 & TextBox2 & TextBox3 For Each c In Plage Compar = c.Value & c.Offset(0, 1).Value & c.Offset(0, 2).Value _ & c.Offset(0, 3).Value & c.Offset(0, 4).Value & _ c.Offset(0, 5).Value & c.Offset(0, 6).Value If Res = Compar Then Exit Sub Next c
Cordialement. Daniel "François" a écrit dans le message de news: Qz9hf.91791$u%
Bonsoir Daniel et MichDenis,
Excusez mes délais pour vous répondre.
Donc, je ne veux pas de doublons en A:G et en K.
Dans le menu Achat, avec l'aide de combobox, je sélectionne, les listbox affiches des données et dans les 3 textbox j'ajoute d'autres informations. Je veux donc que lorsque je clique sur Valider, le code trouve la ligne en fonction du choix dans les combobox et inscrive l'information ajouté dans les textbox en H, I, et J.
Comment faire ?
Voici le lien pour mon fichier : http://cjoint.com/?lybgloIlUB
