Re : probleme avec mon vba
Bonjour.
Je pense qu'il faut modifier ainsi.
tu fait une boucle de 1 à 8, mais tes colonnes commencent à 2
A contrôler...
Private Sub C4_Click()
Dim i&, memo$
If ListBox1.ListIndex = -1 Then Exit Sub
If lig = 0 Then lig = ListBox1.List(ListBox1.ListIndex, 15)
With Feuil11
For i = 1 To 8
If IsNumeric(Controls("T" & i + 1)) Then
Feuil11.Cells(lig, i + 1) = Controls("T" & i + 1) * 1
Else
Feuil11.Cells(lig, i + 1) = Controls("T" & i + 1)
End If
Next i
End With
memo = T1
Unload MODIFIERSUPPRIMER
MODIFIERSUPPRIMER.T1 = memo
MODIFIERSUPPRIMER.Show
End Sub