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
FxM
Bonsoir,
Non testé et pas optimisé pour deux sous : Sub copie_un_a_L_autre() Windows("Insp_demo.xls:1").Activate For a = 1 To 250 Range("l" & (a - 1) * 40).Select Windows("Hyacinthe.xls").Activate Range("l" & (a - 1) * 40 & ":n" & ((a - 1) * 40)+23).Select Selection.Copy Windows("Insp_demo.xls:1").Activate ActiveSheet.Paste Next a End Sub
@+ FxM
Daniel wrote:
Bonjour à tous
J'ai une macro que je voudrait qui exécute 250 fois.
Comment faire ? (cette exemple est de 19 fois )
Sub copie_un_a_L_autre () ' Macro pour copier d'un fichier a l'autre ' (marquer les noms des fichiers et les cellules a copier )
Non testé et pas optimisé pour deux sous :
Sub copie_un_a_L_autre()
Windows("Insp_demo.xls:1").Activate
For a = 1 To 250
Range("l" & (a - 1) * 40).Select
Windows("Hyacinthe.xls").Activate
Range("l" & (a - 1) * 40 & ":n" & ((a - 1) * 40)+23).Select
Selection.Copy
Windows("Insp_demo.xls:1").Activate
ActiveSheet.Paste
Next a
End Sub
@+
FxM
Daniel wrote:
Bonjour à tous
J'ai une macro que je voudrait qui exécute 250 fois.
Comment faire ? (cette exemple est de 19 fois )
Sub copie_un_a_L_autre ()
' Macro pour copier d'un fichier a l'autre
' (marquer les noms des fichiers et les cellules a copier )
Non testé et pas optimisé pour deux sous : Sub copie_un_a_L_autre() Windows("Insp_demo.xls:1").Activate For a = 1 To 250 Range("l" & (a - 1) * 40).Select Windows("Hyacinthe.xls").Activate Range("l" & (a - 1) * 40 & ":n" & ((a - 1) * 40)+23).Select Selection.Copy Windows("Insp_demo.xls:1").Activate ActiveSheet.Paste Next a End Sub
@+ FxM
Daniel wrote:
Bonjour à tous
J'ai une macro que je voudrait qui exécute 250 fois.
Comment faire ? (cette exemple est de 19 fois )
Sub copie_un_a_L_autre () ' Macro pour copier d'un fichier a l'autre ' (marquer les noms des fichiers et les cellules a copier )
