Bonjour
@saddoud w ,
Apparemment, tu n'as pas consulté la charte du Forum. Je te conseille de la lire.
Normal que ça plante, tu boucles sur toutes les données de la Listbox. Il se trouve que certaines données ne sont pas numériques et ça plante.
Je constate que ce n'est pas vraiment toi qui code. Tu effectues plusieurs fois la même boucle à plusieurs reprises. Sans compter la boucle de la procédure cumul qui est incomplète.
Bonne continuation.
Premièrement : merci infiniment pour votre aide car j’ai anneler de bouclé tout et j’ai réussie avec ce code
If .ListCount - 1 >= 2 Then
Rows("12:" & 11 + .ListCount - 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
For x = 0 To .ListCount - 1
ActiveSheet.Range("A7").Offset(x, 0) = .List(x, 0)
ActiveSheet.Range("A7").Offset(x, 1) = .List(x, 1)
ActiveSheet.Range("A7").Offset(x, 2) = .List(x, 2)
ActiveSheet.Range("A7").Offset(x, 3) = CDbl(.List(x, 3))
ActiveSheet.Range("A7").Offset(x, 4) = CDbl(.List(x, 4))
ActiveSheet.Range("A7").Offset(x, 5) = CDbl(.List(x, 5))
Next x
Deuxièmes chose que je veux éclaircir c’est que mon programme et un peu grand (6 userform et 4 feuilles) et plain de donnés à remplir et pour ne pas vous faire fatigué j’ai demandé l’aide sur le 6éme userforme (que je viens de le copier pour minimiser la recherche) … je traverse mon chemin pour être plus pratiquant sur Excel et je demande de l’aide à chaque fois que je coince et chaque fois j’essais de adapter les codes pour terminer ce programme (que c’est fait avec votre aide) pour cela que vous trouvez par fois des codes un peu bizarre … merci encore