XL 2010 Simplifier le code

[Myst]

Bonjour le forum
Je voudrais simplifier le code qui comporte plus de 250 lignes
merci

 

[laetitia90]

re tous les 2 🙂🙂

si on veut pas modifier la police des cells on peut eventuellement manipuler Clear... a la place de ClearContents...

declarer les variables en byte suffisant

Dim z As Byte, J As Byte, i As Byte
With Sheets("ESSAI")
  .[A4:J140].Clear
  .[A4] = TextBox1.Value
   .[A4:b4].Interior.ColorIndex = 15
    z = 5: J = 1
  For i = 6 To 135
  If Me("TextBox" & i) <> "" Then
  .Cells(z, 2) = Me("TextBox" & i).Value
  z = z + 1
    End If
  If i = 31 Or i = 57 Or i = 83 Or i = 109 Then
  J = J + 1
  Cells(z, 1).Resize(, 2).Interior.ColorIndex = 15
  Cells(z, 1) = Me("TextBox" & J).Value: z = z + 1
  End If
  Next i
  End With

 

[Lone-wolf]

Hello re tout toute seule. 🙂😀

 

[Myst]

Bonjour
Juste pour dire MERCI, ca fonctionne nickel, sympa la petite touche féminine de Laetitia90
🙂🙂😀😀