Copie de macro

[jofdm]

Bonjour,

Voici mon problème : j'ai une feuille Excel dans laquelle j'ai créé une macro.
Je souhaite utiliser cette feuille comme matrice, c'est-à-dire la copier, la renommer pour pouvoir ensuite y saisir mes données et utiliser la macro.
Mon souci c'est que lorsque je fais cette opération, la macro ne fonctionne pas sur ma feuille nouvellement créée, mais toujours sur la matrice.
Comment faire ?
Merci d'avance pour votre aide

Olivier

 

[jofdm]

Re : Copie de macro

Oui ... J'avoue ne pas comprendre

 

[jofdm]

Re : Copie de macro

Bonjour Staple1600,

Petite précision concernant les fichiers que tu m'as envoyés :

- je te confirme que cela ne fonctionne pas pour le dernier (testChroma2)
- par contre, la FicheChroma2, telle que tu me l'as envoyée (c'est-à-dire avec la feuille Liste Ech contenant déjà des données), fonctionne. Par contre, si je supprime les données dans la feuille Liste Ech, il m'est alors impossible d'en ajouter de nouvelles.

Encore merci de ton aide

 

[jofdm]

Re : Copie de macro

Up ..........

 

[Staple1600]

Re : Copie de macro

Bonjour


Théoriquement cela fonctionne maintenant?

Sub Macro1()
'essai 2 S1600
'/////////////
'Déclarations
Dim debut As Long
Dim fin As Long
Dim ou_debut 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 d ela feuille "Liste Ech"
ou_debut = Sheets("Liste Ech").[B][B65000].End(xlUp)[/B].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"
MsgBox ou_debut
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

 

[jofdm]

Re : Copie de macro

Bonjour Staple1600,

Il y a quelques jours, tu m'as donné un code de macro et je t'en remercie : ça marche nickel.
Je voudrais toutefois y apporter une petite modification, c'est pourquoi je fais appel à tes connaissances (j'ai eu beau me creuser la tête, je ne suis pas arrivé à mes fins).
Je t'expose le problème : je me suis aperçu que, suivant le code que tu m'avais donné, la cellule "méthode" recopiée était toujours la même (celle de la feuille "RUSH") et non pas celle de la feuille active (voir fichier ci-joint)
Est-il possible de résoudre ce léger souci ?

Merci d'avance pour ton aide,

Bonne journée et @+