XL 2019 Recherche V

  • Initiateur de la discussion Initiateur de la discussion Al_0802
  • 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 !

Al_0802

XLDnaute Nouveau
Bonjour,

Je souhaiterais mettre les données de la feuille 2 dans la feuille 1 (Conca/Type de flux/ carburant)
Par une recherche V ou X.

J'ai fais un exemple très basique car, j'ai le même problème dans un fichier professionnel (je ne peux pas le mettre en ligne) avec plus de 6000 lignes.

Merci à vous,

Cdt
 

Pièces jointes

Solution
Bonsoir à toutes & à tous, bonsoir @Al_0802
Pour une recherche sur ville Départ & ville d'Arrivée avec la combinaison INDEX EQUIV
Pour l'info Concat :
VB:
=INDEX(Feuil2!$D$2:$D$29;EQUIV($A2&"¤"&$B2;Feuil2!$A$2:$A$29&"¤"&Feuil2!$B$2:$B$29;0))
Voir le fichier exemple
Amicalement
Alain
Bonsoir à toutes & à tous, bonsoir @Al_0802
Pour une recherche sur ville Départ & ville d'Arrivée avec la combinaison INDEX EQUIV
Pour l'info Concat :
VB:
=INDEX(Feuil2!$D$2:$D$29;EQUIV($A2&"¤"&$B2;Feuil2!$A$2:$A$29&"¤"&Feuil2!$B$2:$B$29;0))
Voir le fichier exemple
Amicalement
Alain
 

Pièces jointes

Bonjour Al_0802, AtTheOne,

Il s'agit de copier les colonnes, on peur utiliser ces macros dans le code de Feuil1 :
VB:
Private Sub Worksheet_Activate()
Application.EnableEvents = False 'désactive les évènements
Sheets("Feuil2").[A:B,D:F].Copy [A1]
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub
Elles se déclenchent quand on active la feuille ou qu'on modifie des cellules.

Testez sur un tableau de 10 000 lignes : l'exécution est immédiate.

A+
 

Pièces jointes

- 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éponses
40
Affichages
1 K
Réponses
19
Affichages
475
Réponses
5
Affichages
286
Réponses
1
Affichages
116
  • Question Question
Microsoft 365 Recherche V
Réponses
33
Affichages
1 K
Réponses
75
Affichages
1 K
Retour