Simplifier mon code VBA
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
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
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+
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
Merci d'avance,
Cdlt,
Floo73
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
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,
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.