Faire une macro vba
carine11100
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis en train de créer un fichier excel patients.
Je voudrais que les lignes de A4 à A11 de mon onglet appelé "seance1" se copie automatiquement sur les autres onglets "seance2" " seance 3" " seance 4" ect...
Je ne maitrise pas du tout les macros. J'ai bien essayé en allant sur plusieurs forum mais je suis en échec
Merci pour votre aide
Bonne journée
Carine
Je suis en train de créer un fichier excel patients.
Je voudrais que les lignes de A4 à A11 de mon onglet appelé "seance1" se copie automatiquement sur les autres onglets "seance2" " seance 3" " seance 4" ect...
Je ne maitrise pas du tout les macros. J'ai bien essayé en allant sur plusieurs forum mais je suis en échec
Merci pour votre aide
Bonne journée
Carine
A voir également:
- Faire une macro vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Arreter une macro vba ✓ - Forum VB / VBA
- Arrêt automatique macro ✓ - Forum Bureautique
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, souhaites-tu apprendre les macros?
Bonjour merci pour votre réponse. oui par la suite, je me pencherais dessus je suis assez autodidacte. Mais la c'est en urgence donc pas trop le temps.
suggestion:
Option Explicit Sub carine() Const nsource As String = "seance1" Dim rsource As Range, fdest As Worksheet Set rsource = Intersect(ThisWorkbook.Worksheets(nsource).UsedRange, ThisWorkbook.Worksheets(nsource).Range("4:11")) For Each fdest In ThisWorkbook.Worksheets If fdest.Name <> nsource Then rsource.Copy fdest.Range(rsource.Address).Resize(rsource.Rows.Count, rsource.Columns.Column) End If Next fdest End Sub
Bonjour
Merci beaucoup pour votre réponse
Quand j'execute la formule il me met une ligne en erreur
merci beaucoup pour votre aide
Merci beaucoup pour votre réponse
Quand j'execute la formule il me met une ligne en erreur
Set rsource = Intersect(ThisWorkbook.Worksheets(nsource).UsedRange, ThisWorkbook.Worksheets(nsource).Range("4:11"))
merci beaucoup pour votre aide
Bonjour
Merci pour votre aide mais j'ai toujours un message d'erreur sur la ligne suivante
Merci pour votre aide mais j'ai toujours un message d'erreur sur la ligne suivante
Set rsource = ThisWorkbook.Worksheets(nsource).Range("4:11")
Bonjour,
c'est parce que la syntaxe n'est pas bonne.
Voir ceci:
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
c'est parce que la syntaxe n'est pas bonne.
Voir ceci:
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy