[Resolu] Synthese de 2 tableau par Macro

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 !

christ-94

XLDnaute Occasionnel
Bonjour

J'ai un fichier avec 2 onglets
le premier "Autocad_txt" est un tableau avec les champs suivant
-Surface
-Bureau
-Type

Le deuxième "Extraction_occupants" est un tableau avec:
-Poste de travail
-Bureau
-Direction
-Trames
-Coherence


ce que je souhaite est la création d'un tableau de synthèse des deux tableaux dans l'onglets "Mise_a_jour"




Cordialement et merci de votre aide
 

Pièces jointes

Dernière édition:
Re : Synthese de 2 tableau par Macro

Bonjour JHA
merci pour ta solution qui fonctionne, mais je suis incapable de l’intégré dans une macro

par contre j'ai un début de piste avec ce code qui fonctionne bien , mais il est super long
j 'ai plus de 800 lignes

Sub Macro052()
'
' Macro2 Macro
Sheets("Autocad_txt").Columns("A:C").Copy
Sheets("Mise_a_jour").Select
Range("A1").Select
ActiveSheet.Paste
fin = Range("c65536").End(xlUp).Row
fin2 = Sheets("Extraction_occupants").Range("c65536").End(xlUp).Row

For i = 2 To fin
For t = 2 To fin2

Range("H1") = Sheets("Mise_a_jour").Range("B" & i)
Range("i1") = Sheets("Extraction_occupants").Range("B" & t)
If Sheets("Mise_a_jour").Range("B" & i) = Sheets("Extraction_occupants").Range("B" & t) Then
Sheets("Extraction_occupants").Range(("A") & t & ":e" & t).Copy
Sheets("Mise_a_jour").Range(" D" & i).Select
ActiveSheet.Paste

End If

Next t
Next i

End Sub

Cordialement
 
- 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
11
Affichages
361
Réponses
24
Affichages
799
Retour