Listbox conditonnelle

julien34 · 14 Septembre 2011

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 · 19 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Yaloo,

Merci bcp
A+

julien34 · 19 Septembre 2011

Re : Listbox conditonnelle

Re Yaloo,

J'ai un message me disant "le transport a échoué dans sa connexion au serveur" !
Pour info j'ai utilisé des adresses du type gmail (pour mon adresse) et msn.com(celle du supposé client)

Yaloo · 19 Septembre 2011

Re : Listbox conditonnelle

Re

Ton adresse existe-elle vraiment ?

Celle de ton supposé client existe-elle aussi ?

Yaloo

julien34 · 19 Septembre 2011

Re : Listbox conditonnelle

Re,

Absolument ce sont deux adresses personnelles!
Julien

Yaloo · 19 Septembre 2011

Re : Listbox conditonnelle

Re,

Regarde ici, actuellement je n'ai pas trop de temps.

Il me semble avoir vu qq chose sur gmail mais je n'en suis pas sur. Si tu n'aimes pas trop l'anglais (comme moi) utilise le traducteur de google, tu peux traduire directement le lien.

A+

Yaloo · 19 Septembre 2011

Re : Listbox conditonnelle

Re,

Essaie en enlevant ces lignes là : (dans un 1er temps, tu peux juste mettre une ' )

VB:

iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp." & ch
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

J'avais ce problème lorsque je n'utilisais pas la même adresse que mon FAI.

A te relire

Yaloo

julien34 · 24 Septembre 2011

Re : Listbox conditonnelle

Re Yaloo, le forum,

Désolé je n'ai pas été averti de ta réponse ....par email !!
J'ai fais beaucoup d'essai concernant le mail et je pense que je vais laisser tomber parce que trop peu fiable selon le FAI utilisé!

J'ai opté pour autre chose moins interactif mais plus fiable!

Merci encore...

Yaloo · 24 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Julien, le forum,

julien34 à dit:
J'ai opté pour autre chose moins interactif mais plus fiable!

Quelle est cette "autre chose" ?

Yaloo

julien34 · 24 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

J'utilise une petite macro (fournit par Yaloo d'ailleurs pour renvoyer des cellules d'un classeur dans un autre.

Code:

Sub transfert()
    ChDir "E:\" 'Choix du répertoire
    Application.DisplayAlerts = False
    On Error Resume Next
    Workbooks.Open Filename:="E:\........" 'Ouvre le fichier
    ActiveWindow().ActivateNext    'Active la feuille
    
    Set w = Workbooks("classeur1.xlsx").Worksheets("feuille1")
    Set w1 = Workbooks("FORM V 8.5.xlsm").Worksheets("Formulaire")
    w.Range("B14").Value = w1.Range("G2").Value 'Copie donnée classeur 1 dans classeur 2
    w.Range("D13").Value = w1.Range("L2").Value
    w.Range("M5").Value = w1.Range("B5").Value

Ce que je souhaite faire c'est:
Renvoyer 3 cellules (exemple B14,D13,M5) et concatener en destination sur A1,A2,A3 par exemple. Euh j’espère avoir été clair

Une idée svp
Merci d'avance,

julien34 · 24 Septembre 2011

Re : Listbox conditonnelle

Re Yaloo,

Pour ta question au post #83, la solution va te faire rire elle est radicale.
J'ai décidé que le document que j'envoie serait pré rempli (donc non interactif). L'utilisateur stipule qu'ile st ok sur le doc l'enregistre et me le renvoie!!!

Bref je m’engageais dans quelque chose de trop compliqué pour moi je pense !

A+

Yaloo · 24 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Julien,

julien34 à dit:
Ce que je souhaite faire c'est:
Renvoyer 3 cellules (exemple B14,D13,M5) et concatener en destination sur A1,A2,A3 par exemple.

Pourquoi concatener ?

julien34 à dit:
Euh j’espère avoir été clair

Euh non !!!!!

Yaloo

Yaloo · 24 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Julien,

3 Cellules de départ = 3 cellules de destination. Que veux tu concatener ?

Yaloo

julien34 · 24 Septembre 2011

Re : Listbox conditonnelle

Re yaloo,

Exemple je copie 3 cellules (Monsieur, Nom et prénom)
Concatener pour mettre en forme le fichier de destination

Pour éviter d'avoir Monsieur................Nom...................Prénom (avec des espaces trop importants entre chaque cellule)
(J’exagère volontairement)

Peut etre existe il une autre solution

Yaloo · 24 Septembre 2011

Re : Listbox conditonnelle

julien34 à dit:
Bonsoir Yaloo, le forum

J'utilise une petite macro (fournit par Yaloo d'ailleurs pour renvoyer des cellules d'un classeur dans un autre.

Code:

Sub transfert() ChDir "E:\" 'Choix du répertoire Application.DisplayAlerts = False On Error Resume Next Workbooks.Open Filename:="E:\........" 'Ouvre le fichier ActiveWindow().ActivateNext 'Active la feuille Set w = Workbooks("classeur1.xlsx").Worksheets("feuille1") Set w1 = Workbooks("FORM V 8.5.xlsm").Worksheets("Formulaire") w.Range("B14").Value = w1.Range("G2").Value 'Copie donnée classeur 1 dans classeur 2 w.Range("D13").Value = w1.Range("L2").Value w.Range("M5").Value = w1.Range("B5").Value

Ce que je souhaite faire c'est:
Renvoyer 3 cellules (exemple B14,D13,M5) et concatener en destination sur A1,A2,A3 par exemple. Euh j’espère avoir été clair

Une idée svp
Merci d'avance,

Si tu veux tout dans la même cellule

w.Range("B14").Value = w1.Range("G2").Value &" "& w1.Range("L2").Value &" "& w1.Range("B5").Value

Cela devrait faire l'affaire, à tester (quand même)

A+

julien34 · 24 Septembre 2011

Re : Listbox conditonnelle

Re,

J'ai une erreur de compil'
w.Range("B14").Value = w1.Range("G2").Value&" "&w1.Range("L2").Value&" "&w1.Range("B5").Value

Listbox conditonnelle

julien34

XLDnaute Occasionnel

julien34

XLDnaute Occasionnel

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Discussions similaires