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
- Macro word - Guide
- Arreter une macro vba ✓ - Forum VB / VBA
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