Re : formule archivage
Je dois rentrer des nombres d'entrées pour des statistiques. Je fais cela grace à un userform et mes donner viennent s'archiver dans un tableau sur une feuille excel.
J'ai besoin de calculer simultanement un taux de remplissage (la capacité étant de 200 places, ma formule est : (nbre entrées/200)*100)
Puis-je rentrer dans mon code d'archivage un code qui me permettrait de calculer cela directement ?
Dois-je pour cela créer une macro ?
voila le début de mon code sachant que le nombre d'entrées est la somme des 4 Textbox.
Private Sub CommandButton1_Click()
Sheets("bddcaisse").Select
Range("A2").Select
Do
If ActiveCell.Value = "" Then
GoTo archiver
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiver:
ActiveCell.Value = saisiecaisse!Calendrier2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = saisiecaisse!Labelsalle1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = saisiecaisse!TextBoxnormal1 * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = saisiecaisse!TextBoxetud1 * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = saisiecaisse!TextBoxenf1 * 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = saisiecaisse!TextBox3d1 * 1
ActiveCell.Offset(0, 3).Select
Merci