Discussion :

[abouhossam]

bjr
j'ai un probl avec mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CBOK_Click()
Dim i As Byte
Dim sh As Worksheet
Application.ScreenUpdating = False
With UFdernierN° 'userform
If .TextBox1.Value > .TextBox2.Value Then
For i = 1 To .TextBox1.Value - .TextBox2.Value
    Set sh = Sheets("f1")
    sh.Copy before:=Sheets("Récap")
   Next
End If
End With
Sheets("f1").Select
Application.ScreenUpdating = True
End Sub

pour la 1ère fois il s'execute trés bien, mais lorsque je supprime les feuilles ajoutées et je voulais reexecuter la macro , elle me donne erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh.Copy before:=Sheets("Récap")

merci.

[laetitia]

bonjour abouhossam le forum la feuille "recap" tu la supprimes???

[abouhossam]

bjr laetitia
non,
je supprime que les feuilles ajoutés lors de l'execution de la macro.
je fais celà tout simplement pour réexecuter la macro.
merci

[fgiambelluco]

Bonjour

Et la feuille f1, elle existe toujours ?

Sinon, quel est le message d'erreur renvoyé ?

[abouhossam]

oui la feuille f1 existe
le message est :
La methode 'Copy' de l'objet '_Worksheet' a echoué
merci

[laetitia]

re , bonjour fgiambelluco le forum ton code est sense genérer combien de copy???
c'est bizarre j arrive pas a reproduire l'erreur si tu pouvais zipper un bout de ton fichier sans données confid....