Soumission automatisé

Bonjour tout le monde

Je travail pour une compagnie de clôture et nous avons besoins d'édité rapidement nos soumissions, j'ai donc crée en VBA une soumission automatisé avec un user Forms. Celle-ci calcul et remplie la totalité de la soumissions en fonction des champs remplis.

Je viens à vous car j'ai besoins de l'optimiser encore un peut plus mais cela deviens complexe pour moi au point qu'on peut faire un barbecue avec mon cerveau Je vous joints mon fichier en espérant que vous arriverais a comprendre. (les prix ont tous étais modifié)

Donc voila mes besoins, si vous avez des questions, je reste disponible pour y répondre

- Dans mes cases à cocher (type de clôture, hauteur et couleur) je voudrais que l'on puisse en cocher que 1 seule dans chaque catégorie.

- Je voudrais aussi pouvoir utilisé la tabulation pour remplir mon formulaire

Et la demande la plus complexe à expliquer :

- J'ai besoins que ma soumissions s'ajuste en fonction de si j'ai une valeur dans mes champs de barrières. J'ai essayer dans le même style de codage mais ça bloque, je pense que mon niveau est trop bas.

Je m'explique, je voudrais que si je remplis le champ "barrières simples" que la ligne de barrière double s'efface et que le reste remonte d'une ligne, inversement si je remplie le champ "barrières doubles" ou si mes deux champs sont remplie ou vide que le reste dispose correctement aussi. Voici le codage que j'ai écrits :

If Check_maille.Value And Text_barsimple.Value  Then

    Range("B21") = "Poteaux terminaux 2 3/8"
        Range("I21") = "7"
        Range("K21") = "=A21*I21"
    Range("A22") = Text_barsimple.Value
        Range("B22") = "Barrière 42'' Simple"
        Range("I22") = "25"
        Range("K22") = "=A22*I22"
    Range("A23") = "=A25/10"
        Range("B23") = "Sacs de lattes intimités non-installées"
        Range("I23") = "6"
        Range("K23") = "=A24*I24"
    Range("A24") = "=(A20)+((A22*3.5)+(A23*7))"
        Range("B24") = "pi/li installation de lattes intimités"
        Range("I24") = "4"
        Range("K24") = "=A25*I25"
    Range("A25") = "1"
        Range("B25") = "Installation de clôture"
        Range("I25") = "10"
        Range("K25") = "=I25*(1-A24/100)+100"

ElseIf Check_maille.Value And Text_double.Value  Then

    Range("B21") = "Poteaux terminaux 2 3/8"
        Range("I21") = "7"
        Range("K21") = "=A21*I21"
 Range("A22") = Text_bardouble.Value
        Range("B22") = "Barrière 84'' Double"
        Range("I22") = "45"
        Range("K22") = "=A23*I23"
    Range("A23") = "=A25/10"
        Range("B23") = "Sacs de lattes intimités non-installées"
        Range("I23") = "6"
        Range("K23") = "=A24*I24"
    Range("A24") = "=(A20)+((A22*3.5)+(A23*7))"
        Range("B24") = "pi/li installation de lattes intimités"
        Range("I24") = "4"
        Range("K24") = "=A25*I25"
    Range("A25") = "1"
        Range("B25") = "Installation de clôture"
        Range("I25") = "10"
        Range("K25") = "=I25*(1-A24/100)+100"

MERCIIIII d'avance pour l'aide !!!

Bonjour

Ci joint ma solution

A+ François

Bonjour François,

Merci beaucoup pour ta solutions, c'est tout ce dont j'avais besoins