Bonjour
J'ai lu des sujets sur l incrémentation des TextBox mais aprés avoir recopier le code ça ne fonctionne toujours pas
Je voudrais remplacer ça
L.Offset(-1, 5) = Trim(UCase(TextPar1.Text))
L.Offset(-1, 6) = Trim(UCase(TextPar2.Text))
L.Offset(-1, 7) = Trim(UCase(TextPar3.Text))
L.Offset(-1, 8) = Trim(UCase(TextPar4.Text))
L.Offset(-1, 9) = Trim(UCase(TextPar5.Text))
L.Offset(-1, 10) = Trim(UCase(TextPar6.Text))
L.Offset(-1, 11) = Trim(UCase(TextPar7.Text))
L.Offset(-1, 12) = Trim(UCase(TextPar8.Text))
L.Offset(-1, 13) = Trim(UCase(TextPar9.Text))
L.Offset(-1, 14) = Trim(UCase(TextPar10.Text))
L.Offset(-1, 15) = Trim(UCase(TextPar11.Text))
L.Offset(-1, 16) = Trim(UCase(TextPar12.Text))
L.Offset(-1, 17) = Trim(UCase(TextPar13.Text))
L.Offset(-1, 18) = Trim(UCase(TextPar14.Text))
L.Offset(-1, 19) = Trim(UCase(TextPar15.Text))
L.Offset(-1, 20) = Trim(UCase(TextPar16.Text))
L.Offset(-1, 21) = Trim(UCase(TextPar17.Text))
L.Offset(-1, 22) = Trim(UCase(TextPar18.Text))
Par
Dim L As Range
Dim i As Integer
Dim j As Integer
j = 4
For i = 0 To 18 Step 1
i = 1
i = i + 1
j = j + 1
L.Offset(-1, j) = Trim(TextPar & i).Text
Next i
Par avance merci pour votre aide
Message édité par thor76 le 18-10-2015 à 23:04:56