Rajouter une condition

Bonjour Forum,

Voila j'ai un fichier qui a été fait par bouben (doit être en vacance ), et j'aimerais des modifs dessus, rajouter une condition.

Ce fichier tri par groupe de date, chaque nom et va chercher et calculer la différence entre le prix le plus récent trouvé avec le prix précédant avec le nom qui correspond, et faire la soustraction avec un affichage dans une ListBox qui est géré par une combobox pour les dates.

Seulement j'aimerais rajouter une condition pour qu'il fasse ce calcul, c'est que dans la colonne E (que j'ai rajouté) le véhicule soit a vendre, s'il n'est pas a vendre alors on ne calcul rien et on continue ainsi pour les autres noms.

Je joins le fichier

Merci de vôtre aide.

Bonjour,

Un test à voir si cela correspond

Merci M12 ça fonctionne nickel c'est exactement ça

Juste un petit dernier détail avant je ne pouvais mettre une ListView (erreur windows), maintenant que ça fonctionne à la place de la ListBox, j'aimerais une Listview ça doit ce passer juste ici dans la macro Recherche pour le reste je me débrouillerais. (les entêtes)

If dMtA <> 0 Then
            ListBox1.AddItem oMarque.Marque

            ListBox1.List(ListBox1.ListCount - 1, 1) = sMtPrec
            ListBox1.List(ListBox1.ListCount - 1, 2) = sTopPrec
            ListBox1.List(ListBox1.ListCount - 1, 3) = sMtA
            ListBox1.List(ListBox1.ListCount - 1, 4) = sTopA
            ListBox1.List(ListBox1.ListCount - 1, 5) = sVariation
        End If

Et un autre point si je met une autre feuille Feuil1 en sachant que la Feuil4 c'est la feuille nommé Base avec le bouton, je met le bouton qui ouvre le user form sur la feuil1 cela ne fonctionne plus ! C'est quoi l'astuce pour que cela fonctionne ? En faite il faut que la feuil4 (Base) soit ouverte et c'est un peu ennuyant si je met le bouton ailleurs.

J'ai fais ça mais est ce la bonne solution ? Et le 0# c'est pour avoir le UserForm en mode modal

Private Sub CommandButton2_Click()
Sheets("Base").Select
UserForm3.Show 0#
End Sub

Bonjour,

Ci-joint la toute petite modification ...

merci James007 ça fonctionne pour le bouton, mais t'as fais quoi ? je cherche mais ne trouve pas a part le feuil1 par Sheet1 ça serait ça le petit détail qui change tous ?

... euh ...

Je le sais pas moi-même ....

Pourtant ... pour te faciliter le repérage .... dans ton code....tu devrais trouver :

'''''''''''''''''''''''''''''''''''''Pour les Voitures A VENDRE '''''''''''''''''''''''''''
        If oSh.Cells(iLig, 5) = "A_VENDRE" Then

Comme tu le vois ... rien de vraiment caché ...

AH oui fallait le voir le oSh >>> ça faisais deux heures que je cherchais pourquoi ça marchais pas avec le bouton ailleurs que sur la feuille Base Merci James007

Manque plus que cette fichue ListView et le problème sera réglé

Une listBox c'est bien mais la ListView c'est mieux

If dMtA <> 0 Then
            ListBox1.AddItem oMarque.Marque

            ListBox1.List(ListBox1.ListCount - 1, 1) = sMtPrec
            ListBox1.List(ListBox1.ListCount - 1, 2) = sTopPrec
            ListBox1.List(ListBox1.ListCount - 1, 3) = sMtA
            ListBox1.List(ListBox1.ListCount - 1, 4) = sTopA
            ListBox1.List(ListBox1.ListCount - 1, 5) = sVariation
        End If

Re,

Tu dois savoir que la ListView n'est pas un contrôle standard ....

Du coup, je pense même que si ton ordi est en 64 bit ... plus rien ne fonctionnera ...

oui je mettrais la ListView adapté a mon excel mais le code reste le même peu importe le contrôle ListView

Re,

Si tu en as vraiment envie ... de jouer avec ce contrôle, tu peux aller voir ce tuto :

https://www.youtube.com/watch?v=8RXoqh9lf1c

Have Fun ....

Je l'ai déjà vu ce tuto j'ai essayé d'adapter mais ça bloque d'entrée sur ici

ListBox1.AddItem oMarque.Marque

j'avais mis un truc du genre mais ça doit pas être la bonne formule.

ListView1.ListItems.Add oMarque.Marque

Re,

Pour te permettre d'avoir un point de départ ... à tester ... ( car je ne l'ai pas fait ...)

Dim li As ListItem
Dim I
          With ListView1
             .View = lvwReport
              With .ColumnHeaders
                 .Clear
                 .Add , , "Marque", 40
                 .Add , , "Prix Ancien", 30
                 .Add , , "Top", 10
                 .Add , , "Prix Nouveau", 30
                 .Add , , "Top", 10
                 .Add , , "Différence", 20
              End With
              For I = 1 To mcolMarques.Count
                  Set li = .ListItems.Add(, , mcolMarques(I).Marque)
                  li.SubItems(1) = sMtPrec
                  li.SubItems(2) = sTopPrec
                  li.SubItems(3) = sMtA
                  li.SubItems(4) = sTopA
                  li.SubItems(5) = sVariation
              Next I
          End With

J'espère que cela pourra t'aider ...

Merci bon a première vu ça fonctionne pas complètement la variable Dim I pas déclaré j'imagine que c'est Dim I As Integer ?

Et idem pour ListItems ça bloque sur cette ligne ou il y a .ListItems.Add