Faire une macro vba
Fermé
carine11100
Messages postés
4
Date d'inscription
mercredi 18 novembre 2020
Statut
Membre
Dernière intervention
23 novembre 2020
-
18 nov. 2020 à 08:47
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 23 nov. 2020 à 10:35
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 23 nov. 2020 à 10:35
A voir également:
- Faire une macro vba
- Erreur 1004 vba ✓ - Forum VB / VBA
- Macro logiciel - Télécharger - Organisation
- Vba appeler une macro - Astuces et Solutions
- Macro recorder - Télécharger - Confidentialité
- Find vba - Astuces et Solutions
4 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
18 nov. 2020 à 10:53
18 nov. 2020 à 10:53
bonjour, souhaites-tu apprendre les macros?
carine11100
Messages postés
4
Date d'inscription
mercredi 18 novembre 2020
Statut
Membre
Dernière intervention
23 novembre 2020
18 nov. 2020 à 11:02
18 nov. 2020 à 11:02
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.
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
18 nov. 2020 à 11:53
18 nov. 2020 à 11:53
tu n'as pas précisé où les lignes copiées devaient arriver dans les autres onglets.
il faut copier d'un onglet vers tous les autres?
il faut copier d'un onglet vers tous les autres?
Carine
>
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
18 nov. 2020 à 12:15
18 nov. 2020 à 12:15
Bonjour
Pardon les lignes copiées vont aussi de A4 à A12 et oui 1 onglet vers tous les autres
Pardon les lignes copiées vont aussi de A4 à A12 et oui 1 onglet vers tous les autres
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
>
Carine
18 nov. 2020 à 16:28
18 nov. 2020 à 16:28
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
carine11100
Messages postés
4
Date d'inscription
mercredi 18 novembre 2020
Statut
Membre
Dernière intervention
23 novembre 2020
>
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
Modifié le 23 nov. 2020 à 11:50
Modifié le 23 nov. 2020 à 11:50
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
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
>
carine11100
Messages postés
4
Date d'inscription
mercredi 18 novembre 2020
Statut
Membre
Dernière intervention
23 novembre 2020
Modifié le 20 nov. 2020 à 13:34
Modifié le 20 nov. 2020 à 13:34
quelle erreur?
les lignes à copier sont-elles vides?
les lignes à copier sont-elles vides?
carine11100
Messages postés
4
Date d'inscription
mercredi 18 novembre 2020
Statut
Membre
Dernière intervention
23 novembre 2020
Modifié le 23 nov. 2020 à 11:50
Modifié le 23 nov. 2020 à 11:50
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")
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
23 nov. 2020 à 10:34
23 nov. 2020 à 10:34
pourquoi ne réponds-tu pas à mes questions?
quel message d'erreur?
es-tu certaine du nom de l'onglet source?
quel message d'erreur?
es-tu certaine du nom de l'onglet source?
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
23 nov. 2020 à 10:35
23 nov. 2020 à 10:35
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