Probleme pour une Macro de copie

[sokour]

Bonjour a tous,

Voila, j'ai creer une macro qui demande a la personne de rentrer le numero de ligne concerne , puis de faire un copier coller (values) dans une autre feuille en fonction du numero de la ligne.
Mais voila, lors du copier coller ma macro bug.
Voici le code :

Private Sub CommandButton2_Click()

Dim ligne As Integer

ligne = InputBox("veuiller entrer la ligne concernè dans l'onglet NEW ")


If ligne = 1 Then
Sheets("Anciens").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("NEW").Select
Range("C8").select 'La macro bug la
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
End sub

Merci pour votre aide et votre temps

 

[Pierrot93]

Re : Probleme pour une Macro de copie

Bonjour Sokour

ton code semble correct, maintenant à voir si ta feuille n'est pas protégée ou s'il existe des cellules fusionnées. A noter qu'en vba les "select" sont rarement utiles, tu pourrais coder ainsi :

    Sheets("Anciens").Range("B12").Copy
    Sheets("NEW").Range("C8").PasteSpecial Paste:=xlPasteValues

bonne journée
@+

 

[Paritec]

Re : Probleme pour une Macro de copie

Bonjour sokour le forum,
mets ton fichier avec les explications dedans et tu auras ta réponse
a+
Papou

EDIT: bonjour Pierrot

 

[sokour]

Re : Probleme pour une Macro de copie

Merci Pierrot93, ta solution marche parfaitement