Simplification de code

Question

J'aimerais un code plus simple que celui-ci qui me permettrait d'enregistrer de ma 2° à ma 13° référence Il y a a chaque fois un décalage de 3 colonnes. D'avance merci Private Sub BtnValidCréationOutil_Click() Worksheets("Source 3").Activate Dim L As Integer If MsgBox("Confirmez-vous l'insertion de ce nouveau Outillage ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then 'L = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select 'Pour placer le nouvel enregistrement ? la premi?re ligne de tableau non vide L = Sheets("Source 3").Range("a100000").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement ? la premi?re ligne de tableau non vide Range("A" & L).Value = TxtNuméroOutil.Value Range("B" & L).Value = CbxTypeOutil.Value Range("C" & L).Value = CbxMultiRef.Value 'Range("D" & L).Value = CbxMultiOp.Value Range("E" & L).Value = TxtDateCréatOutil.Value Range("F" & L).Value = CbxEtatOutil.Value Range("G" & L).Value = TxtNumPalette.Value Range("H" & L).Value = TxtNumOutilClient.Value '1° Référence Range("I" & L).Value = CbxRefLacour.Value Range("J" & L).Value = TxtNumOp.Value Range("K" & L).Value = TxtDésinOp.Value '2° Référence Range("O" & L).Value = ComboBox2.Value Range("P" & L).Value = TextBox29.Value Range("Q" & L).Value = TextBox20.Value '3° Référence Range("U" & L).Value = ComboBox3.Value Range("V" & L).Value = TextBox39.Value Range("W" & L).Value = TextBox30.Value '4° Référence Range("AA" & L).Value = ComboBox4.Value Range("AB" & L).Value = TextBox49.Value Range("AC" & L).Value = TextBox40.Value '5° Référence Range("AG" & L).Value = ComboBox5.Value Range("AH" & L).Value = TextBox59.Value Range("AI" & L).Value = TextBox50.Value '6° Référence Range("AM" & L).Value = ComboBox6.Value Range("AN" & L).Value = TextBox69.Value Range("AO" & L).Value = TextBox60.Value '7° Référence Range("AS" & L).Value = ComboBox7.Value Range("AT" & L).Value = TextBox79.Value Range("AU" & L).Value = TextBox70.Value '8° Référence Range("AY" & L).Value = ComboBox8.Value Range("AZ" & L).Value = TextBox89.Value Range("BA" & L).Value = TextBox80.Value '9° Référence Range("BE" & L).Value = ComboBox9.Value Range("BF" & L).Value = TextBox99.Value Range("BG" & L).Value = TextBox90.Value '10° Référence Range("BK" & L).Value = ComboBox10.Value Range("BL" & L).Value = TextBox109.Value Range("BM" & L).Value = TextBox100.Value '11° Référence Range("BQ" & L).Value = ComboBox11.Value Range("BR" & L).Value = TextBox119.Value Range("BS" & L).Value = TextBox110.Value '12° Référence Range("BW" & L).Value = ComboBox12.Value Range("BX" & L).Value = TextBox129.Value Range("BY" & L).Value = TextBox120.Value '13° Référence Range("CC" & L).Value = ComboBox13.Value Range("CD" & L).Value = TextBox139.Value Range("CE" & L).Value = TextBox130.Value End If...

AlgoPlus · Accepted Answer

Une solution à tester : .../... CB = 1 TB1 = 19 TB2 = 10 For i = 15 To 83 Step 6 CB = CB + 1 TB1 = TB1 + 10 TB2 = TB2 + 10 Cells(L, i).Value = Me.Controls("ComboBox" & CB).Value Cells(L, i + 1).Value = Me.Controls("TextBox" & TB1).Value Cells(L, i + 2).Value = Me.Controls("TextBox" & TB2).Value Next ... A+...