Creer Un Devis A Partir D'une Bd Via Un Userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BASSDINGUE

XLDnaute Occasionnel
bonjour le forum

Ma question du jour est :
en cliquant sur un client de la listbox je voudrais faire apparaitre un bouton ( jusque la cava) qui me permet de remplir une feuille devis et qu'elle s'imprime?

SACHANT QUE JE NE VEUX PAS TENIR COMPTE DU CONTENU DES TEXTBOX de droite car en fait j'ai beaucoup plus d'info et elle ne sont pas forcement afficher ds des textbox

voir le fichier joint

merci
 

Pièces jointes

Re : Creer Un Devis A Partir D'une Bd Via Un Userform

Bonjour tout le monde

J'ai trouvé comment faire :

Option Explicit
Dim NomLBindex As Integer




Private Sub CommandButton15_Click() 'imprimer devis

NomLBindex = LBX1.ListIndex + 2
With Sheets("devis")
.Range("f5") = Date
.Range("b11") = Sheets("TABLE_CLIENT").Range("L" & NomLBindex)
.Range("b12") = Sheets("TABLE_CLIENT").Range("G" & NomLBindex)
.Range("b13") = Sheets("TABLE_CLIENT").Range("I" & NomLBindex)
.Range("b14") = Sheets("TABLE_CLIENT").Range("J" & NomLBindex)
.Range("b15") = Sheets("TABLE_CLIENT").Range("Y" & NomLBindex)
.Range("C15") = Sheets("TABLE_CLIENT").Range("K" & NomLBindex)
.Range("b16") = Sheets("TABLE_CLIENT").Range("M" & NomLBindex)
.Range("F10") = Date + 90
End With

Sheets("DEVIS").Activate
With ActiveSheet.PageSetup

.Zoom = 100
.Orientation = xlPortrait
.CenterFooter = "Page - &P -"
End With
ActiveSheet.PageSetup.PrintArea = "A1:G50"
ActiveWindow.SelectedSheets.PrintOut copies:=1

End Sub

PAR CONTRE JE NE VEUX PAS QUE LA FEUILLE "DEVIS" PASSE AU PREMIER PLAN ET QU'ELLE SOIT VISIBLE.

Comment dois je proceder

merci

Et encore merci a bassdingue qui ma bien aidé
(Aide toi et le ciel t'aidera)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
2
Affichages
1 K
A
A
Réponses
1
Affichages
1 K
P
Réponses
0
Affichages
1 K
P
A
Réponses
32
Affichages
10 K
A
S
Réponses
4
Affichages
1 K
so.fine
S
P
Réponses
9
Affichages
2 K
pecavi35
P
Retour