Réduire un code
Salut à tous,
dans mon projet j'ai un code trop énorme. Je souhaite que vous aider à le réduire. Voici le code:
Private Sub CommandButton4_Click()
TextBox1 = Feuil5.[C2]
TextBox2 = Feuil5.[D2]
TextBox3 = Feuil5.[E2]
TextBox4 = Feuil5.[F2]
TextBox5 = Feuil5.[G2]
TextBox6 = Feuil5.[H2]
TextBox7 = Feuil5.[I2]
TextBox8 = Feuil5.[J2]
TextBox9 = Feuil5.[K2]
TextBox10 = Feuil5.[L2]
TextBox11 = Feuil5.[M2]
TextBox12 = Feuil5.[N2]
TextBox14 = Feuil5.[C3]
TextBox15 = Feuil5.[D3]
TextBox16 = Feuil5.[E3]
TextBox17 = Feuil5.[F3]
TextBox18 = Feuil5.[G3]
TextBox19 = Feuil5.[H3]
TextBox20 = Feuil5.[I3]
TextBox21 = Feuil5.[J3]
TextBox22 = Feuil5.[K3]
TextBox23 = Feuil5.[L3]
TextBox24 = Feuil5.[M3]
TextBox25 = Feuil5.[N3]
TextBox27 = Feuil5.[C4]
TextBox28 = Feuil5.[D4]
TextBox29 = Feuil5.[E4]
TextBox30 = Feuil5.[F4]
TextBox31 = Feuil5.[G4]
TextBox32 = Feuil5.[H4]
TextBox33 = Feuil5.[I4]
TextBox34 = Feuil5.[J4]
TextBox35 = Feuil5.[K4]
TextBox36 = Feuil5.[L4]
TextBox37 = Feuil5.[M4]
TextBox38 = Feuil5.[N4]
TextBox40 = Feuil5.[C5]
TextBox41 = Feuil5.[D5]
TextBox42 = Feuil5.[E5]
TextBox43 = Feuil5.[F5]
TextBox44 = Feuil5.[G5]
TextBox45 = Feuil5.[H5]
TextBox46 = Feuil5.[I5]
TextBox47 = Feuil5.[J5]
TextBox48 = Feuil5.[K5]
TextBox49 = Feuil5.[L5]
TextBox50 = Feuil5.[M5]
TextBox51 = Feuil5.[N5]
TextBox53 = Feuil5.[C6]
TextBox54 = Feuil5.[D6]
TextBox55 = Feuil5.[E6]
TextBox56 = Feuil5.[F6]
TextBox57 = Feuil5.[G6]
TextBox58 = Feuil5.[H6]
TextBox59 = Feuil5.[I6]
TextBox60 = Feuil5.[J6]
TextBox61 = Feuil5.[K6]
TextBox62 = Feuil5.[L6]
TextBox63 = Feuil5.[M6]
TextBox64 = Feuil5.[N6]
TextBox66 = Feuil5.[C7]
TextBox67 = Feuil5.[D7]
TextBox68 = Feuil5.[E7]
TextBox69 = Feuil5.[F7]
TextBox70 = Feuil5.[G7]
TextBox71 = Feuil5.[H7]
TextBox72 = Feuil5.[I7]
TextBox73 = Feuil5.[J7]
TextBox74 = Feuil5.[K7]
TextBox75 = Feuil5.[L7]
TextBox76 = Feuil5.[M7]
TextBox77 = Feuil5.[N7]
TextBox79 = Feuil5.[C8]
TextBox80 = Feuil5.[D8]
TextBox81 = Feuil5.[E8]
TextBox82 = Feuil5.[F8]
TextBox83 = Feuil5.[G8]
TextBox84 = Feuil5.[H8]
TextBox85 = Feuil5.[I8]
TextBox86 = Feuil5.[J8]
TextBox87 = Feuil5.[K8]
TextBox88 = Feuil5.[L8]
TextBox89 = Feuil5.[M8]
TextBox90 = Feuil5.[N8]
TextBox92 = Feuil5.[C9]
TextBox93 = Feuil5.[D9]
TextBox94 = Feuil5.[E9]
TextBox95 = Feuil5.[F9]
TextBox96 = Feuil5.[G9]
TextBox97 = Feuil5.[H9]
TextBox98 = Feuil5.[I9]
TextBox99 = Feuil5.[J9]
TextBox100 = Feuil5.[K9]
TextBox101 = Feuil5.[L9]
TextBox102 = Feuil5.[M9]
TextBox103 = Feuil5.[N9]
TextBox105 = Feuil5.[C10]
TextBox106 = Feuil5.[D10]
TextBox107 = Feuil5.[E10]
TextBox108 = Feuil5.[F10]
TextBox109 = Feuil5.[G10]
TextBox110 = Feuil5.[H10]
TextBox111 = Feuil5.[I10]
TextBox112 = Feuil5.[J10]
TextBox113 = Feuil5.[K10]
TextBox114 = Feuil5.[L10]
TextBox115 = Feuil5.[M10]
TextBox116 = Feuil5.[N10]
TextBox118 = Feuil5.[C11]
TextBox119 = Feuil5.[D11]
TextBox120 = Feuil5.[E11]
TextBox121 = Feuil5.[F11]
TextBox122 = Feuil5.[G11]
TextBox123 = Feuil5.[H11]
TextBox124 = Feuil5.[I11]
TextBox125 = Feuil5.[J11]
TextBox126 = Feuil5.[K11]
TextBox127 = Feuil5.[L11]
TextBox128 = Feuil5.[M11]
TextBox129 = Feuil5.[N11]
TextBox131 = Feuil5.[C12]
TextBox132 = Feuil5.[D12]
TextBox133 = Feuil5.[E12]
TextBox134 = Feuil5.[F12]
TextBox135 = Feuil5.[G12]
TextBox136 = Feuil5.[H12]
TextBox137 = Feuil5.[I12]
TextBox138 = Feuil5.[J12]
TextBox139 = Feuil5.[K12]
TextBox140 = Feuil5.[L12]
TextBox141 = Feuil5.[M12]
TextBox142 = Feuil5.[N12]
TextBox144 = Feuil5.[C13]
TextBox145 = Feuil5.[D13]
TextBox146 = Feuil5.[E13]
TextBox147 = Feuil5.[F13]
TextBox148 = Feuil5.[G13]
TextBox149 = Feuil5.[H13]
TextBox150 = Feuil5.[I13]
TextBox151 = Feuil5.[J13]
TextBox152 = Feuil5.[K13]
TextBox153 = Feuil5.[L13]
TextBox154 = Feuil5.[M13]
TextBox155 = Feuil5.[N13]
TextBox157 = Feuil5.[C14]
TextBox158 = Feuil5.[D14]
TextBox159 = Feuil5.[E14]
TextBox160 = Feuil5.[F14]
TextBox161 = Feuil5.[G14]
TextBox162 = Feuil5.[H14]
TextBox163 = Feuil5.[I14]
TextBox164 = Feuil5.[J14]
TextBox165 = Feuil5.[K14]
TextBox166 = Feuil5.[L14]
TextBox167 = Feuil5.[M14]
TextBox168 = Feuil5.[N14]
TextBox170 = Feuil5.[C15]
TextBox171 = Feuil5.[D15]
TextBox172 = Feuil5.[E15]
TextBox173 = Feuil5.[F15]
TextBox174 = Feuil5.[G15]
TextBox175 = Feuil5.[H15]
TextBox176 = Feuil5.[I15]
TextBox177 = Feuil5.[J15]
TextBox178 = Feuil5.[K15]
TextBox179 = Feuil5.[L15]
TextBox180 = Feuil5.[M15]
TextBox181 = Feuil5.[N15]
TextBox183 = Feuil5.[C16]
TextBox184 = Feuil5.[D16]
TextBox185 = Feuil5.[E16]
TextBox186 = Feuil5.[F16]
TextBox187 = Feuil5.[G16]
TextBox188 = Feuil5.[H16]
TextBox189 = Feuil5.[I16]
TextBox190 = Feuil5.[J16]
TextBox191 = Feuil5.[K16]
TextBox192 = Feuil5.[L16]
TextBox193 = Feuil5.[M16]
TextBox194 = Feuil5.[N16]
TextBox196 = Feuil5.[C17]
TextBox197 = Feuil5.[D17]
TextBox198 = Feuil5.[E17]
TextBox199 = Feuil5.[F17]
TextBox200 = Feuil5.[G17]
TextBox201 = Feuil5.[H17]
TextBox202 = Feuil5.[I17]
TextBox203 = Feuil5.[J17]
TextBox204 = Feuil5.[K17]
TextBox205 = Feuil5.[L17]
TextBox206 = Feuil5.[M17]
TextBox207 = Feuil5.[N17]
TextBox209 = Feuil5.[C18]
TextBox210 = Feuil5.[D18]
TextBox211 = Feuil5.[E18]
TextBox212 = Feuil5.[F18]
TextBox213 = Feuil5.[G18]
TextBox214 = Feuil5.[H18]
TextBox215 = Feuil5.[I18]
TextBox216 = Feuil5.[J18]
TextBox217 = Feuil5.[K18]
TextBox218 = Feuil5.[L18]
TextBox219 = Feuil5.[M18]
TextBox220 = Feuil5.[N18]
End Sub
Banzai64 merci pour la dernière fois.
Bonjour
C'est quasiment le même code
La dernière fois c'était l'écriture maintenant c'est la lecture : Il suffit juste d'inverser l'expéditeur et le destinataire
Private Sub CommandButton4_Click()
Dim Ligne As Long, Col As Integer, Indice As Integer
With Feuil5
For Ligne = 2 To 18
For Col = 1 To 12
Me.Controls("TextBox" & Indice + Col) = .Cells(Ligne, Col + 2)
Next Col
Indice = Indice + 13
Next Ligne
End With
End SubSalut Banzai64,
encore une fois merci. Je crois que sur ce coup là je n'ai pas trop réfléchis.
Très respectueusement.