Macro qui copie colle des valeurs dans une autre feuille
Hello,
blocage tout bête dans mon projet vba : j ai inserer en feuille 1 un bouton de commade qui copie colle les donnees des colonnes A,E,Q,J et R de ma feuille 1 dans les colonnes B,C,D,E,F de ma feuille 2
Mon problem est que je souhaite que ma macro copie colle les valeurs et non pas les formules ce qui correspond manuellement a un copy/paste special ou on selectionne les valeurs ( vous savez le petit logo avec marquer 1,2,3 dessus)
Voici mon code:
Private Sub CommandButton3_Click()
Worksheets(1).Range("A2:A500").Copy Destination:=Worksheets(2).Range("B2:A500")
Worksheets(1).Range("E2:E500").Copy Destination:=Worksheets(2).Range("C2:B500")
Worksheets(1).Range("Q2:Q500").Copy Destination:=Worksheets(2).Range("D2:C500")
Worksheets(1).Range("J2:J500").Copy Destination:=Worksheets(2).Range("E2:D500")
Worksheets(1).Range("R2:R500").Copy Destination:=Worksheets(2).Range("F2:E500")
End Sub
Que dois je rajouter pour que le collage special marche ?
Merci
bonjour,
Essaie :
Private Sub CommandButton3_Click()
Dim a
a = Worksheets(1).Range("A2:A500").Value
Worksheets(2).Range("B2:B500") = a
a = Worksheets(1).Range("E2:E500").Value
Worksheets(2).Range("C2:C500") = a
a = Worksheets(1).Range("Q2:Q500").Value
Worksheets(2).Range("D2:D500") = a
a = Worksheets(1).Range("J2:J500").Value
Worksheets(2).Range("E2:E500") = a
a = Worksheets(1).Range("R2:R500").Value
Worksheets(2).Range("F2:F500") = a
End SubA+
Tu assures
merci beaucoup