Affichez uniquement la premiere donnée Fermé

Question

Bonjour, je voudrais si qlq un pourrait m'aider a corriger mon code pour n'afficher que les données de la premiere date. 
Dans le fichier sample project, ci-attaché, j'ai créé un formulaire nommé  "replenichment" dont le bouton "enregistrez new unit Selling price" sert â enregistrer la valeur du  nouveau prix de vente unitaire â la date selectionnée et â toutes les dates qui suivent ,cad si on selectionne par exemple Date: le 20 mars, New Unit Selling price : 9, Product name: Produit 1, en appuyant sur "Enregistrez new unit selling price" il enregistre la valeur de 9,  du 20 au 31 Mars.. Et on sait le voir dans le textbox: "Affected dates" en appuyant le bouton "Refresh/affichez unit Selling price". Mais ce je veux est de modifier le code du bouton "Refresh/affichez unit Selling price". de sorte qu'il  n'affiche que la premiere date cad le 20 mars.
Voici le lien du fichier: 
https://cjoint.com/c/LCekLiuEo6q
Merci et â bientot.

Frenchie83 · Answer

Bonjour, Dans la macro "Private Sub ComboBox22_Change()" a cet emplacement: For co = 7 To 223 Step 7 If .Cells(li, co + 4) <> 0 Or .Cells(li, co + 6) <> 0 Then dat = .Cells(3, co).Value Me.ComboBox35.AddItem dat End If Next co il suffit d'ajouter "Exit for" pour sortir de la boucle For co = 7 To 223 Step 7 If .Cells(li, co + 4) <> 0 Or .Cells(li, co + 6) <> 0 Then dat = .Cells(3, co).Value Me.ComboBox35.AddItem dat Exit For End If Next co Cdlt

Affichez uniquement la premiere donnée

1 réponse

Discussions similaires

Newsletters