Problème avec bouton (.Select ne marche plus)

[lestan]

Bonjour,

Tout d'abord merci pour votre future aide. Voilà mon problème :
J'ai une macro qui marche très bien dans le feuillet création mais qui plante dès que je la lie à un bouton (le bouton est sur la feuille classeur1 mais je ne suis pas sur que ce soit le prob car ma macro y était déjà).
A chaque fois c'est le .select qui marche pas dans le genre "erreur d'execution 9". Je pense pas que ce soit compliqué mais je ne suis pas très habitué aux boutons.

Voilà le début de mon code :

Workbooks("MiseenformeBT.xls").Activate


k = 2
For i = 2 To 1000
Worksheets("feuille1").Activate

If Cells(i, 14) = "" Then

Rows(i).Copy
Workbooks("MiseenformeBT.xls").Activate
Worksheets("VP").Activate

Range("A" & k).Select
ActiveSheet.Paste
k = k + 1

End If
Next

J'ai essayé d'autre partie de mon code (car il est long...) mais si c'est pas le range.select qui bug c'est le rows.select.

Please help
Merci encore

 

[RENAUDER]

Re : Problème avec bouton (.Select ne marche plus)

Bonjour,
Ce doit être autre chose car Range("A" & k).select fonctionne bien.
Ou s'arrête le programme ?

 

[jp14]

Re : Problème avec bouton (.Select ne marche plus)

Bonsoir

A priori le code correspond à la copie d'une ligne d'une feuille dans une autre feuille.
Ci dessous deux lignes de code qui ne pose pas de problème

    Sheets(£nomfeuilleorg).Rows(£i).Copy _
     Destination:=Sheets(£nomfeuilledest).Rows(£dl1)

A modifier en remplaçant les variables et à tester
A tester

JP

 

[lestan]

Re : Problème avec bouton (.Select ne marche plus)

Au pas à pas le programme s'arrete toujours à la selection
Merci

 

[skoobi]

Re : Problème avec bouton (.Select ne marche plus)

Bonsoir le fil lestan, jp14, Eric,

tout d'abord, pour ce que tu veux faire, ".Select" n'est pas très utile (ha cet enregistreur de macro 😡....), ou du moins pas pendant la copie.
Si à la fin de la copie, tu veux voir le résultat, utilise plutôt "Goto" comme ci-dessous:

k = 2
For i = 2 To 1000
  If Cells(i, 14) = "" Then
    Worksheets("feuille1").Rows(i).Copy Workbooks("MiseenformeBT.xls").Worksheets("VP").Range("A" & k)
    k = k + 1
  End If
Next
Application.Goto Workbooks("MiseenformeBT.xls").Worksheets("VP").Range("A2")