Simplifier mon code VBA

Le 06/03/2014 à 14:16

Bonjour à tous,

Etant débutant, j'ai rédigé le code de mon appli VBA avec plus ou moins d'intelligence et surtout énormément de répétitions alors amis des boucles ... cet appel au secours est fait pour vous !

1°) Je voudrais remplacer ceci par une boucle :

TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
    TextBox11.Value = ""
    TextBox12.Value = ""
    TextBox13.Value = ""
    TextBox14.Value = ""
    TextBox15.Value = ""
    TextBox16.Value = ""
    TextBox17.Value = ""
    TextBox18.Value = ""
    TextBox19.Value = ""
    TextBox20.Value = ""
    TextBox21.Value = ""
    TextBox22.Value = ""
    TextBox23.Value = ""
    TextBox24.Value = ""
    TextBox25.Value = ""
    TextBox26.Value = ""
    TextBox27.Value = ""
    TextBox28.Value = ""
    TextBox29.Value = ""
    TextBox30.Value = ""

J'avais pensé à ...

Dim i As Integer
For i = 1 To 80
TextBox.Controls("TB" & i).Value = ""
Next

2°) Je voudrais remplacer ceci par une boucle : (un peu plus dur )

If Range("B9") = "" Then

            TB1.Visible = False
            TB11.Visible = False
            TB21.Visible = False
            TB31.Visible = False
            TB41.Visible = False
            TB51.Visible = False
            TB61.Visible = False
            TB71.Visible = False
            TB81.Visible = False
            TB91.Visible = False
            TB101.Visible = False
            TB111.Visible = False
            TB121.Visible = False
            TB131.Visible = False
            TB141.Visible = False
            TB151.Visible = False
            TB161.Visible = False
            TB171.Visible = False
            TB181.Visible = False
            TB191.Visible = False
            TB201.Visible = False
            TB211.Visible = False
            TB221.Visible = False
            TB231.Visible = False
            TB241.Visible = False
            TB251.Visible = False
            TB261.Visible = False
            TB271.Visible = False
            TB281.Visible = False
            TB291.Visible = False
            TB301.Visible = False
            TB311.Visible = False
            TB321.Visible = False
            TB331.Visible = False
            TB341.Visible = False
            TB351.Visible = False
            TB361.Visible = False
            TB371.Visible = False
            TB381.Visible = False
            TB391.Visible = False
            TB401.Visible = False
            TB411.Visible = False
            TB421.Visible = False
            TB431.Visible = False
            TB441.Visible = False
            TB451.Visible = False
            TB461.Visible = False
            TB471.Visible = False
            TB481.Visible = False
            TB491.Visible = False
            TB501.Visible = False
            TB511.Visible = False
            TB521.Visible = False
            TB531.Visible = False
            TB541.Visible = False
            TB551.Visible = False
            TB561.Visible = False
            TB571.Visible = False
            TB581.Visible = False
            TB591.Visible = False
            TB601.Visible = False
            TB611.Visible = False
            TB621.Visible = False
            TB631.Visible = False
            TB641.Visible = False
            TB651.Visible = False
            TB661.Visible = False
            TB671.Visible = False
            TB681.Visible = False
            TB691.Visible = False
            TB701.Visible = False
            TB711.Visible = False
            TB721.Visible = False
            TB731.Visible = False
            TB741.Visible = False
            TB751.Visible = False
            TB761.Visible = False
            TB771.Visible = False
            TB781.Visible = False
            TB791.Visible = False

         Else

         End If

Là, j'ai un peu moins d'idée vu que la suite de TB n'est pas linéaire ...

3°) Et enfin, pour les plus téméraires d'entre vous :

'Données à saisir pour la pièce 1
        Range("B13") = TB1.Value
        Range("C13") = TB2.Value
        Range("D13") = TB3.Value
        Range("E13") = TB4.Value
        Range("F13") = TB5.Value
        Range("G13") = TB6.Value
        Range("H13") = TB7.Value
        Range("I13") = TB8.Value
        Range("J13") = TB9.Value
        Range("K13") = TB10.Value

        'Données à saisir pour la pièce 2
        Range("B14") = TB11.Value
        Range("C14") = TB12.Value
        Range("D14") = TB13.Value
        Range("E14") = TB14.Value
        Range("F14") = TB15.Value
        Range("G14") = TB16.Value
        Range("H14") = TB17.Value
        Range("I14") = TB18.Value
        Range("J14") = TB19.Value
        Range("K14") = TB20.Value

        'Données à saisir pour la pièce 3
        Range("B15") = TB21.Value
        Range("C15") = TB22.Value
        Range("D15") = TB23.Value
        Range("E15") = TB24.Value
        Range("F15") = TB25.Value
        Range("G15") = TB26.Value
        Range("H15") = TB27.Value
        Range("I15") = TB28.Value
        Range("J15") = TB29.Value
        Range("K15") = TB30.Value

Sachant qu'en tout il y a 80 pièces à saisir au total ... mais je pense que la boucle sera la même enfin à vous de me dire !

J'attends avec impatience vos réponses !

Bon courage et merci à vous,

Cdlt,

Floo73

Le 06/03/2014 à 14:30

bonjour,

à tester

pour 1)

Dim i As Integer
For i = 1 To 80
'me("Textbox" & i).Value = "" ' si tes objets s'appellent textbox1--textbox80, mais j'ai un doute car après tu les appelles TB
'donc plutôt
me("TB" & i).value=""
Next

pour 2)

Dim i As Integer
For i = 1 To 281 step 10
me("TB" & i).Visible = false ' si tes objets s'appellent TB1 -- TB281
Next

pour 3)

for i=1 to 8
for j=2 to 11
cells(i+12,j)=me("TB" & j-1+(i-1)*10)
next j
next i

Le 06/03/2014 à 14:35

Salut h2so4 !

Une fois de plus merci à toi pour la fulgurance de ta réponse

Je teste ça tout de suite et je te tiens au courant ! Merci encore !

A+

Le 06/03/2014 à 15:08

Super pour les deux premières solutions !

Pour la deuxième que j'ai mis un moment à déchiffrer, pas mal aussi mais je crois que je me suis mal exprimé ! Je te copie le code entier que je voudrais remplacer pour une boucle :

'Données à saisir pour la pièce 1
        Range("B13") = TB1.Value
        Range("C13") = TB2.Value
        Range("D13") = TB3.Value
        Range("E13") = TB4.Value
        Range("F13") = TB5.Value
        Range("G13") = TB6.Value
        Range("H13") = TB7.Value
        Range("I13") = TB8.Value
        Range("J13") = TB9.Value
        Range("K13") = TB10.Value

        'Données à saisir pour la pièce 2
        Range("B14") = TB11.Value
        Range("C14") = TB12.Value
        Range("D14") = TB13.Value
        Range("E14") = TB14.Value
        Range("F14") = TB15.Value
        Range("G14") = TB16.Value
        Range("H14") = TB17.Value
        Range("I14") = TB18.Value
        Range("J14") = TB19.Value
        Range("K14") = TB20.Value

        'Données à saisir pour la pièce 3
        Range("B15") = TB21.Value
        Range("C15") = TB22.Value
        Range("D15") = TB23.Value
        Range("E15") = TB24.Value
        Range("F15") = TB25.Value
        Range("G15") = TB26.Value
        Range("H15") = TB27.Value
        Range("I15") = TB28.Value
        Range("J15") = TB29.Value
        Range("K15") = TB30.Value

        'Données à saisir pour la pièce 4
        Range("B16") = TB31.Value
        Range("C16") = TB32.Value
        Range("D16") = TB33.Value
        Range("E16") = TB34.Value
        Range("F16") = TB35.Value
        Range("G16") = TB36.Value
        Range("H16") = TB37.Value
        Range("I16") = TB38.Value
        Range("J16") = TB39.Value
        Range("K16") = TB40.Value

        'Données à saisir pour la pièce 5
        Range("B17") = TB41.Value
        Range("C17") = TB42.Value
        Range("D17") = TB43.Value
        Range("E17") = TB44.Value
        Range("F17") = TB45.Value
        Range("G17") = TB46.Value
        Range("H17") = TB47.Value
        Range("I17") = TB48.Value
        Range("J17") = TB49.Value
        Range("K17") = TB50.Value

        'Données à saisir pour la pièce 6
        Range("B18") = TB51.Value
        Range("C18") = TB52.Value
        Range("D18") = TB53.Value
        Range("E18") = TB54.Value
        Range("F18") = TB55.Value
        Range("G18") = TB56.Value
        Range("H18") = TB57.Value
        Range("I18") = TB58.Value
        Range("J18") = TB59.Value
        Range("K18") = TB60.Value

        'Données à saisir pour la pièce 7
        Range("B19") = TB61.Value
        Range("C19") = TB62.Value
        Range("D19") = TB63.Value
        Range("E19") = TB64.Value
        Range("F19") = TB65.Value
        Range("G19") = TB66.Value
        Range("H19") = TB67.Value
        Range("I19") = TB68.Value
        Range("J19") = TB69.Value
        Range("K19") = TB70.Value

        'Données à saisir pour la pièce 8
        Range("B20") = TB71.Value
        Range("C20") = TB72.Value
        Range("D20") = TB73.Value
        Range("E20") = TB74.Value
        Range("F20") = TB75.Value
        Range("G20") = TB76.Value
        Range("H20") = TB77.Value
        Range("I20") = TB78.Value
        Range("J20") = TB79.Value
        Range("K20") = TB80.Value

        'Données à saisir pour la pièce 9
        Range("B21") = TB81.Value
        Range("C21") = TB82.Value
        Range("D21") = TB83.Value
        Range("E21") = TB84.Value
        Range("F21") = TB85.Value
        Range("G21") = TB86.Value
        Range("H21") = TB87.Value
        Range("I21") = TB88.Value
        Range("J21") = TB89.Value
        Range("K21") = TB90.Value

        'Données à saisir pour la pièce 10
        Range("B22") = TB91.Value
        Range("C22") = TB92.Value
        Range("D22") = TB93.Value
        Range("E22") = TB94.Value
        Range("F22") = TB95.Value
        Range("G22") = TB96.Value
        Range("H22") = TB97.Value
        Range("I22") = TB98.Value
        Range("J22") = TB99.Value
        Range("K22") = TB100.Value

        'Données à saisir pour la pièce 11
        Range("B23") = TB101.Value
        Range("C23") = TB102.Value
        Range("D23") = TB103.Value
        Range("E23") = TB104.Value
        Range("F23") = TB105.Value
        Range("G23") = TB106.Value
        Range("H23") = TB107.Value
        Range("I23") = TB108.Value
        Range("J23") = TB109.Value
        Range("K23") = TB110.Value

        'Données à saisir pour la pièce 12
        Range("B24") = TB111.Value
        Range("C24") = TB112.Value
        Range("D24") = TB113.Value
        Range("E24") = TB114.Value
        Range("F24") = TB115.Value
        Range("G24") = TB116.Value
        Range("H24") = TB117.Value
        Range("I24") = TB118.Value
        Range("J24") = TB119.Value
        Range("K24") = TB120.Value

        'Données à saisir pour la pièce 13
        Range("B25") = TB121.Value
        Range("C25") = TB122.Value
        Range("D25") = TB123.Value
        Range("E25") = TB124.Value
        Range("F25") = TB125.Value
        Range("G25") = TB126.Value
        Range("H25") = TB127.Value
        Range("I25") = TB128.Value
        Range("J25") = TB129.Value
        Range("K25") = TB130.Value

        'Données à saisir pour la pièce 14
        Range("B26") = TB131.Value
        Range("C26") = TB132.Value
        Range("D26") = TB133.Value
        Range("E26") = TB134.Value
        Range("F26") = TB135.Value
        Range("G26") = TB136.Value
        Range("H26") = TB137.Value
        Range("I26") = TB138.Value
        Range("J26") = TB139.Value
        Range("K26") = TB140.Value

        'Données à saisir pour la pièce 15
        Range("B27") = TB141.Value
        Range("C27") = TB142.Value
        Range("D27") = TB143.Value
        Range("E27") = TB144.Value
        Range("F27") = TB145.Value
        Range("G27") = TB146.Value
        Range("H27") = TB147.Value
        Range("I27") = TB148.Value
        Range("J27") = TB149.Value
        Range("K27") = TB150.Value

        'Données à saisir pour la pièce 16
        Range("B28") = TB151.Value
        Range("C28") = TB152.Value
        Range("D28") = TB153.Value
        Range("E28") = TB154.Value
        Range("F28") = TB155.Value
        Range("G28") = TB156.Value
        Range("H28") = TB157.Value
        Range("I28") = TB158.Value
        Range("J28") = TB159.Value
        Range("K28") = TB160.Value

        'Données à saisir pour la pièce 17
        Range("M13") = TB161.Value
        Range("N13") = TB162.Value
        Range("O13") = TB163.Value
        Range("P13") = TB164.Value
        Range("Q13") = TB165.Value
        Range("R13") = TB166.Value
        Range("S13") = TB167.Value
        Range("T13") = TB168.Value
        Range("U13") = TB169.Value
        Range("V13") = TB170.Value

        'Données à saisir pour la pièce 18
        Range("M14") = TB171.Value
        Range("N14") = TB172.Value
        Range("O14") = TB173.Value
        Range("P14") = TB174.Value
        Range("Q14") = TB175.Value
        Range("R14") = TB176.Value
        Range("S14") = TB177.Value
        Range("T14") = TB178.Value
        Range("U14") = TB179.Value
        Range("V14") = TB180.Value

        'Données à saisir pour la pièce 19
        Range("M15") = TB181.Value
        Range("N15") = TB182.Value
        Range("O15") = TB183.Value
        Range("P15") = TB184.Value
        Range("Q15") = TB185.Value
        Range("R15") = TB186.Value
        Range("S15") = TB187.Value
        Range("T15") = TB188.Value
        Range("U15") = TB189.Value
        Range("V15") = TB190.Value

        'Données à saisir pour la pièce 20
        Range("M16") = TB191.Value
        Range("N16") = TB192.Value
        Range("O16") = TB193.Value
        Range("P16") = TB194.Value
        Range("Q16") = TB195.Value
        Range("R16") = TB196.Value
        Range("S16") = TB197.Value
        Range("T16") = TB198.Value
        Range("U16") = TB199.Value
        Range("V16") = TB200.Value

        'Données à saisir pour la pièce 21
        Range("M17") = TB201.Value
        Range("N17") = TB202.Value
        Range("O17") = TB203.Value
        Range("P17") = TB204.Value
        Range("Q17") = TB205.Value
        Range("R17") = TB206.Value
        Range("S17") = TB207.Value
        Range("T17") = TB208.Value
        Range("U17") = TB209.Value
        Range("V17") = TB210.Value

        'Données à saisir pour la pièce 22
        Range("M18") = TB211.Value
        Range("N18") = TB212.Value
        Range("O18") = TB213.Value
        Range("P18") = TB214.Value
        Range("Q18") = TB215.Value
        Range("R18") = TB216.Value
        Range("S18") = TB217.Value
        Range("T18") = TB218.Value
        Range("U18") = TB219.Value
        Range("V18") = TB220.Value

        'Données à saisir pour la pièce 23
        Range("M19") = TB221.Value
        Range("N19") = TB222.Value
        Range("O19") = TB223.Value
        Range("P19") = TB224.Value
        Range("Q19") = TB225.Value
        Range("R19") = TB226.Value
        Range("S19") = TB227.Value
        Range("T19") = TB228.Value
        Range("U19") = TB229.Value
        Range("V19") = TB230.Value

        'Données à saisir pour la pièce 24
        Range("M20") = TB231.Value
        Range("N20") = TB232.Value
        Range("O20") = TB233.Value
        Range("P20") = TB234.Value
        Range("Q20") = TB235.Value
        Range("R20") = TB236.Value
        Range("S20") = TB237.Value
        Range("T20") = TB238.Value
        Range("U20") = TB239.Value
        Range("V20") = TB240.Value

        'Données à saisir pour la pièce 25
        Range("M21") = TB241.Value
        Range("N21") = TB242.Value
        Range("O21") = TB243.Value
        Range("P21") = TB244.Value
        Range("Q21") = TB245.Value
        Range("R21") = TB246.Value
        Range("S21") = TB247.Value
        Range("T21") = TB248.Value
        Range("U21") = TB249.Value
        Range("V21") = TB250.Value

        'Données à saisir pour la pièce 26
        Range("M22") = TB251.Value
        Range("N22") = TB252.Value
        Range("O22") = TB253.Value
        Range("P22") = TB254.Value
        Range("Q22") = TB255.Value
        Range("R22") = TB256.Value
        Range("S22") = TB257.Value
        Range("T22") = TB258.Value
        Range("U22") = TB259.Value
        Range("V22") = TB260.Value

        'Données à saisir pour la pièce 27
        Range("M23") = TB261.Value
        Range("N23") = TB262.Value
        Range("O23") = TB263.Value
        Range("P23") = TB264.Value
        Range("Q23") = TB265.Value
        Range("R23") = TB266.Value
        Range("S23") = TB267.Value
        Range("T23") = TB268.Value
        Range("U23") = TB269.Value
        Range("V23") = TB270.Value

        'Données à saisir pour la pièce 28
        Range("M24") = TB271.Value
        Range("N24") = TB272.Value
        Range("O24") = TB273.Value
        Range("P24") = TB274.Value
        Range("Q24") = TB275.Value
        Range("R24") = TB276.Value
        Range("S24") = TB277.Value
        Range("T24") = TB278.Value
        Range("U24") = TB279.Value
        Range("V24") = TB280.Value

        'Données à saisir pour la pièce 29
        Range("M25") = TB281.Value
        Range("N25") = TB282.Value
        Range("O25") = TB283.Value
        Range("P25") = TB284.Value
        Range("Q25") = TB285.Value
        Range("R25") = TB286.Value
        Range("S25") = TB287.Value
        Range("T25") = TB288.Value
        Range("U25") = TB289.Value
        Range("V25") = TB290.Value

        'Données à saisir pour la pièce 30
        Range("M26") = TB291.Value
        Range("N26") = TB292.Value
        Range("O26") = TB293.Value
        Range("P26") = TB294.Value
        Range("Q26") = TB295.Value
        Range("R26") = TB296.Value
        Range("S26") = TB297.Value
        Range("T26") = TB298.Value
        Range("U26") = TB299.Value
        Range("V26") = TB300.Value

        'Données à saisir pour la pièce 31
        Range("M27") = TB301.Value
        Range("N27") = TB302.Value
        Range("O27") = TB303.Value
        Range("P27") = TB304.Value
        Range("Q27") = TB305.Value
        Range("R27") = TB306.Value
        Range("S27") = TB307.Value
        Range("T27") = TB308.Value
        Range("U27") = TB309.Value
        Range("V27") = TB310.Value

        'Données à saisir pour la pièce 32
        Range("M28") = TB311.Value
        Range("N28") = TB312.Value
        Range("O28") = TB313.Value
        Range("P28") = TB314.Value
        Range("Q28") = TB315.Value
        Range("R28") = TB316.Value
        Range("S28") = TB317.Value
        Range("T28") = TB318.Value
        Range("U28") = TB319.Value
        Range("V28") = TB320.Value

        'Données à saisir pour la pièce 33
        Range("X13") = TB321.Value
        Range("Y13") = TB322.Value
        Range("Z13") = TB323.Value
        Range("AA13") = TB324.Value
        Range("AB13") = TB325.Value
        Range("AC13") = TB326.Value
        Range("AD13") = TB327.Value
        Range("AE13") = TB328.Value
        Range("AF13") = TB329.Value
        Range("AG13") = TB330.Value

        'Données à saisir pour la pièce 34
        Range("X14") = TB331.Value
        Range("Y14") = TB332.Value
        Range("Z14") = TB333.Value
        Range("AA14") = TB334.Value
        Range("AB14") = TB335.Value
        Range("AC14") = TB336.Value
        Range("AD14") = TB337.Value
        Range("AE14") = TB338.Value
        Range("AF14") = TB339.Value
        Range("AG14") = TB340.Value

        'Données à saisir pour la pièce 35
        Range("X15") = TB341.Value
        Range("Y15") = TB342.Value
        Range("Z15") = TB343.Value
        Range("AA15") = TB344.Value
        Range("AB15") = TB345.Value
        Range("AC15") = TB346.Value
        Range("AD15") = TB347.Value
        Range("AE15") = TB348.Value
        Range("AF15") = TB349.Value
        Range("AG15") = TB350.Value

        'Données à saisir pour la pièce 36
        Range("X16") = TB351.Value
        Range("Y16") = TB352.Value
        Range("Z16") = TB353.Value
        Range("AA16") = TB354.Value
        Range("AB16") = TB355.Value
        Range("AC16") = TB356.Value
        Range("AD16") = TB357.Value
        Range("AE16") = TB358.Value
        Range("AF16") = TB359.Value
        Range("AG16") = TB360.Value

        'Données à saisir pour la pièce 37
        Range("X17") = TB361.Value
        Range("Y17") = TB362.Value
        Range("Z17") = TB363.Value
        Range("AA17") = TB364.Value
        Range("AB17") = TB365.Value
        Range("AC17") = TB366.Value
        Range("AD17") = TB367.Value
        Range("AE17") = TB368.Value
        Range("AF17") = TB369.Value
        Range("AG17") = TB370.Value

        'Données à saisir pour la pièce 38
        Range("X18") = TB371.Value
        Range("Y18") = TB372.Value
        Range("Z18") = TB373.Value
        Range("AA18") = TB374.Value
        Range("AB18") = TB375.Value
        Range("AC18") = TB376.Value
        Range("AD18") = TB377.Value
        Range("AE18") = TB378.Value
        Range("AF18") = TB379.Value
        Range("AG18") = TB380.Value

        'Données à saisir pour la pièce 39
        Range("X19") = TB381.Value
        Range("Y19") = TB382.Value
        Range("Z19") = TB383.Value
        Range("AA19") = TB384.Value
        Range("AB19") = TB385.Value
        Range("AC19") = TB386.Value
        Range("AD19") = TB387.Value
        Range("AE19") = TB388.Value
        Range("AF19") = TB389.Value
        Range("AG19") = TB390.Value

        'Données à saisir pour la pièce 40
        Range("X20") = TB391.Value
        Range("Y20") = TB392.Value
        Range("Z20") = TB393.Value
        Range("AA20") = TB394.Value
        Range("AB20") = TB395.Value
        Range("AC20") = TB396.Value
        Range("AD20") = TB397.Value
        Range("AE20") = TB398.Value
        Range("AF20") = TB399.Value
        Range("AG20") = TB400.Value

        'Données à saisir pour la pièce 41
        Range("X21") = TB401.Value
        Range("Y21") = TB402.Value
        Range("Z21") = TB403.Value
        Range("AA21") = TB404.Value
        Range("AB21") = TB405.Value
        Range("AC21") = TB406.Value
        Range("AD21") = TB407.Value
        Range("AE21") = TB408.Value
        Range("AF21") = TB409.Value
        Range("AG21") = TB410.Value

        'Données à saisir pour la pièce 42
        Range("X22") = TB411.Value
        Range("Y22") = TB412.Value
        Range("Z22") = TB413.Value
        Range("AA22") = TB414.Value
        Range("AB22") = TB415.Value
        Range("AC22") = TB416.Value
        Range("AD22") = TB417.Value
        Range("AE22") = TB418.Value
        Range("AF22") = TB419.Value
        Range("AG22") = TB420.Value

        'Données à saisir pour la pièce 43
        Range("X23") = TB421.Value
        Range("Y23") = TB422.Value
        Range("Z23") = TB423.Value
        Range("AA23") = TB424.Value
        Range("AB23") = TB425.Value
        Range("AC23") = TB426.Value
        Range("AD23") = TB427.Value
        Range("AE23") = TB428.Value
        Range("AF23") = TB429.Value
        Range("AG23") = TB430.Value

        'Données à saisir pour la pièce 44
        Range("X24") = TB431.Value
        Range("Y24") = TB432.Value
        Range("Z24") = TB433.Value
        Range("AA24") = TB434.Value
        Range("AB24") = TB435.Value
        Range("AC24") = TB436.Value
        Range("AD24") = TB437.Value
        Range("AE24") = TB438.Value
        Range("AF24") = TB439.Value
        Range("AG24") = TB440.Value

        'Données à saisir pour la pièce 45
        Range("X25") = TB441.Value
        Range("Y25") = TB442.Value
        Range("Z25") = TB443.Value
        Range("AA25") = TB444.Value
        Range("AB25") = TB445.Value
        Range("AC25") = TB446.Value
        Range("AD25") = TB447.Value
        Range("AE25") = TB448.Value
        Range("AF25") = TB449.Value
        Range("AG25") = TB450.Value

        'Données à saisir pour la pièce 46
        Range("X26") = TB451.Value
        Range("Y26") = TB452.Value
        Range("Z26") = TB453.Value
        Range("AA26") = TB454.Value
        Range("AB26") = TB455.Value
        Range("AC26") = TB456.Value
        Range("AD26") = TB457.Value
        Range("AE26") = TB458.Value
        Range("AF26") = TB459.Value
        Range("AG26") = TB460.Value

        'Données à saisir pour la pièce 47
        Range("X27") = TB461.Value
        Range("Y27") = TB462.Value
        Range("Z27") = TB463.Value
        Range("AA27") = TB464.Value
        Range("AB27") = TB465.Value
        Range("AC27") = TB466.Value
        Range("AD27") = TB467.Value
        Range("AE27") = TB468.Value
        Range("AF27") = TB469.Value
        Range("AG27") = TB470.Value

        'Données à saisir pour la pièce 48
        Range("X28") = TB471.Value
        Range("Y28") = TB472.Value
        Range("Z28") = TB473.Value
        Range("AA28") = TB474.Value
        Range("AB28") = TB475.Value
        Range("AC28") = TB476.Value
        Range("AD28") = TB477.Value
        Range("AE28") = TB478.Value
        Range("AF28") = TB479.Value
        Range("AG28") = TB480.Value

        'Données à saisir pour la pièce 49
        Range("AI13") = TB481.Value
        Range("AJ13") = TB482.Value
        Range("AK13") = TB483.Value
        Range("AL13") = TB484.Value
        Range("AM13") = TB485.Value
        Range("AN13") = TB486.Value
        Range("AO13") = TB487.Value
        Range("AP13") = TB488.Value
        Range("AQ13") = TB489.Value
        Range("AR13") = TB490.Value

        'Données à saisir pour la pièce 50
        Range("AI14") = TB491.Value
        Range("AJ14") = TB492.Value
        Range("AK14") = TB493.Value
        Range("AL14") = TB494.Value
        Range("AM14") = TB495.Value
        Range("AN14") = TB496.Value
        Range("AO14") = TB497.Value
        Range("AP14") = TB498.Value
        Range("AQ14") = TB499.Value
        Range("AR14") = TB500.Value

        'Données à saisir pour la pièce 51
        Range("AI15") = TB501.Value
        Range("AJ15") = TB502.Value
        Range("AK15") = TB503.Value
        Range("AL15") = TB504.Value
        Range("AM15") = TB505.Value
        Range("AN15") = TB506.Value
        Range("AO15") = TB507.Value
        Range("AP15") = TB508.Value
        Range("AQ15") = TB509.Value
        Range("AR15") = TB510.Value

        'Données à saisir pour la pièce 52
        Range("AI16") = TB511.Value
        Range("AJ16") = TB512.Value
        Range("AK16") = TB513.Value
        Range("AL16") = TB514.Value
        Range("AM16") = TB515.Value
        Range("AN16") = TB516.Value
        Range("AO16") = TB517.Value
        Range("AP16") = TB518.Value
        Range("AQ16") = TB519.Value
        Range("AR16") = TB520.Value

        'Données à saisir pour la pièce 53
        Range("AI17") = TB521.Value
        Range("AJ17") = TB522.Value
        Range("AK17") = TB523.Value
        Range("AL17") = TB524.Value
        Range("AM17") = TB525.Value
        Range("AN17") = TB526.Value
        Range("AO17") = TB527.Value
        Range("AP17") = TB528.Value
        Range("AQ17") = TB529.Value
        Range("AR17") = TB530.Value

        'Données à saisir pour la pièce 54
        Range("AI18") = TB531.Value
        Range("AJ18") = TB532.Value
        Range("AK18") = TB533.Value
        Range("AL18") = TB534.Value
        Range("AM18") = TB535.Value
        Range("AN18") = TB536.Value
        Range("AO18") = TB537.Value
        Range("AP18") = TB538.Value
        Range("AQ18") = TB539.Value
        Range("AR18") = TB540.Value

        'Données à saisir pour la pièce 55
        Range("AI19") = TB541.Value
        Range("AJ19") = TB542.Value
        Range("AK19") = TB543.Value
        Range("AL19") = TB544.Value
        Range("AM19") = TB545.Value
        Range("AN19") = TB546.Value
        Range("AO19") = TB547.Value
        Range("AP19") = TB548.Value
        Range("AQ19") = TB549.Value
        Range("AR19") = TB550.Value

        'Données à saisir pour la pièce 56
        Range("AI20") = TB551.Value
        Range("AJ20") = TB552.Value
        Range("AK20") = TB553.Value
        Range("AL20") = TB554.Value
        Range("AM20") = TB555.Value
        Range("AN20") = TB556.Value
        Range("AO20") = TB557.Value
        Range("AP20") = TB558.Value
        Range("AQ20") = TB559.Value
        Range("AR20") = TB560.Value

        'Données à saisir pour la pièce 57
        Range("AI21") = TB561.Value
        Range("AJ21") = TB562.Value
        Range("AK21") = TB563.Value
        Range("AL21") = TB564.Value
        Range("AM21") = TB565.Value
        Range("AN21") = TB566.Value
        Range("AO21") = TB567.Value
        Range("AP21") = TB568.Value
        Range("AQ21") = TB569.Value
        Range("AR21") = TB570.Value

        'Données à saisir pour la pièce 58
        Range("AI22") = TB571.Value
        Range("AJ22") = TB572.Value
        Range("AK22") = TB573.Value
        Range("AL22") = TB574.Value
        Range("AM22") = TB575.Value
        Range("AN22") = TB576.Value
        Range("AO22") = TB577.Value
        Range("AP22") = TB578.Value
        Range("AQ22") = TB579.Value
        Range("AR22") = TB580.Value

        'Données à saisir pour la pièce 59
        Range("AI23") = TB581.Value
        Range("AJ23") = TB582.Value
        Range("AK23") = TB583.Value
        Range("AL23") = TB584.Value
        Range("AM23") = TB585.Value
        Range("AN23") = TB586.Value
        Range("AO23") = TB587.Value
        Range("AP23") = TB588.Value
        Range("AQ23") = TB589.Value
        Range("AR23") = TB590.Value

        'Données à saisir pour la pièce 60
        Range("AI24") = TB591.Value
        Range("AJ24") = TB592.Value
        Range("AK24") = TB593.Value
        Range("AL24") = TB594.Value
        Range("AM24") = TB595.Value
        Range("AN24") = TB596.Value
        Range("AO24") = TB597.Value
        Range("AP24") = TB598.Value
        Range("AQ24") = TB599.Value
        Range("AR24") = TB600.Value

        'Données à saisir pour la pièce 61
        Range("AI25") = TB601.Value
        Range("AJ25") = TB602.Value
        Range("AK25") = TB603.Value
        Range("AL25") = TB604.Value
        Range("AM25") = TB605.Value
        Range("AN25") = TB606.Value
        Range("AO25") = TB607.Value
        Range("AP25") = TB608.Value
        Range("AQ25") = TB609.Value
        Range("AR25") = TB610.Value

        'Données à saisir pour la pièce 62
        Range("AI26") = TB611.Value
        Range("AJ26") = TB612.Value
        Range("AK26") = TB613.Value
        Range("AL26") = TB614.Value
        Range("AM26") = TB615.Value
        Range("AN26") = TB616.Value
        Range("AO26") = TB617.Value
        Range("AP26") = TB618.Value
        Range("AQ26") = TB619.Value
        Range("AR26") = TB620.Value

        'Données à saisir pour la pièce 63
        Range("AI27") = TB621.Value
        Range("AJ27") = TB622.Value
        Range("AK27") = TB623.Value
        Range("AL27") = TB624.Value
        Range("AM27") = TB625.Value
        Range("AN27") = TB626.Value
        Range("AO27") = TB627.Value
        Range("AP27") = TB628.Value
        Range("AQ27") = TB629.Value
        Range("AR27") = TB630.Value

        'Données à saisir pour la pièce 64
        Range("AI28") = TB631.Value
        Range("AJ28") = TB632.Value
        Range("AK28") = TB633.Value
        Range("AL28") = TB634.Value
        Range("AM28") = TB635.Value
        Range("AN28") = TB636.Value
        Range("AO28") = TB637.Value
        Range("AP28") = TB638.Value
        Range("AQ28") = TB639.Value
        Range("AR28") = TB640.Value

        'Données à saisir pour la pièce 65
        Range("AT13") = TB641.Value
        Range("AU13") = TB642.Value
        Range("AV13") = TB643.Value
        Range("AW13") = TB644.Value
        Range("AX13") = TB645.Value
        Range("AY13") = TB646.Value
        Range("AZ13") = TB647.Value
        Range("BA13") = TB648.Value
        Range("BB13") = TB649.Value
        Range("BC13") = TB650.Value

        'Données à saisir pour la pièce 66
        Range("AT14") = TB651.Value
        Range("AU14") = TB652.Value
        Range("AV14") = TB653.Value
        Range("AW14") = TB654.Value
        Range("AX14") = TB655.Value
        Range("AY14") = TB656.Value
        Range("AZ14") = TB657.Value
        Range("BA14") = TB658.Value
        Range("BB14") = TB659.Value
        Range("BC14") = TB660.Value

        'Données à saisir pour la pièce 67
        Range("AT15") = TB661.Value
        Range("AU15") = TB662.Value
        Range("AV15") = TB663.Value
        Range("AW15") = TB664.Value
        Range("AX15") = TB665.Value
        Range("AY15") = TB666.Value
        Range("AZ15") = TB667.Value
        Range("BA15") = TB668.Value
        Range("BB15") = TB669.Value
        Range("BC15") = TB670.Value

        'Données à saisir pour la pièce 68
        Range("AT16") = TB671.Value
        Range("AU16") = TB672.Value
        Range("AV16") = TB673.Value
        Range("AW16") = TB674.Value
        Range("AX16") = TB675.Value
        Range("AY16") = TB676.Value
        Range("AZ16") = TB677.Value
        Range("BA16") = TB678.Value
        Range("BB16") = TB679.Value
        Range("BC16") = TB680.Value

        'Données à saisir pour la pièce 69
        Range("AT17") = TB681.Value
        Range("AU17") = TB682.Value
        Range("AV17") = TB683.Value
        Range("AW17") = TB684.Value
        Range("AX17") = TB685.Value
        Range("AY17") = TB686.Value
        Range("AZ17") = TB687.Value
        Range("BA17") = TB688.Value
        Range("BB17") = TB689.Value
        Range("BC17") = TB690.Value

        'Données à saisir pour la pièce 70
        Range("AT18") = TB691.Value
        Range("AU18") = TB692.Value
        Range("AV18") = TB693.Value
        Range("AW18") = TB694.Value
        Range("AX18") = TB695.Value
        Range("AY18") = TB696.Value
        Range("AZ18") = TB697.Value
        Range("BA18") = TB698.Value
        Range("BB18") = TB699.Value
        Range("BC18") = TB700.Value

        'Données à saisir pour la pièce 71
        Range("AT19") = TB701.Value
        Range("AU19") = TB702.Value
        Range("AV19") = TB703.Value
        Range("AW19") = TB704.Value
        Range("AX19") = TB705.Value
        Range("AY19") = TB706.Value
        Range("AZ19") = TB707.Value
        Range("BA19") = TB708.Value
        Range("BB19") = TB709.Value
        Range("BC19") = TB710.Value

        'Données à saisir pour la pièce 72
        Range("AT20") = TB711.Value
        Range("AU20") = TB712.Value
        Range("AV20") = TB713.Value
        Range("AW20") = TB714.Value
        Range("AX20") = TB715.Value
        Range("AY20") = TB716.Value
        Range("AZ20") = TB717.Value
        Range("BA20") = TB718.Value
        Range("BB20") = TB719.Value
        Range("BC20") = TB720.Value

        'Données à saisir pour la pièce 73
        Range("AT21") = TB721.Value
        Range("AU21") = TB722.Value
        Range("AV21") = TB723.Value
        Range("AW21") = TB724.Value
        Range("AX21") = TB725.Value
        Range("AY21") = TB726.Value
        Range("AZ21") = TB727.Value
        Range("BA21") = TB728.Value
        Range("BB21") = TB729.Value
        Range("BC21") = TB730.Value

        'Données à saisir pour la pièce 74
        Range("AT22") = TB731.Value
        Range("AU22") = TB732.Value
        Range("AV22") = TB733.Value
        Range("AW22") = TB734.Value
        Range("AX22") = TB735.Value
        Range("AY22") = TB736.Value
        Range("AZ22") = TB737.Value
        Range("BA22") = TB738.Value
        Range("BB22") = TB739.Value
        Range("BC22") = TB740.Value

        'Données à saisir pour la pièce 75
        Range("AT23") = TB741.Value
        Range("AU23") = TB742.Value
        Range("AV23") = TB743.Value
        Range("AW23") = TB744.Value
        Range("AX23") = TB745.Value
        Range("AY23") = TB746.Value
        Range("AZ23") = TB747.Value
        Range("BA23") = TB748.Value
        Range("BB23") = TB749.Value
        Range("BC23") = TB750.Value

        'Données à saisir pour la pièce 76
        Range("AT24") = TB751.Value
        Range("AU24") = TB752.Value
        Range("AV24") = TB753.Value
        Range("AW24") = TB754.Value
        Range("AX24") = TB755.Value
        Range("AY24") = TB756.Value
        Range("AZ24") = TB757.Value
        Range("BA24") = TB758.Value
        Range("BB24") = TB759.Value
        Range("BC24") = TB760.Value

        'Données à saisir pour la pièce 77
        Range("AT25") = TB761.Value
        Range("AU25") = TB762.Value
        Range("AV25") = TB763.Value
        Range("AW25") = TB764.Value
        Range("AX25") = TB765.Value
        Range("AY25") = TB766.Value
        Range("AZ25") = TB767.Value
        Range("BA25") = TB768.Value
        Range("BB25") = TB769.Value
        Range("BC25") = TB770.Value

        'Données à saisir pour la pièce 78
        Range("AT26") = TB771.Value
        Range("AU26") = TB772.Value
        Range("AV26") = TB773.Value
        Range("AW26") = TB774.Value
        Range("AX26") = TB775.Value
        Range("AY26") = TB776.Value
        Range("AZ26") = TB777.Value
        Range("BA26") = TB778.Value
        Range("BB26") = TB779.Value
        Range("BC26") = TB780.Value

        'Données à saisir pour la pièce 79
        Range("AT27") = TB781.Value
        Range("AU27") = TB782.Value
        Range("AV27") = TB783.Value
        Range("AW27") = TB784.Value
        Range("AX27") = TB785.Value
        Range("AY27") = TB786.Value
        Range("AZ27") = TB787.Value
        Range("BA27") = TB788.Value
        Range("BB27") = TB789.Value
        Range("BC27") = TB790.Value

        'Données à saisir pour la pièce 80
        Range("AT28") = TB791.Value
        Range("AU28") = TB792.Value
        Range("AV28") = TB793.Value
        Range("AW28") = TB794.Value
        Range("AX28") = TB795.Value
        Range("AY28") = TB796.Value
        Range("AZ28") = TB797.Value
        Range("BA28") = TB798.Value
        Range("BB28") = TB799.Value
        Range("BC28") = TB800.Value

Si je ne fais pas bugger le site avec ça Et jme suis tout paluché à la mano alors ... tu vas anéantir 2h de saisie

Merci d'avance,

Cdlt,

Floo73

Le 06/03/2014 à 15:11

re-bonjour,

pour le point 3)

replace le 8 par 80.

for i=1 to 80
for j=2 to 11
cells(i+12,j)=me("TB" & j-1+(i-1)*10)
next j
next i

Le 06/03/2014 à 15:35

Impressionnant !

Merci pour ta rapidité et ta compétence !

Bonne fin de journée,

Cdlt,

Floo73

Si tu as du temps, passe jeter un coup d'oeil sur ce post --> https://forum.excel-pratique.com/excel/determiner-les-valeurs-de-textbox-hors-tolerances-t48800.html

Car la solution proposée ne fonctionne pas de manière optimale ...

Merci d'avance,

Le 06/03/2014 à 16:13

bonjour,

Si tu as du temps, passe jeter un coup d'oeil sur ce post --> excel/determiner-les-valeurs-de-textbox-hors-tolerances-t48800.html

Car la solution proposée ne fonctionne pas de manière optimale ...

Merci d'avance,

je n'ai pas vu de réaction de ta part à ma dernière proposition faite dans ce message. si cela ne fonctionne pas merci de l'indiquer dans le message plutôt qu'ici.

Rechercher des sujets similaires à "simplifier mon code vba"