gfpl
Messages postés172Date d'inscriptionsamedi 11 août 2012StatutMembreDernière intervention 9 avril 2011 29 sept. 2006 à 13:13
j' i deja reussit a faire les 2 boutons :)
Private Sub CommandButton1_Click()
Range("g6").Value = Range("g9")
Range("g9").Value = nb
Range("c8:c25").Value = nb
End Sub
------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Range("c25").Formula = "=C8-C9+C10-C12-C13-C14-C15-C16-C17-C18-C19-C20-C21-C22-C23-C24"
Range("g9").Formula = "=G6+G8"
DoCmd.RunCommand CmdPrint
End Sub
voila pour effacer les cellules mais je ne parvient pas a faire le bouton pour imprimer
quand on clique dessus il doit imprimmer la page
donc pour etre precis des que on clique sur :
CommandButton2_Click()
il fait le calcul pis il imprime directement j ai bien essayer de trouver la commande mais je ne trouve pas :(
nagattaque
Messages postés230Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention 5 juin 2007 28 sept. 2006 à 16:24
Oui quelqu'un peut t'aider.....
Mais va faloir etre un peu plus précis...
1- Ton bouton "imprimer" fonctionne ?
2- est ce que tes cellules a effacer sont toujours le memes, est ce que la valeur a recopier ds l'autre feuille est tjrs ds la meme cellule ? = est ce que c'est tjrs la meme plage ?