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:
Lors de la dernière exécution, j'ai eu le message d'erreur 1004 qui a surligné en jaune:
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
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.
Partager