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

Microsoft 365 Vba Index Equiv

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

eric72

XLDnaute Accro
Bonjour à tous,
j'ai un fichier avec des archives qui comprennent 3600 colonnes et 577 lignes, j'ai un planning dans lequel lorsque je selectionne une année et une semaine (date du 1er jour de la semaine le lundi), j'aimerais récupérer les infos indiquées dans les archives, j'ai un code qui fonctionne dans l'évènement de la feuille mais c'est long(et encore je l'ai fait que pour une équipe et il y en a 8, y-a-t-il un moyen d'accélerer ce code?
compte tenu du poids du fichier j'ai du réduire le nombre de lignes et colonnes.
Merci beaucoup pour votre aide
Eric
 

Pièces jointes

Solution
L
Re bonjour,
En déplaçant les lignes ici peut être. Attention, jy ai rajouté une ligne
Application.EnableEvents = False au DEBUT
Application.EnableEvents = True à la FIN

Pour le début
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("n4:t4")) Is Nothing Then Sheets("Planning").Range("al4:aq4").ClearContents
   If Not Intersect(Target, Range("al4:aq4")) Is Nothing Then
        If Sheets("Planning").Range("n4") <> "" And Sheets("Planning").Range("al4") <> "" Then
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
            Application.EnableEvents = False

et pour la fin
VB: 
    .[bk57].Value = Sheets("Archives").Cells(69, colcible5)...
Trier par date Trier par votes
Re bonjour,
En déplaçant les lignes ici peut être. Attention, jy ai rajouté une ligne
Application.EnableEvents = False au DEBUT
Application.EnableEvents = True à la FIN

Pour le début
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("n4:t4")) Is Nothing Then Sheets("Planning").Range("al4:aq4").ClearContents
   If Not Intersect(Target, Range("al4:aq4")) Is Nothing Then
        If Sheets("Planning").Range("n4") <> "" And Sheets("Planning").Range("al4") <> "" Then
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
            Application.EnableEvents = False

et pour la fin
VB: 
    .[bk57].Value = Sheets("Archives").Cells(69, colcible5): .[bl57].Value = Sheets("Archives").Cells(70, colcible5): .[bm57].Value = Sheets("Archives").Cells(71, colcible5): _
    .[bm62].Value = Sheets("Archives").Cells(72, colcible5): .[bm63].Value = Sheets("Archives").Cells(73, colcible5):
    
        Application.Calculation = xlCalculationAutomatic
        Application.EnableEvents = True
        Application.ScreenUpdating = False

    
    End With
Chez moi, c'est du coup "presque instantané"
@+ Lolote83
 
Vote positif 0 Vote négatif
Solution
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

Discussions similaires

  • Résolu(e)
XL 2019 Problème avec INDEX & EQUIV
Réponses
8
Affichages
315
Titof06
A
  • Question Question
Microsoft 365 Format de cellule - suite Formule Si(estna(index(equiv...
Réponses
3
Affichages
40
Armand11
A
E
  • Résolu(e)
XL 2019 index equiv avec decalage
Réponses
4
Affichages
627
escudo
E
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
73
piga25
M
  • Résolu(e)
Microsoft 365 Chargement table vba dans onglet
Réponses
8
Affichages
106
Mongo
M
  • Question Question
Microsoft 365 impliquer plusieurs recherche avec index equiv
2 3
Réponses
30
Affichages
1 K
TooFatBoy
E
  • Résolu(e)
Microsoft 365 duree macro trop longue
3 4 5
Réponses
66
Affichages
478
eric72
E
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
420
GClaire
G
R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
285
Rosario.
R
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
248
p56
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
259
aeca
A
J
  • Question Question
Microsoft 365 [RESOLU] vba dupliquer contenu d'une cellule en colonnes jusqu'à ligne vide
Réponses
3
Affichages
63
job75
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
515
Nel'
N
M
  • Question Question
Microsoft 365 Concatener avec Si et avec Index
Réponses
5
Affichages
341
mapomme
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
157
delsart59
D
D
  • Résolu(e)
Microsoft 365 planning repos tournant
Réponses
5
Affichages
566
piga25
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
72
vgendron
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
203
eric72
E
A
  • Question Question
XL 2019 Filtre avancé en VBA
Réponses
12
Affichages
692
Amilo
A
E
  • Question Question
Microsoft 365 TCD - problème actualisation champ date passe en chiffre
Réponses
2
Affichages
308
chris
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…