Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Listbox conditonnelle

julien34

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

Code:
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
Code:
 Var = ListView1.SelectedItem

Help please !
Merci
Julien
 

Yaloo

XLDnaute Barbatruc
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.

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

Pour que ça fonctionne remplace cette ligne par :

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

A+

Bonne soirée
 

julien34

XLDnaute Occasionnel
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
 
Dernière édition:

Yaloo

XLDnaute Barbatruc
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
 

Yaloo

XLDnaute Barbatruc
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+
 

Yaloo

XLDnaute Barbatruc
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 :

VB:
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 :

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

A+
 
Dernière édition:

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

OK

Pour que ta relance soit plus visible tu peux mettre :

VB:
.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

XLDnaute Occasionnel
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
 

julien34

XLDnaute Occasionnel
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

XLDnaute Occasionnel
Re : Listbox conditonnelle

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

a+
 

Pièces jointes

  • Envoi mail.xlsm
    23.3 KB · Affichages: 41
  • Envoi mail.xlsm
    23.3 KB · Affichages: 45
  • Envoi mail.xlsm
    23.3 KB · Affichages: 47

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…