Macro avec Excel

Question

Je suis nouvelle sur ce forum et également dans mon emploi... (assos qui organise des cours de français pour étrangers) Au bureau tout est fait à la main... oups ! j'ai collecté sur ce forum une macro (d'un vendeur de plats préparés) qui pouvait m'interesser fortement (j'ai transformé les raviolis en cours de fançais...) Le problème est que je ne peux pas multiplier le coût d'une semaine par X sem pour avoir un total (ce serait trop cool) la 3ème semaine chez nous est moins chère... (nouveauté de la maison... grr) Semaine 1 = 120€ semaine 2 = 120€ semaine 3/4/5... = 90€ du coup mon petit tableau qui a si bien marché est devenu inutilisable. Quelqu'un pourrait, non pas me dire... je n'y arriverai pas... (j'ai regardé dans visual basic... je me suis échappée !) mais me faire la transformation ? Merci de votre aide Cordialement Ethel...

Captain_SOLO · Answer

Ecoute ...j'ai été mort de rire à lire ton explication... tu as changé les raviolis en cours d'anglais... Chapeau bas !!! MDR et le tarif dégressif (apparemment tu n'apprécies pas). Enfin, j'en ai tellement rit que j'ai dû me calmer 5 minutes avant de pouvoir ouvrir ton fichier : OUPS... tu parles d'une macro !!! Il y en a une petite dizaine oui... et appliquées sur un userForm. As-tu des bases de VBA ? Parce que en fait de boîte de raviolis, tu as déniché une usine à pizzas !!! Si tu as les bases VBA, reprends le PB à zéro. Dans le cas contraire, fais moi signe... j'essaierai de retirer ce qu'il reste des olives et quelques gouttes de cianti pour que tes stagiaires n'apprennent pas la langue de Sheakspeare en ayant la tête à la chapelle Sixtine. Cordialement... En tout cas expose tes PB. Ce sera toujours un plaisir de te lire. Absque suare et labore nullum opus parfectum est. Ciao. Captain SOLO...

Captain_SOLO · Answer

Bon, j'ai adapté ton fichier pour prendre en compte les tarifs dégressifs à 75% après la 2ème semaine. Il faut dire que le programme pour "les plats préparés" bugue par exemple quand on supprime une donnée dans le formulaire (userform). Par ailleurs comme je te le disais dans mon 1er message, un programme - quand bien même il y aurait des principes de base à respecter - correspond à une logique du "concepteur". Celui qui a fait le programme d'enregistrement et de facturation des plats préparés a une logique bien à lui qui ne me convient qu'à moitié : l'adapter à des programmes de cours de français reste un "challenge". Mais bon, j'ai ajouté une textbox8 pour le tarif dégressif et la liste en feuil "nom séjour et prix". Private Sub ListBox2_Click() If ListBox2.ListIndex = -1 Then Exit Sub TextBox3.Value = ListBox2.Value TextBox5.Value = Sheets("nom séjour et prix").Cells(ListBox2.ListIndex + 1, 2) TextBox8.Value = Sheets("nom séjour et prix").Cells(ListBox2.ListIndex + 1, 3) End Sub j'ai changé la formule lorsqu'on saisit le nombre de WE en TextBox4 avec une condition... cela devrait le faire : Private Sub TextBox4_Change() If IsNumeric(TextBox4.Value) Then TextBox6.Value = CDbl(TextBox4.Value) * CDbl(TextBox5.Value) 'mettre des conditions sur le nombre de semaines If TextBox4.Value &lt; 3 Then TextBox6.Value = CDbl(TextBox4.Value) * CDbl(TextBox5.Value) Else TextBox6.Value = (2 * CDbl(TextBox5.Value)) + ((CDbl(TextBox4.Value) - 2) _ * CDbl(TextBox8.Value)) End If End Sub J'ai adapté deux ou trois macros et voilà, cela semble fonctionner. J'ai fait cela entre deux dossiers au boulot et à la pause déjeuner... Tu me dis si cela te convient... Je ne suis pas allé plus loin que d'adapter le userform. Courage. Captain_SOLO...

Nad-Dan · Answer

Puisque tu sembles satisfait de la résolution de ta demande, merci de cliquer sur le V de couleur vert (à coté du bouton Editer) pour cloturer ton fil. Si pb, vois le lien de la charte du forum qui t'a été envoyé lors de ton inscription. Amicalement DDan...