Recherchev resultats>1 sur # lignes à rapatrier sur # colonnes
Fermé
emi
-
Modifié par emi le 19/05/2016 à 15:41
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 22 mai 2016 à 19:06
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 22 mai 2016 à 19:06
A voir également:
- Recherchev resultats>1 sur # lignes à rapatrier sur # colonnes
- Comment faire des colonnes sur word - Guide
- Comment aller à la ligne sur excel - Guide
- Lexer resultats - Télécharger - Sport
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment déplacer une colonne sur excel - Guide
2 réponses
Fahora
Messages postés
814
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
2 janvier 2023
68
19 mai 2016 à 15:40
19 mai 2016 à 15:40
????
Comment veux tu qu'on fasse quoi que ce soit avec ça ?
Tu nous joins le fichier ? Où ça ?
Comment veux tu qu'on fasse quoi que ce soit avec ça ?
Tu nous joins le fichier ? Où ça ?
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
22 mai 2016 à 19:06
22 mai 2016 à 19:06
Bonjouyr
Avec une fonction personnalisée
Positionnez-vous en B2, puis dans la barre de formule tapez:
=RecherchesMultiples($A2;COLONNE())
Puis tirez la formule vars le bas et vers la droite.
Cdlt
Avec une fonction personnalisée
Function RecherchesMultiples(Matricule, Col) DerLigF1 = Sheets(1).[A1].End(xlDown).Row DerLigF2 = Sheets(2).[A1].End(xlDown).Row ReDim Imputation(DerLigF2) As String For i = 2 To DerLigF2 If Sheets(2).Cells(i, 1) = Matricule Then Imputation(i) = Sheets(2).Cells(i, 2) Next i Mat = 1 For i = 2 To DerLigF2 If Imputation(i) <> "" Then Mat = Mat + 1 If Mat = Col Then RecherchesMultiples = Imputation(i) Exit Function End If End If Next i If RecherchesMultiples = 0 Then RecherchesMultiples = "" End Function
Positionnez-vous en B2, puis dans la barre de formule tapez:
=RecherchesMultiples($A2;COLONNE())
Puis tirez la formule vars le bas et vers la droite.
Cdlt