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

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

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

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

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

julien34

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

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

julien34

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

XLDnaute Barbatruc
Re : Listbox conditonnelle


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+
 

Discussions similaires

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