Erreur sur une macro
Résolu
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
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
3 réponses
-
Re,
alors je passe le statut de la discussion en résolu
-
merci la macro et ok
-
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 celaPrivate 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
