Bonjour,
je voudrais savoir s'il est possible dans mon code VBA de faire suivre
plusieurs "dim"? En effet, il me faut copier plusieurs feuilles de mon
fichier source vers des fichiers cibles différents. Puis - je faire suivre
mon code VBA suivant en le répétant ? Merci. YANN
Sub CopierFeuille()
Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-AEC.xls").Worksheets(5).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-AGNES.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
' 'ici, je recopierais le même code en
l'adaptant
End SUb
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir , tu peux aussi faire une liste de tes range et passer Rg en paramêtre de CopierFeuille
ici un exemple avec un string ou monmess symbolise copier feuille et laliste une plage contenant les noms des range:
Sub monmess(rg As String) MsgBox "la cellule contient: " & rg End Sub
Sub laliste() Dim c For Each c In Range("c3:c5") monmess (c) Next End Sub
"YANN24" a écrit dans le message de news:
Bonjour, je voudrais savoir s'il est possible dans mon code VBA de faire suivre plusieurs "dim"? En effet, il me faut copier plusieurs feuilles de mon fichier source vers des fichiers cibles différents. Puis - je faire suivre mon code VBA suivant en le répétant ? Merci. YANN
Sub CopierFeuille() Dim Rg As Range Application.ScreenUpdating = False 'Classeur Source Set Rg = Workbooks("Fiche-AEC.xls").Worksheets(5).Range("A2:E65536") Rg.Copy 'Classeur destination With Workbooks("Fiche-AGNES.xls").Worksheets(1) .Activate .Range("A1").Activate .Paste .Range("A1").Select End With Rg.Parent.Activate Application.CutCopyMode = False Set Rg = Nothing ' 'ici, je recopierais le même code en l'adaptant End SUb
Bonsoir ,
tu peux aussi faire une liste de tes range
et passer Rg en paramêtre de CopierFeuille
ici un exemple avec un string ou monmess symbolise copier feuille et
laliste une plage contenant les noms des range:
Sub monmess(rg As String)
MsgBox "la cellule contient: " & rg
End Sub
Sub laliste()
Dim c
For Each c In Range("c3:c5")
monmess (c)
Next
End Sub
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
E8DA784B-80DE-429E-A29D-C32F05990D89@microsoft.com...
Bonjour,
je voudrais savoir s'il est possible dans mon code VBA de faire suivre
plusieurs "dim"? En effet, il me faut copier plusieurs feuilles de mon
fichier source vers des fichiers cibles différents. Puis - je faire suivre
mon code VBA suivant en le répétant ? Merci. YANN
Sub CopierFeuille()
Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-AEC.xls").Worksheets(5).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-AGNES.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
' 'ici, je recopierais le même code en
l'adaptant
End SUb
Bonsoir , tu peux aussi faire une liste de tes range et passer Rg en paramêtre de CopierFeuille
ici un exemple avec un string ou monmess symbolise copier feuille et laliste une plage contenant les noms des range:
Sub monmess(rg As String) MsgBox "la cellule contient: " & rg End Sub
Sub laliste() Dim c For Each c In Range("c3:c5") monmess (c) Next End Sub
"YANN24" a écrit dans le message de news:
Bonjour, je voudrais savoir s'il est possible dans mon code VBA de faire suivre plusieurs "dim"? En effet, il me faut copier plusieurs feuilles de mon fichier source vers des fichiers cibles différents. Puis - je faire suivre mon code VBA suivant en le répétant ? Merci. YANN
Sub CopierFeuille() Dim Rg As Range Application.ScreenUpdating = False 'Classeur Source Set Rg = Workbooks("Fiche-AEC.xls").Worksheets(5).Range("A2:E65536") Rg.Copy 'Classeur destination With Workbooks("Fiche-AGNES.xls").Worksheets(1) .Activate .Range("A1").Activate .Paste .Range("A1").Select End With Rg.Parent.Activate Application.CutCopyMode = False Set Rg = Nothing ' 'ici, je recopierais le même code en l'adaptant End SUb
