Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD