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

[BASSDINGUE]

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

 

[BASSDINGUE]

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)