Bonsoir,
Je suis en train de fabriquer avec 10 userforms une suite de code pour faire des devis à partir d'une feuille Excel. Je l'ai presque finie. Je l'ai exécutée des dizaines de fois pour la faire évoluée. Et Soudainement Rien! Les userforms se déroulent bien mais plus rien ne s'écrit sur la feuille en cours!!
Pour écrire à la dernière ligne, j'ai utilisé ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim Var As Integer
 Var = i
 For i = 65000 To 29 Step -1
 If Cells(i, 2).Value > 0 Then
 Exit For
 End If
 Next i
Lors de la dernière exécution, j'ai eu le message d'erreur 1004 qui a surligné en jaune:
For i = 65000 To 29 Step -1

Pourtant, jusque la elle marchait. J'ai pu simulé de nombreux devis puis plus rien.
Merci pour votre aide. Xaphyr.