Probléme d'affichage dans mes textbox lorsque j'ai deux foix la meme valeur dansRésolu

Question

Bonjour , J'ai un probléme d'affichage dans mes textbox lorsque j'ai deux foix la même valeur dans ma Listbox. ' Appui sur la liste de produit : ' Private Sub Produit_C_Click() ' Permet de connaitre la ligne dans une listbox : ' If Produit_C.ListIndex <> -1 Then N = 1 + Produit_C.ListIndex End If N = N While (Worksheets("Contrat").Cells(N, 1).Value <> Produit_C.Value) N = N + 1 Wend Fournisseur_C.Value = Worksheets("Contrat").Cells(N, 2).Value Prix.Value = Worksheets("Contrat").Cells(N, 3).Value Qc.Value = Worksheets("Contrat").Cells(N, 4).Value Date_F.Value = Worksheets("Contrat").Cells(N, 5).Value Qa.Value = Worksheets("Contrat").Cells(N, 6).Value Worksheets("Contrat").Cells(N, 7).Value = Qc.Value - Qa.Value Qr.Value = Worksheets("Contrat").Cells(N, 7).Value N°Contrat.Value = Worksheets("Contrat").Cells(N, 8).Value End Sub' Appui sur la liste de produit : ' Private Sub Produit_C_Click() ' Permet de connaitre la ligne dans une listbox : ' If Produit_C.ListIndex <> -1 Then N = 1 + Produit_C.ListIndex End If N = N While (Worksheets("Contrat").Cells(N, 1).Value <> Produit_C.Value) N = N + 1 Wend Fournisseur_C.Value = Worksheets("Contrat").Cells(N, 2).Value Prix.Value = Worksheets("Contrat").Cells(N, 3).Value Qc.Value = Worksheets("Contrat").Cells(N, 4).Value Date_F.Value = Worksheets("Contrat").Cells(N, 5).Value Qa.Value = Worksheets("Contrat").Cells(N, 6).Value Worksheets("Contrat").Cells(N, 7).Value = Qc.Value - Qa.Value Qr.Value = Worksheets("Contrat").Cells(N, 7).Value N°Contrat.Value = Worksheets("Contrat").Cells(N, 8).Value End Sub Merci

EnguerrandP · Accepted Answer

merci

' Appui sur la liste de produit : '

Private Sub Produit_C_Click()

      R = 2 + Produit_C.ListIndex

      Fournisseur_C.Value = Worksheets("Contrat").Cells(R, 2).Value
      Prix.Value = Worksheets("Contrat").Cells(R, 3).Value
      Qc.Value = Worksheets("Contrat").Cells(R, 4).Value
      Date_F.Value = Worksheets("Contrat").Cells(R, 5).Value
      Qa.Value = Worksheets("Contrat").Cells(R, 6).Value
      Qr.Value = Worksheets("Contrat").Cells(R, 7).Value
      N°Contrat.Value = Worksheets("Contrat").Cells(R, 8).Value



      
End Sub

ucfoutu · Answer

Bonjour,
Je ne peux m'empêcher de me mettre à genoux, en adoration, devant les :
 N = N
(des fois que N pourrait valoir autre chose, hein ... )

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Et tu ne traites finalement qu'une seule valeur N : la toute dernière !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

EnguerrandP · Answer

Merci

EnguerrandP · Answer

Tu veut dire la derniere valeur de N qui correspond a la derniere selection faite dans la listbox ?

ucfoutu · Answer

Drôle de question !
Je vais te répondre plus clairement : tu ne traites qu'une seule valeur N, puisque tu ne traites pas en boucle 
Ne me dis pas que tu ne le "vois" pas !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Probléme d'affichage dans mes textbox lorsque j'ai deux foix la meme valeur dans

7 réponses

Votre réponse

Discussions similaires