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

Yaloo · 24 Septembre 2011

Re : Listbox conditonnelle

Re,

julien34 à dit:
Re,

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

Il faut mettre des espaces avant ou après & soit

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

Yaloo

Yaloo · 25 Septembre 2011

Re : Listbox conditonnelle

Sachant que Monsieur Nom Prénom c'est plutôt

w.Range("B14").Value = w1.Range("B5").Value &" "& w1.Range("F5").Value &" "& w1.Range("T5").Value

A+

julien34 · 25 Septembre 2011

Re : Listbox conditonnelle

Re,

C'est tout bon ça fonctionne Yaloo
Merci

A+

julien34 · 25 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

Yaloo es tu dans les parages toi qui connait le dossier ? j'ai une toute petite question, je pense que c'est très simple pour toi !

Merci
A+

Yaloo · 25 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Julien, le forum,

Oui vas-y pose toujours, si je ne suis pas capable de répondre, qui le fera a ma place.

Yaloo

julien34 · 25 Septembre 2011

Re : Listbox conditonnelle

Re,

En bref j'ai un bout de code qui enregistre mon fichier sous "le nom de deux cellules"

Code:

Workbooks("Fichier1.xlsx").saveas Filename:="E:\............\Devis\ " & Range("B14") & Range("G5") & ".xls" & Range("G5")

Ça fonctionne mais sans le format de cellule "OCC" je ne sais pas si tu te souviens!

Pour faire clair avec ce code j'obtiens un fichier enregistré du type
1 Monsieur ALOKI ZEBRA (ou 1 est B14 et Monsieur ALOKI ZEBRA G5)

Je souhaite simplement obtenir OCC001 Monsieur ALOKI ZEBRA

Yaloo · 25 Septembre 2011

Re : Listbox conditonnelle

Salut,

Au lieu de Range("B14") essaie Format(Range("B14"),"""OCC""000") Attention je n'ai pas testé, mais ça devrait le faire

A+

Yaloo · 25 Septembre 2011

Re : Listbox conditonnelle

julien34 à dit:

Ton ".xls" étant avant & Range("G5") ça risque de poser problème !!!

Yaloo

julien34 · 25 Septembre 2011

Re : Listbox conditonnelle

Re Yaloo,

Comme sur des roulettes !! en remplaçant par Format(Range("B14"),"""OCC""000")
Merci

julien34 · 25 Septembre 2011

Re : Listbox conditonnelle

Re yaloo,

Si je veux faire exactement la même chose mais sous pdf c'est possible techniquement ?
Histoire d'avoir un excel modifiable et un pdf immuable que je peux envoyer à n'importe qui !

En gros j'enregistre une fois sous xlsx une fois sous pdf!

Yaloo · 26 Septembre 2011

Re : Listbox conditonnelle

Re,

Essaie d'utiliser l'enregistreur de macro, généralement ça te donne la réponse à ton problème.

Pour le PDF ça donne ça

VB:

    ChDir "C:\Users\xxxx\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\xxxx\yyyy\FORM V 8.4.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Par contre, ça ne fait pas de mise en page, donc il faut que ta page soit nickel.

A+

julien34 · 26 Septembre 2011

Re : Listbox conditonnelle

Re,

Le pb avec ce code c'est que mon fichier pdf ne porte pas le nom des cellules B14 ET G5 comme pour celui sous xlsx

Yaloo · 26 Septembre 2011

Re : Listbox conditonnelle

Bonjour Julien, le forum,

C'est exactement comme pour le fichier excel, tu fais :

VB:

ChDir "C:\Users\xxxx\yyyyy"
nom = Format(Range("G2"), """OCC""000") & " " & Range("F5") & " " & Range("T5") & ".pdf"
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         "C:\Users\xxxx\yyyyy\" & nom, Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
         False

Yaloo

julien34 · 30 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

Un petit pb......
Je souhaiterais créer un dossier dont le nom serait les valeurs contenues dans les cellules B14 ET G5) et enregistrer le fichier actif (classeur1.xls) dedans!

Si quelqu'un a une idée?.....

D'avance merci

Yaloo · 30 Septembre 2011

Re : Listbox conditonnelle

Bonsoir Julien,

Peut être avec ça :

Répertoire = "C:\" & Range("B14") & " " & Range("G5")

If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
ActiveWorkbook.SaveAs Répertoire & "\" & Range("B14") & " " & Range("G5") & ".xls"

Attention non testé

A+

Yaloo

Listbox conditonnelle

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

julien34

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Discussions similaires