Coupler deux macros

[guigui4901]

Re bonsoir à tous

Bon, je souhaite créer un bouton pour que l'utilisateur puisse créer une nouvelle feuille (qui est une réplique d'une autre déjà existante.
J'ai écris cette macro

Sub creerfacture()
Sheets("Facture1").Select
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
Range("C10").Select
End Sub


jusque là tout va bien. Sauf que "Facture1" est couplée à un renommage automatique décrit ci dessous

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C10")) Is Nothing Then
ActiveSheet.Name = Range("C10")
End If
End Sub

Or, quant je copie par la première macro, cette deuxième macro n'est pas induite. Est il possible de mettre en place ces deux macro en conservant une seule action de l'utilisateur??

Merci beaucoup, bonne soirée

Guillaume

 

[Papou-net]

Re : Coupler deux macros

Bonsoir guigui4901,

C'est normal, car ta macro ajoute une feuille vierge, dans laquelle tu copies le contenu d'une autre feuille : les macros ne sont donc pas recopiées.

Tu dois donc copier la feuille intégralement, pour celà, modifie ta macro ainsi :

Sub creerfacture()
    Sheets("Facture1").Select
    Sheets("Facture1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Range("C10") = "****"
End Sub

Remplaces les * par une valeur de ton choix. Le nom de ta feuille se mettra alors à jour de façon automatique.

Espérant avoir répondu.

Cordialement.

 

[guigui4901]

Re : Coupler deux macros

super c'est genial...

vous êtes super sur ce forum, rapides, clairs, c'est un vrai plaisir.

J'en profite pour t'embêter encore un peu...

si justement à la place des étoiles je met = value

Je veux définir "value" comme "la dernière valeur de la colonne A de Feuil2" je dois écrire quoi???
Je sais pas si je suis très clair...

bonne soirée et merci

guillaume

 

[Robert]

Re : Coupler deux macros

Bonsoir le fil bonsoir le forum,

La réponse était aussi sur ton aute post... Sans passer par une variable :

ActiveSheet.Range("C10") = Sheets("Feuil2").Range("A65536").End(xlUp).Value