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

- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 29 mai 2013 à 11:46
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
Afficher la suite 

7 réponses

Meilleure réponse
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 216 internautes nous ont dit merci ce mois-ci

Commenter la réponse de EnguerrandP
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
213
0
Merci
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.
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
213
0
Merci
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.
Commenter la réponse de ucfoutu
Commenter la réponse de EnguerrandP
0
Merci
Tu veut dire la derniere valeur de N qui correspond a la derniere selection faite dans la listbox ?
Commenter la réponse de EnguerrandP
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
213
0
Merci
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.
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
213
0
Merci
________________________
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.
Commenter la réponse de ucfoutu