Erreur sur une macro Résolu

Question

j'ai un mesage d'erreur sur cette macro et je sais pas pour quoi


Private Sub CommandButton2_Click()
Rows("2:2").Select
    Selection.Insert shift:=x1down, copyorigin:=x1formatfromleftorabove
    Range("T1").Select
    Selection.Copy
    Range("E3").Select
    Selection.PasteSpecial Paste:=x1PasteAll, Operation:=x1Multiply, _
        SkipBlanks:=False, Transpose:=False
    Unload UserForm1
    Load UserForm1
   UserForm1.Show
End Sub

Mike-31 · Answer

Bonsoir,

ces lignes de code ne veulent rien dire, 
Unload UserForm1 'cette ligne ferme l'userform qui n'est pas encore ouverte
Load UserForm1
UserForm1.Show ' cette ligne l'ouvre


regarde ton code comme cela
Private Sub CommandButton2_Click()
Rows("2:2").Select
Selection.Insert
Range("T1").Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
UserForm1.Show
End Sub

mzkcfrannat · Answer

merci la macro et ok

Mike-31 · Answer

Re,

alors je passe le statut de la discussion en résolu

Erreur sur une macro

3 réponses

Discussions similaires

Newsletters