Listbox conditonnelle

[julien34]

Bonjour,

Je m'adresse à vous ce jour car confronté à un problème.

Je m'explique....

J'ai un formulaire en feuil 1 dont les infos sont renvoyées en feuil2 (base).
Pour chaque client, il est stipulé s'il faut effectuer une relance et a quelle date. Seulement certains clients n'ont pas besoin de relance, ils sont à jour.

Ma question est la suivante:
Est ce possible d'afficher une listbox (via bouton), me permettant de montrer uniquement les clients qui ont besoin d’être relancés (histoire d'avoir un bouton "consulter la liste des taches")

J’espère avoir été clair. Pas facile à expliquer.
D'avance merci
Julien

 

[julien34]

Re : Listbox conditonnelle

Merci bcp Yaloo
C'est parfait !

A+

 

[julien34]

Re : Listbox conditonnelle

Bonsoir Yaloo, Le forum

Niquel pour le format spécial sur les dates
J'ai utilisé le code de l'userform 2 pour récupérer les données. à savoir

Private Sub CommandButton1_Click()
Dim Var As Byte
Dim REP
Dim r
'Feuil1.Range("G2") = var
    Var = ListView1.SelectedItem
    REP = ListView1.SelectedItem '.SubItems(0) 'N° Dossier selectionné
    Set r = Feuil2.Range("A:A").Find(REP) 'Recherche N° Dossier dans la base
    If r Is Nothing Then 'Si N° Dossier pas trouvé alors message
    MsgBox "La dossier " & REP & " n'a pas été trouvé"
    Exit Sub 'on sort du code
    End If
    i = r.Row 'r étant la recherche dans la base    Row étant le numéro de ligne du N° recherché
  ' N° Dossier
  Feuil1.Range("G2") = Var
  'Feuil1.Range("G2") = Feuil2.Cells(i, 1)
  'Données Client
  Feuil1.Range("B5") = Feuil2.Cells(i, 2)
  Feuil1.Range("F5") = Feuil2.Cells(i, 3)
  Feuil1.Range("T5") = Feuil2.Cells(i, 4)
  Feuil1.Range("AD5") = Feuil2.Cells(i, 5)
  Feuil1.Range("AO5") = Feuil2.Cells(i, 6)
  Feuil1.Range("BA5") = Feuil2.Cells(i, 7)
  Feuil1.Range("BF5") = Feuil2.Cells(i, 8)
  'Données Véhicule 1 ère ligne
  Feuil1.Range("B9") = Feuil2.Cells(i, 9)
  Feuil1.Range("H9") = Feuil2.Cells(i, 10)
  Feuil1.Range("Q9") = Feuil2.Cells(i, 11)
  Feuil1.Range("X9") = Feuil2.Cells(i, 12)
  Feuil1.Range("AD9") = Feuil2.Cells(i, 13)
  Feuil1.Range("AJ9") = Feuil2.Cells(i, 14)
  Feuil1.Range("AP9") = Feuil2.Cells(i, 15)
  Feuil1.Range("AV9") = Feuil2.Cells(i, 16)
  Feuil1.Range("AZ9") = Feuil2.Cells(i, 17)
  Feuil1.Range("BF9") = Feuil2.Cells(i, 18)
  Feuil1.Range("BL9") = Feuil2.Cells(i, 19)
  Feuil1.Range("BP9") = Feuil2.Cells(i, 20)
  'Données Véhicule 2 ème ligne
  Feuil1.Range("B12") = Feuil2.Cells(i, 21)
  Feuil1.Range("E12") = Feuil2.Cells(i, 22)
  Feuil1.Range("K12") = Feuil2.Cells(i, 23)
  Feuil1.Range("Q12") = Feuil2.Cells(i, 24)
  Feuil1.Range("X12") = Feuil2.Cells(i, 25)
  Feuil1.Range("AD12") = Feuil2.Cells(i, 26)
  Feuil1.Range("AJ12") = Feuil2.Cells(i, 27)
  Feuil1.Range("AP12") = Feuil2.Cells(i, 97)
  'Données Conditions commerciales
  Feuil1.Range("B16") = Feuil2.Cells(i, 28)
  Feuil1.Range("I16") = Feuil2.Cells(i, 29)
  Feuil1.Range("R16") = Feuil2.Cells(i, 30)
  Feuil1.Range("Z16") = Feuil2.Cells(i, 31)
  'Données Conditions Tarifaires 1ère ligne
  Feuil1.Range("K20") = Feuil2.Cells(i, 32)
  Feuil1.Range("S20") = Feuil2.Cells(i, 33)
  'Données Conditions Tarifaires 2ème ligne
  Feuil1.Range("K22") = Feuil2.Cells(i, 42)
  Feuil1.Range("S22") = Feuil2.Cells(i, 43)
  'Données Conditions Tarifaires 3ème ligne
  Feuil1.Range("K24") = Feuil2.Cells(i, 52)
  Feuil1.Range("S24") = Feuil2.Cells(i, 53)
  'Données Conditions Tarifaires 4ème ligne
  Feuil1.Range("K26") = Feuil2.Cells(i, 62)
  Feuil1.Range("S26") = Feuil2.Cells(i, 63)
  'Données Suivi
  Feuil1.Range("B32") = Feuil2.Cells(i, 82)
  Feuil1.Range("K32") = Feuil2.Cells(i, 83)
  Feuil1.Range("P32") = Feuil2.Cells(i, 84)
  Feuil1.Range("U32") = Feuil2.Cells(i, 85)
  Feuil1.Range("Z32") = Feuil2.Cells(i, 86)
  Feuil1.Range("AE32") = Feuil2.Cells(i, 87)
  Feuil1.Range("AJ32") = Feuil2.Cells(i, 88)
  Feuil1.Range("AM32") = Feuil2.Cells(i, 89)
  Feuil1.Range("AR32") = Feuil2.Cells(i, 90)
  Feuil1.Range("AX32") = Feuil2.Cells(i, 91)
  Feuil1.Range("BC32") = Feuil2.Cells(i, 92)
  Feuil1.Range("BH32") = Feuil2.Cells(i, 93)
  Feuil1.Range("BK32") = Feuil2.Cells(i, 94)
  'Bloc-notes
  Feuil1.Range("B35") = Feuil2.Cells(i, 96)
 'Date creation dossier
  Feuil1.Range("L2") = Feuil2.Cells(i, 98)
  'Coordonnées client
  Feuil1.Range("B41") = Feuil2.Cells(i, 99)
  Feuil1.Range("R41") = Feuil2.Cells(i, 100)
  Feuil1.Range("AA41") = Feuil2.Cells(i, 101)
  'Etat dossier
  Feuil1.Range("AK41") = Feuil2.Cells(i, 102)
  Feuil1.Range("AS41") = Feuil2.Cells(i, 103)
  Feuil1.Range("AX41") = Feuil2.Cells(i, 104)
    
  Feuil1.Range("B5").Select
Unload Me 'Ferme la boite de dialogue
Application.ScreenUpdating = True

End Sub

Le code plante sur

 Var = ListView1.SelectedItem

Help please !
Merci
Julien

 

[Yaloo]

Re : Listbox conditonnelle

Bonsoir Julien, le forum,

C'est parce que j'ai mis cette ligne là dans UserForm1_Initialize, pour mettre le OCC avant le numéro de dossier.

.ListItems.Add , , Format(Feuil2.Cells(li, 1).Value, """OCC""000")

Pour que ça fonctionne remplace cette ligne par :

.ListItems.Add , , Feuil2.Cells(li, 1).Value

A+

Bonne soirée

 

[julien34]

Re : Listbox conditonnelle

Bonjour Yaloo, le forum,

Premier pb réglé (format OCC )! merci

Par ailleurs, le format que tu m'as mis pr les dates ne fonctionne pas (exemple. change la date de création de dossier pr "ALOKI" dossier n°1 et mets à jour. Tu verras ds les taches que les format n'apparait plus.

Puis les dates dans taches ne sont pas triées par ordre chronologique malgré le code pour!

Si tu peux jeter un œil!

D'avance merci,
Julien

 

[Yaloo]

Re : Listbox conditonnelle

Premier pb réglé (format OCC )! merci

--> OK

Par ailleurs, le format que tu m'as mis pr les dates ne fonctionne pas (exemple. change la date de création de dossier pr "ALOKI" dossier n°1 et mets à jour. Tu verras ds les taches que les format n'apparait plus.

Le format des dates n'a été mis que pour les dates de relance dans "Taches" et non sur les dates de création de dossier.

Puis les dates dans taches ne sont pas triées par ordre chronologique malgré le code pour!

Il faut cliquer sur l'entête de la colonne date pour mettre par ordre chronologique.

En espérant avoir répondu à tes questions....

Yaloo

 

[julien34]

Re : Listbox conditonnelle

Re yaloo,

Ordre chronologique OK
Par contre format des dates ne fonctionne pas dans "taches" sur les dates de relance

Dans l'attente
A+

 

[Yaloo]

Re : Listbox conditonnelle

Salut Julien, le forum,

Chez moi ça fonctionne.

Si la date de relance est passée ou aujourd'hui alors la date est en gras dans l'userform, si la date est après aujourd'hui donc à partir de demain dans ce cas là la date est au format normal.

A+

 

[julien34]

Re : Listbox conditonnelle

Re Yaloo,

Ok je n'avais pas compris quand intervenaient les formats.
C'est plus clair maintenant!
Merci

A+

 

[Yaloo]

Re : Listbox conditonnelle

Re

Tu peux aussi créer une date de relance à 15 jours ou 1 mois, en créant par rapport à ta date de création + 15 ou +30.

Lorsque tu envoies tes données dans ta base, au lieu de rentrer ta date de relance, tu peux mettre :

Feuil2.Cells(i, 106) = Feuil1.Range("L2") + 15 'ou +30

Pour "nouveau", à la fin de ton code, cela te mets automatiquement ta date du jour :

Feuil1.Range("L2") = Now
Feuil1.Range("B5").Select
End Sub

A+

 

[julien34]

Re : Listbox conditonnelle

Pour nouveau => très bonne idée. Je l'ai mise en place

Pour la date de relance elle est crée directement dans le formulaire.
Date de relance=Date de création +5

Merci
A+

 

[Yaloo]

Re : Listbox conditonnelle

OK

Pour que ta relance soit plus visible tu peux mettre :

.ListItems(.ListItems.Count).ListSubItems(6).ForeColor = RGB(255, 0, 0)

Ca te mettra ton code en rouge, tu ne risque pas de l'oublier.

A+

 

[julien34]

Re : Listbox conditonnelle

Re yaloo,

Une toute autre question
Je me demandais s'il existe un code qui permette à n'importe quel utilisateur à qui j'enverrais ce fichier par exemple qu'il me le renvoit par mail automatiquement. Je connais le code via outlook pas de pbs!

Mais là je cherche autre chose !
Il rentrerait son adresse mail, objet, etc dans un Userform (gmail,hotmail,free etc.......) et je le réceptionne dans ma boite. Tout ça sans passer par outlook ou tout autre logiciel de messagerie. On estime ici que l’utilisateur dispose d'un pc, excel et d'une connexion internet

Cela te semble t'il possible et réalisable ?

A+ Yaloo

 

[Yaloo]

Re : Listbox conditonnelle

Oui, j'utilise CDO pour le faire, il faut que je regarde un peu plus ton fichier et essaie de t'envoyer qq chose.

A+

PS as tu vu mon post #56

 

[julien34]

Re : Listbox conditonnelle

Ok.
Le code sera il propre au fichier à proprement dit?

Pour tout t’expliquer je souhaiterais que ce code pour "envoi mail" se situe sur mon devis interactif
Le client à la fin clique sur valider et je le reçois par mail....

 

[julien34]

Re : Listbox conditonnelle

Sinon j'ai trouvé ça sur en fouillant un peu.
Ca peut peut être te donner des idées

a+