Bonjour,

je reviens à nouveau vers vous concernant un obstacle que je rencontre dans ma quête VBA.

J'ai mis en place une formule coller que vous trouverez ci dessous, celle ci fonctionne à merveille la première foi, mais si on relance la macro, la fonction .past plante et je ne m'explique pas pourquoi.

Des idées, des intox et même des solutions seraient les bienvenues !!

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
16
17
18
Private Sub CommandButton1_Click()
 
On Error GoTo errorHandler
 
Feuil1.Unprotect 
 
    Range("A34:H53").Select
    ActiveSheet.Paste
 
Feuil1.Protect 
 
Exit Sub
 
errorHandler:
    Userform1.Show
    Feuil1.Protect 
 
End Sub
Cordialement.