Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

optimisation code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bdieng
  • 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 !

S'inscrire
B

Bdieng

Guest
Bonjour à tous,
Pouvez-vous m’aider à optimiser mon code ci-dessous?
L’idée c’est que je veux ramener sur mon onglet « Summary_Proj. Num » les valeurs qui sont dans un autre onglet « Sales Orders_Proj. Num. » en fonction des valeurs qui sont sur ma 1ère colonne. J’ai utilisé le vlookup, mais le temps d’exécution est trop long.

i = 2
With Worksheets("Summary_Proj. Num.")
While Cells(i, 1) <> ""
Cells(i, 2) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 2, False)
Cells(i, 3) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 3, False)
Cells(i, 4) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 7, False)
Cells(i, 5) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 6, False)
Cells(i, 6) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 9, False)
Cells(i, 7) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 8, False)
Cells(i, 8) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 11, False)
Cells(i, 9) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 10, False)
Cells(i, 10) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 13, False)
Cells(i, 11) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 12, False)
Cells(i, 12) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 15, False)
Cells(i, 13) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 14, False)
Cells(i, 14) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 17, False)
Cells(i, 15) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 16, False)
Cells(i, 16) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 19, False)
Cells(i, 17) = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 18, False)
i = i + 1
Wend
End With
'
merci d'avance
 
Trier par date Trier par votes
Re : optimisation code VBA

Bonjour le fil, bonjour le forum,

peut-être comme ça :

Code: 
Sub Macro2()
Dim pl As Range
Dim i As Long
 
With Sheets("Sales Orders_Proj. Num.")
    Set pl = .Range("C6:C" & Range("C65536").End(xlUp).Row)
End With
 
With Worksheets("Summary_Proj. Num.")
    For i = 2 To .Range("A65536").End(xlUp).Row
        Cells(i, 2) = WorksheetFunction.VLookup(Cells(i, 1), pl, 2, False)
        Cells(i, 3) = WorksheetFunction.VLookup(Cells(i, 1), pl, 3, False)
        Cells(i, 4) = WorksheetFunction.VLookup(Cells(i, 1), pl, 7, False)
        Cells(i, 5) = WorksheetFunction.VLookup(Cells(i, 1), pl, 6, False)
        Cells(i, 6) = WorksheetFunction.VLookup(Cells(i, 1), pl, 9, False)
        Cells(i, 7) = WorksheetFunction.VLookup(Cells(i, 1), pl, 8, False)
        Cells(i, 8) = WorksheetFunction.VLookup(Cells(i, 1), pl, 11, False)
        Cells(i, 9) = WorksheetFunction.VLookup(Cells(i, 1), pl, 10, False)
        Cells(i, 10) = WorksheetFunction.VLookup(Cells(i, 1), pl, 13, False)
        Cells(i, 11) = WorksheetFunction.VLookup(Cells(i, 1), pl, 12, False)
        Cells(i, 12) = WorksheetFunction.VLookup(Cells(i, 1), pl, 15, False)
        Cells(i, 13) = WorksheetFunction.VLookup(Cells(i, 1), pl, 14, False)
        Cells(i, 14) = WorksheetFunction.VLookup(Cells(i, 1), pl, 17, False)
        Cells(i, 15) = WorksheetFunction.VLookup(Cells(i, 1), pl, 16, False)
        Cells(i, 16) = WorksheetFunction.VLookup(Cells(i, 1), pl, 19, False)
        Cells(i, 17) = WorksheetFunction.VLookup(Cells(i, 1), pl, 18, False)
    Next i
End With
End Sub
 
Vote positif 0 Vote négatif
Re : optimisation code VBA

Code: 
ligne =WorksheetFunction.equiv(Cells(i, 1), Sheets("Sales Orders_Proj. Num.").Range("$C$6:$AM$65000"), 0)
cells(i,2)=Sheets("Sales Orders_Proj. Num.").cells(i+ligne,8)
.....

un truc dans ce genre la
pas tester et il faut peut etre le nom de "equiv" en anglais
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
245
treza88
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
486
Electron24
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
185
deudecos
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
489
sylvanu
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
528
patricko-13
P
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
397
job75
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
825
KRUG WOO
K
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
574
badraaliou4
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
909
picc
P
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
458
CDALE
C
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
830
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…