Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Doublons

Doublons

10 réponses
Avatar
Francois
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
Daniel
Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de news:
aUghf.9$
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.



Avatar
François
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en redonne
des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de news:
aUghf.9$
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.







Avatar
François
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de news:
fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de news:
aUghf.9$
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.











Avatar
Daniel
Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de news:
fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de news:
aUghf.9$
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.















Avatar
François
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant : Membre de
méthode ou de données introuvable. Le Me.Combobox1.ListIndex cause problème.
C'est la première que je vois ce message d'erreur ? Je ne sais donc pas
comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de news:
fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de news:
aUghf.9$
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.



















Avatar
Daniel
Bonjour.
Ca, ce n'est pas grave, tu as dû changer le nom de tes comboboxes Combo1 au
lieu de combobox1 etc...
Par contre, j'ai du mal à comprendre ton appli. Pas moyen de saisir ou de
choisir quoi que ce soit dans Combo1 ?
J'ai modifié le code un peu au hasard :

Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant

With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.Combo1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Application.EnableEvents = True
.Range("a" & Ligne) = Me.ComboBox1
.Range("b" & Ligne) = Me.ComboBox2
.Range("c" & Ligne) = Me.ComboBox3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
Application.EnableEvents = False
End If
End With

Dis-moi si je suis à côté de la plaque.
Daniel
"François" a écrit dans le message de news:
qYNhf.17180$
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant : Membre de
méthode ou de données introuvable. Le Me.Combobox1.ListIndex cause
problème. C'est la première que je vois ce message d'erreur ? Je ne sais
donc pas comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de news:
fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de
news: aUghf.9$
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.























Avatar
François
Bonsoir Daniel,

Pour la colonne A il est normal qu'il n'y ait rien à sélectionner car j'ai
effacé plus de 5000 lignes de données pour réduire le fichier.

Suite aux mes essais, le code produit un doublon en plus de convertir la
donnée contenu dans le combo2 en texte plutôt qu'en nombre.

Voici le lien pour que tu puisses tester toi-même :
http://cjoint.com/?lBc6hDhuXY

Merci beaucoup pour ton aide.

François


"Daniel" a écrit dans le message de news:

Bonjour.
Ca, ce n'est pas grave, tu as dû changer le nom de tes comboboxes Combo1
au lieu de combobox1 etc...
Par contre, j'ai du mal à comprendre ton appli. Pas moyen de saisir ou de
choisir quoi que ce soit dans Combo1 ?
J'ai modifié le code un peu au hasard :

Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant

With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.Combo1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Application.EnableEvents = True
.Range("a" & Ligne) = Me.ComboBox1
.Range("b" & Ligne) = Me.ComboBox2
.Range("c" & Ligne) = Me.ComboBox3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
Application.EnableEvents = False
End If
End With

Dis-moi si je suis à côté de la plaque.
Daniel
"François" a écrit dans le message de news:
qYNhf.17180$
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant : Membre
de méthode ou de données introuvable. Le Me.Combobox1.ListIndex cause
problème. C'est la première que je vois ce message d'erreur ? Je ne sais
donc pas comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de news:
fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de
news: aUghf.9$
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.



























Avatar
Daniel
Bonjour.
J'ai beaucoup de mal à tester, car je ne saisis pas complètement la logique
de l'appli.
Regarde le fichier que je te retourne :
http://cjoint.com/?lBqE2xzH6U
Daniel
"François" a écrit dans le message de news:
lp8if.41614$
Bonsoir Daniel,

Pour la colonne A il est normal qu'il n'y ait rien à sélectionner car j'ai
effacé plus de 5000 lignes de données pour réduire le fichier.

Suite aux mes essais, le code produit un doublon en plus de convertir la
donnée contenu dans le combo2 en texte plutôt qu'en nombre.

Voici le lien pour que tu puisses tester toi-même :
http://cjoint.com/?lBc6hDhuXY

Merci beaucoup pour ton aide.

François


"Daniel" a écrit dans le message de news:

Bonjour.
Ca, ce n'est pas grave, tu as dû changer le nom de tes comboboxes Combo1
au lieu de combobox1 etc...
Par contre, j'ai du mal à comprendre ton appli. Pas moyen de saisir ou de
choisir quoi que ce soit dans Combo1 ?
J'ai modifié le code un peu au hasard :

Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant

With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.Combo1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Application.EnableEvents = True
.Range("a" & Ligne) = Me.ComboBox1
.Range("b" & Ligne) = Me.ComboBox2
.Range("c" & Ligne) = Me.ComboBox3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
Application.EnableEvents = False
End If
End With

Dis-moi si je suis à côté de la plaque.
Daniel
"François" a écrit dans le message de news:
qYNhf.17180$
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant : Membre
de méthode ou de données introuvable. Le Me.Combobox1.ListIndex cause
problème. C'est la première que je vois ce message d'erreur ? Je ne sais
donc pas comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de
news: fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de
news: aUghf.9$
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.































Avatar
François
Bonsoir,

Cela crée encore un doublon ?
Snif.

Merci
"Daniel" a écrit dans le message de news:

Bonjour.
J'ai beaucoup de mal à tester, car je ne saisis pas complètement la
logique de l'appli.
Regarde le fichier que je te retourne :
http://cjoint.com/?lBqE2xzH6U
Daniel
"François" a écrit dans le message de news:
lp8if.41614$
Bonsoir Daniel,

Pour la colonne A il est normal qu'il n'y ait rien à sélectionner car
j'ai effacé plus de 5000 lignes de données pour réduire le fichier.

Suite aux mes essais, le code produit un doublon en plus de convertir la
donnée contenu dans le combo2 en texte plutôt qu'en nombre.

Voici le lien pour que tu puisses tester toi-même :
http://cjoint.com/?lBc6hDhuXY

Merci beaucoup pour ton aide.

François


"Daniel" a écrit dans le message de news:

Bonjour.
Ca, ce n'est pas grave, tu as dû changer le nom de tes comboboxes Combo1
au lieu de combobox1 etc...
Par contre, j'ai du mal à comprendre ton appli. Pas moyen de saisir ou
de choisir quoi que ce soit dans Combo1 ?
J'ai modifié le code un peu au hasard :

Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant

With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.Combo1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Application.EnableEvents = True
.Range("a" & Ligne) = Me.ComboBox1
.Range("b" & Ligne) = Me.ComboBox2
.Range("c" & Ligne) = Me.ComboBox3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
Application.EnableEvents = False
End If
End With

Dis-moi si je suis à côté de la plaque.
Daniel
"François" a écrit dans le message de news:
qYNhf.17180$
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant : Membre
de méthode ou de données introuvable. Le Me.Combobox1.ListIndex cause
problème. C'est la première que je vois ce message d'erreur ? Je ne
sais donc pas comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de
news: htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de
news: fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je t'en
redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de
news: aUghf.9$
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.



































Avatar
Daniel
Bonjour.
Peux-tu me donner un exemple de ce que tu saisis pour créer un doublon ?
Cordialement.
Daniel
"François" a écrit dans le message de news:
n5Qif.60956$
Bonsoir,

Cela crée encore un doublon ?
Snif.

Merci
"Daniel" a écrit dans le message de news:

Bonjour.
J'ai beaucoup de mal à tester, car je ne saisis pas complètement la
logique de l'appli.
Regarde le fichier que je te retourne :
http://cjoint.com/?lBqE2xzH6U
Daniel
"François" a écrit dans le message de news:
lp8if.41614$
Bonsoir Daniel,

Pour la colonne A il est normal qu'il n'y ait rien à sélectionner car
j'ai effacé plus de 5000 lignes de données pour réduire le fichier.

Suite aux mes essais, le code produit un doublon en plus de convertir la
donnée contenu dans le combo2 en texte plutôt qu'en nombre.

Voici le lien pour que tu puisses tester toi-même :
http://cjoint.com/?lBc6hDhuXY

Merci beaucoup pour ton aide.

François


"Daniel" a écrit dans le message de news:

Bonjour.
Ca, ce n'est pas grave, tu as dû changer le nom de tes comboboxes
Combo1 au lieu de combobox1 etc...
Par contre, j'ai du mal à comprendre ton appli. Pas moyen de saisir ou
de choisir quoi que ce soit dans Combo1 ?
J'ai modifié le code un peu au hasard :

Private Sub CmdValider_Click()
Dim An As Integer
Dim Tblo As Variant, Ligne As Long
Dim A As Variant
Dim S As String, Pattern As String
Dim Num As Variant

With Sheets("Inventaire")
Ligne = .Range("a65536").End(xlUp).Row
Tblo = .Range("a2:c" & Ligne)
If Me.Combo1.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End If
If Me.ComboBox2.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
If Me.ComboBox3.ListIndex <> -1 Then
A = Application.Match(ComboBox1.Value, Tblo, 0)
If Not IsError(A) Then
Ligne = A + 1
End
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
Application.EnableEvents = True
.Range("a" & Ligne) = Me.ComboBox1
.Range("b" & Ligne) = Me.ComboBox2
.Range("c" & Ligne) = Me.ComboBox3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
Application.EnableEvents = False
End If
End With

Dis-moi si je suis à côté de la plaque.
Daniel
"François" a écrit dans le message de news:
qYNhf.17180$
Bonsoir,

Lorsque je clique sur Valider j'ai le message d'erreur suivant :
Membre de méthode ou de données introuvable. Le Me.Combobox1.ListIndex
cause problème. C'est la première que je vois ce message d'erreur ? Je
ne sais donc pas comment le corriger. :((

Voici le fichier modifié pour tester : http://cjoint.com/?lAbwykXnbz

Merci encore une fois.

François

"Daniel" a écrit dans le message de news:

Bonsoir.
Si tu parles de mon code, c'était fait pour... Quel est le problème ?
Cordialement.
Daniel
"François" a écrit dans le message de
news: htLhf.16410$
Bonjour Daniel,

Cela ne fonctionne pas lors de la validation des données ?

François

"François" a écrit dans le message de
news: fLuhf.8253$
Bonsoir Daniel,

Oups, il est vrai que je ma colonne K n'est pas renseignée. Je vais
l'ajouter à mon userform et aura comme référence listbox5.

Demain je vais tester ton code que je dois ajouter au miens. Je
t'en redonne des nouvelles.

Merci de ton aide.

"Daniel" a écrit dans le message de news:

Je n'ai toujours pas trouvé ou tu renseignes la colonne K.
Peux-tu me le dire ?
Daniel
"Francois" a écrit dans le message de
news: aUghf.9$
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.