VBA. Pourquoi ai-je une erreur.

[mécano41]

Bonjour,

J'ai eu a faire un petit bout de VBA pour copier des cellules et faire suivre un bouton. Dans la version 2 jointe, j'ai une erreur que je ne comprends pas. S'il n'y a pas la routine de déplacement du bouton, l'autre routine fonctionne.

J'ai fait autrement dans la version 3 jointe et cela marche.

Quelqu'un peut-il m'expliquer pourquoi.

Merci d'avance

Cordialement

 

[Catrice]

Re : VBA. Pourquoi ai-je une erreur.

Bonsoir,

Je n'ai pas trop regardé pourquoi ça ne fonctionnait pas mais j'ai un peu simplifié le code :

Private Sub BoutonCopierColler_Click()
Dim X
Worksheets("feuil1").Activate
If Range("F65536").End(xlUp).Row = 1 Then X = 5 Else X = Range("F65536").End(xlUp).Row + 1
Selection.Offset(0, 0).Resize(1, 2).Copy (Cells(X, 6))
End Sub

Voir piece jointe.

 

[mécano41]

Re : VBA. Pourquoi ai-je une erreur.

Bonjour,

Merci pour cette réponse. c'est effectivement plus simple (et en plus ça marche!)

Cordialement