bonjour le forum
j'ai une macro qui fonctionne bien si je la déclanche en direct(outil/macro)
par contre si je l'integre dans une commandebouton elle bloque
macro direct ok
Sub commande_ancv_exterieur()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub
macro commandebouton
Private Sub CommandButton4_Click()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select (elle bloque sur cette ligne)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub
merci
phil69
j'ai une macro qui fonctionne bien si je la déclanche en direct(outil/macro)
par contre si je l'integre dans une commandebouton elle bloque
macro direct ok
Sub commande_ancv_exterieur()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub
macro commandebouton
Private Sub CommandButton4_Click()
Range("T6").Value = Range("B2").Value
Range("V6").Value = Range("O2").Value
Range("W6").Value = Range("O3").Value
Range("T6:W6").Select
Selection.Copy
Sheets("ancvexterieur").Select
Range("A200").End(xlUp).Offset(1, 0).Select (elle bloque sur cette ligne)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("saisie").Select
Range("h2").Select
End Sub
merci
phil69