Recherchev resultats>1 sur # lignes à rapatrier sur # colonnes
emi
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai besoin de rapatrier différents résultats d'une rechercheV dans différentes colonnes
Ci-dessous un modèle de base
Merci à vous tous
Feuille 1 (avec formule)
A B C D E
matricule imputation1 imputation2 imputation3 imputation4
1234 mep ghh
2345 ois
5698 fsd ddq
4444 gds
Feuille 2 - Fichier base
A
matricule imputation
1234 mep
2345 ois
1234 ghh
5698 fsd
4444 gds
5698 ddq
Le fichier 1 étant le fichier ou doivent être rapatrier les données du fichier 2
J'ai besoin de rapatrier différents résultats d'une rechercheV dans différentes colonnes
Ci-dessous un modèle de base
Merci à vous tous
Feuille 1 (avec formule)
A B C D E
matricule imputation1 imputation2 imputation3 imputation4
1234 mep ghh
2345 ois
5698 fsd ddq
4444 gds
Feuille 2 - Fichier base
A
matricule imputation
1234 mep
2345 ois
1234 ghh
5698 fsd
4444 gds
5698 ddq
Le fichier 1 étant le fichier ou doivent être rapatrier les données du fichier 2
A voir également:
- Recherchev resultats>1 sur # lignes à rapatrier sur # colonnes
- Comment faire des colonnes sur word - Guide
- Resultats foot - Télécharger - Vie quotidienne
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment déplacer une colonne sur excel - Guide
- Aller à la ligne sur excel - Guide
2 réponses
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
