Copie de macro

D

dixit

XLDnaute Impliqué

• 6 Juillet 2007

• #2

Re : Copie de macro

bonjour,
tout dépend de ce que traite la macro
un classeur exemple serait utile.

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 6 Juillet 2007

• #3

Re : Copie de macro

bonjour,
ne connaissant pas ton fichier ça va être difficile de trouver la bonne réponse à ton problème... (un petit exemple peut-être?)
sinon une première idée:
tu renommes ta feuille donc si ta macro contient une ligne qui selectionne ta feuille d'origine

___du style sheets("tafeuille").select___

elle plantera !
changer le nom par celui du nouvel onglet
à+

edit: bonjour dixit pardon pour la collision

 

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 6 Juillet 2007

• #4

Re : Copie de macro

Merci pour vos réponses.
Effectivement, la macro sélectionne la feuille de départ.
y a-t-il un moyen d'automatiser le changement de nom de feuille ?
Je vous joins le fichier ce coup ci, c'est plus pratique😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Juillet 2007

• #5

Re : Copie de macro

Bonjour


Ta macro est dans un module
ou dans le code de la feuille?

PS: ton fichier n'a pas été joint

 

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 6 Juillet 2007

• #6

Re : Copie de macro

Bonjour Staple 1600,
Je ne peux répondre à ta question car tu fais appel à des connaissances que je ne possède pas.
Pour le fichier je n'y arrive pas par le biais du forum donc voici un lien direct Index of /

Encore merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Juillet 2007

• #7

Re : Copie de macro

Bonsoir


Voici ton fichier un peu modifié

J'ai modifié la macro du bouton 1 de la feuille RUSH

Essaye et dis moi si tu ne comprends pas la macro

Questions:
Tu comptes mettre un bouton pour chaque ligne remplie dans la feuille RUSH?

Suggestion:
Tu pourrais utilsser un seul bouton qui en fonction de la cellule active
(ActiveCell en VBA)
recopie les donnée dans ta feuille Liste Ech
en identifiant la première cellule vide de la colonne au doit commencer
la recopie de la ligne saisie dans la feuille RUSH
(j'espère que je suis clair dans mes explications)

 

Dernière édition: 25 Novembre 2010

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Juillet 2007

• #8

Re : Copie de macro

Re

Ci-joint une proposition avec un seul bouton

Voir commentaire dans Macro1

En espérant que cela te convienne.

 

Dernière édition: 25 Novembre 2010

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 9 Juillet 2007

• #9

Re : Copie de macro

Salut Staple1600,

Tout d'abord toutes mes excuses pour ne te répondre qu'aujourd'hui mais mon WE a été pour le moins perturbé (accident de voiture).
Je te remercie beaucoup pour ton aide.
Pour répondre à tes questions, si j'avais mis un bouton par ligne, c'est parce que je ne savais pas comment ne mettre qu'un seul et unique bouton.

J'ai testé les fichiers que tu m'as envoyés :

- la fiche chroma 1 fonctionne exactement comme je le souhaitais au niveau de la possibilité de recopier la feuille tout en gardant la macro fonctionnelle. La seule option qu'il me manque est l'insertion automatique d'une ligne après la recopie des données, de façon à avoir toujours la ligne 6 vierge pour venir y ajouter les données au fur et à mesure.

- la fiche chroma 2, avec un seul bouton, ne fonctionne pas.

Si tu as le temps d'y jeter un oeil ce serait super sympa car, comme tu as pu t'en rendre compte, je ne connais malheureusement rien à la programmation en Visual Basic, je me contente de bidouiller.

Merci et @+

Olivier

 

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 10 Juillet 2007

• #10

Re : Copie de macro

Up........

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2007

• #11

Re : Copie de macro

Bonjour

Cette macro (que j'ai mise dans fichier Chroma2) fonctionne sur mon PC

Code:

Sub Macro1()
'essai 2 S1600
'/////////////
'Déclarations
Dim debut As Long
Dim fin As Long
Dim Ligne_A_Copier As Range
'////////////////////////////////////
debut = ActiveCell.Row 'numéro de la ligne active
fin = ActiveCell.End(xlToRight).Column 'numéro de la dernière colonne
'de la plage à copier
'/////////////////////////////////////
'plage à copier
Set Ligne_A_Copier = Range(Cells(debut, 2), Cells(debut, fin))
'détermination de la dernière cellule non vide
'dans la colonne B de la feuille "Liste Ech"
ou_debut = Sheets("Liste Ech").[B6].End(xlDown).Row
'vérification que la celluel active est dans la
'colonne B
If ActiveCell.Column <> 2 Then
'Message d'avertissement
MsgBox "Veuillez sélectionner première cellule de la ligne à copier"
Exit Sub
Else
'recopie des données dans la feulle "Liste Ech"
Ligne_A_Copier.Copy Sheets("Liste Ech").Range("B" & ou_debut + 1)
Sheets("RUSH").[F2].Copy Sheets("Liste Ech").Cells(ou_debut + 1, 7)
End If
End Sub

Qu'est-ce qui ne marche pas exactement?



PS: pas trop de dégats dans l'accident?

 

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 10 Juillet 2007

• #12

Re : Copie de macro

Bonjour,

Sur mon PC, lorsque je clique sur le bouton GO, aucune des données de la feuille RUSH n'est envoyée dans la feuille Liste Ech.
Par contre, d'autres éléments de la mcro fonctionnent : si dans la feuille RUSH, je ne pointe pas sur le 1ère cellule de la ligne à copier, j'ai bien le message d'erreur.

Sinon, pour l'accident, dégât matériel important puisque la voiture est morte : je me suis fait percuter à hauteur de la roue avant gauche par un mec qui a grillé le feu rouge (à une vitesse importante puisque en pleine accélération pour tenter de passer à l'orange) et qui, pour couronner le tout, circulait en état d'ivresse avancé.

Merci de ton aide et @+

Olivier

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2007

• #13

Re : Copie de macro

Re

'vérification que la celluel active est dans la
'colonne B
If ActiveCell.Column <> 2 Then

Cliquez pour agrandir...

Pour que la macro fonctionne (pour le moment)

Il faut sélectionner une cellule dans la colonne B de RUSH

Bx x étant le numéro de la line que l'on vient de saisir
puis là appuyer sur GO

ce qui copie cette ligne dans List Ech
dans la première ligne vide

Chez moi ca fonctionne

voir fichier joint pour test

 

Dernière édition: 25 Novembre 2010

Vote positif 0 Vote négatif

J

jofdm

XLDnaute Occasionnel

• 10 Juillet 2007

• #14

Re : Copie de macro

Rien à faire chez moi : j'ai beau suivre tes instructions à la lettre, les données ne sont pas transférées dans la "Liste Ech" 😕

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2007

• #15

Re : Copie de macro

Avec le dernier fichier que j'ai envoyé?


Ou il n'y a que les feuilles RUSH et List Ech?

 

Vote positif 0 Vote négatif