XL 2019 Recherche V

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

  • Classeur1.xlsx
    17 KB · Affichages: 13
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

AtTheOne

XLDnaute Impliqué
Supporter XLD
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

  • exemple.xlsx
    14.5 KB · Affichages: 11

job75

XLDnaute Barbatruc
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

  • Classeur VBA(1).xlsm
    18.6 KB · Affichages: 6

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16