XL 2019 direct plus rapide

  • Initiateur de la discussion Initiateur de la discussion frederio
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

frederio

XLDnaute Impliqué
Bonsoir a tous

Tu vous connais comment faire code vba

Je voudrais copie toujours la plage G5 à H375 Sur la 1ère feuille "JUPILER PRO LEAGUE" Et Sur la 2ère feuille "%" coller I5 à J409

La macro s'exécute en 0,10 seconde et peut aller plus vite.

Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci
 

Pièces jointes

Bonjour frederio,
Si tu veux être d’accord avec moi ???
Ben moi pas d'accord, c'est G4 et pas G5...

Et vous pourriez vous arranger pour qu'il y ait le même nombre de lignes vides entre les tableaux, non ?.

Mais bof lancez cette macro du Module1 :
VB:
Sub Transfert()
Dim source As Range, dest As Range, jour%
Set source = Sheets("JUPILER PRO LEAGUE").[G4:H12]
Set dest = Sheets("%").[I5:J13]
Application.ScreenUpdating = False
For jour = 1 To 34
    dest(0, -1) = "JOURNEE " & jour 'titre
    dest = source.Value 'copie les valeurs
    Set source = source.Offset(11)
    Set dest = dest.Offset(12)
Next
End Sub
Chez moi sur Win 11 Excel 2019 elle s'exécute en 3,6 secondes.

A+
 

Pièces jointes

En ajoutant les Application.Calculation l'exécution se réduit à 0,20 seconde :
VB:
Sub Transfert()
Dim source As Range, dest As Range, jour%
Set source = Sheets("JUPILER PRO LEAGUE").[G4:H12]
Set dest = Sheets("%").[I5:J13]
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For jour = 1 To 34
    dest(0, -1) = "JOURNEE " & jour 'titre
    dest = source.Value 'copie les valeurs
    Set source = source.Offset(11)
    Set dest = dest.Offset(12)
Next
Application.Calculation = xlCalculationAutomatic
End Sub
 

Pièces jointes

Si la feuille de destination est protégée il faut connaître le mot de passe, si c'est "toto" :
VB:
Sub Transfert()
Dim source As Range, dest As Range, jour%
Set source = Sheets("JUPILER PRO LEAGUE").[G4:H12]
Set dest = Sheets("%").[I5:J13]
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
dest.Parent.Protect "toto", UserInterfaceOnly:=True
For jour = 1 To 34
    dest(0, -1) = "JOURNEE " & jour 'titre
    dest = source.Value 'copie les valeurs
    Set source = source.Offset(11)
    Set dest = dest.Offset(12)
Next
Application.Calculation = xlCalculationAutomatic
End Sub
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
3
Affichages
597
Réponses
8
Affichages
618
Réponses
3
Affichages
532
Réponses
5
Affichages
466
Réponses
15
Affichages
2 K
  • Question Question
XL 2019 date
Réponses
4
Affichages
503
Réponses
2
Affichages
447
  • Question Question
XL 2019 enlever
Réponses
0
Affichages
390
Réponses
7
Affichages
798
Réponses
1
Affichages
672
Réponses
2
Affichages
431
Réponses
1
Affichages
830
Compte Supprimé 979
C
Réponses
5
Affichages
624
Réponses
2
Affichages
517
Réponses
5
Affichages
697
Compte Supprimé 979
C
Retour