olivier35fr
XLDnaute Nouveau
Bonjour,
Je rencontre un petit problème.
J'ai un fichier excel avec une base de donnée et un userform qui permet la saisie de ce qui sera recopié dans la base de donnée grâce à un bouton valider.
Sur mon Userform j'ai une textbox (TBnumero) qui est en incrémentation automatique vers la case A2 de ma base de donnée :
Private Sub UserForm_Initialize()
TBnumero.Value = Range("A2").Value + 1
Sur mon bouton valider j'ai une MSGbox qui me permet de choisir si je veux imprimer une étiquette avec le numéro d'incrémentation ou non.
donc dans ma MSGbox ,
si oui : je vais vers ma macro (impr) donc j'imprime
si non ben je ferme la MSGbox c'est tout.
voici ma macro :
Sub impr()
Sheets("ETIQUETTE").Select
Range("A2") = TBnumero.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
la formule : Range("A2") = TBnumero.Value ne fonctionne pas.
Comment faire ?
Je rencontre un petit problème.
J'ai un fichier excel avec une base de donnée et un userform qui permet la saisie de ce qui sera recopié dans la base de donnée grâce à un bouton valider.
Sur mon Userform j'ai une textbox (TBnumero) qui est en incrémentation automatique vers la case A2 de ma base de donnée :
Private Sub UserForm_Initialize()
TBnumero.Value = Range("A2").Value + 1
Sur mon bouton valider j'ai une MSGbox qui me permet de choisir si je veux imprimer une étiquette avec le numéro d'incrémentation ou non.
donc dans ma MSGbox ,
si oui : je vais vers ma macro (impr) donc j'imprime
si non ben je ferme la MSGbox c'est tout.
voici ma macro :
Sub impr()
Sheets("ETIQUETTE").Select
Range("A2") = TBnumero.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
la formule : Range("A2") = TBnumero.Value ne fonctionne pas.
Comment faire ?