Fusionner avec logique 2 tables
Fermé
OliFo
Messages postés
4
Date d'inscription
mercredi 24 juin 2015
Statut
Membre
Dernière intervention
8 juillet 2016
-
8 juil. 2016 à 13:06
OliFo Messages postés 4 Date d'inscription mercredi 24 juin 2015 Statut Membre Dernière intervention 8 juillet 2016 - 8 juil. 2016 à 16:21
OliFo Messages postés 4 Date d'inscription mercredi 24 juin 2015 Statut Membre Dernière intervention 8 juillet 2016 - 8 juil. 2016 à 16:21
A voir également:
- Fusionner avec logique 2 tables
- Comment fusionner 2 pdf - Guide
- Fusionner 2 cellules excel - Guide
- Fusionner 2 fichiers excel - Guide
- Whatsapp avec 2 cartes sim - Guide
- Tables des matières word - Guide
1 réponse
mrjenkins
Messages postés
580
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
17 juillet 2018
102
8 juil. 2016 à 14:04
8 juil. 2016 à 14:04
Salut,
en VBA :
A tester pour les performances sur plusieurs milliers de ligne :)
--
en VBA :
Sub test()
Dim indusRow As Long, metierRow As Long, globalRow As Long
indusRow = 2 '1ère ligne du tableau industrie
globalRow = 2 '1ère du tableau global
While Cells(indusRow, "A").Value <> ""
'On boucle sur toutes les industries
metierRow = 2 '1ère ligne du tableau métier
While Cells(metierRow, "E").Value <> ""
If Cells(indusRow, "A").Value = Cells(metierRow, "E").Value Then
'Si le projet est le même, on extrait les données
Cells(globalRow, "H").Value = Cells(indusRow, "A").Value ' proje
Cells(globalRow, "I").Value = Cells(indusRow, "B").Value ' industrie
Cells(globalRow, "J").Value = Cells(metierRow, "F").Value ' métier
globalRow = globalRow + 1 'on descend d'une ligne dans le tableau global
End If
metierRow = metierRow + 1 'metier suivant
Wend
indusRow = indusRow + 1 'industrue suivante
Wend
End Sub
A tester pour les performances sur plusieurs milliers de ligne :)
--
8 juil. 2016 à 16:21