Remplir un tableau à partir d'un autre tableau

Bonjour,
La macro:
Sub extraire()
Application.ScreenUpdating = False 'pas d'affichage=gain de temps
'déclaration des variables
Dim Montab, i As Long, j As Long, c As Range, ws As Worksheet, lig As Long, k As Long, dl As Integer
Set ws = Sheets("Comptes par groupe et CC")
Sheets("Extraction données").Select
Montab = Range("A1").CurrentRegion 'converti les données en tableau
' compare si "comptes.."A1"=extrac"AI" si oui recopie les données
Sheets("Non traité").Cells.ClearContents 'efface la feuille non traité
For i = 2 To UBound(Montab, 1) 'boucle sur le tableau
Set c = ws.Columns(1).Find(Montab(i, 35)) 'recherche dans la colonne 1 extrac"AI"
If c Is Nothing Then 'si trouve pas
dl = Sheets("Non traité").Range("A" & Rows.Count).End(xlUp).Row + 1'dernière ligne des nontraité+1
Sheets("Non traité").Range("A" & dl).Value = Montab(i, 35)
Sheets("Non traité").Range("B" & dl).Value = i
Else
lig = c.Row 'la ligne est egale à la cellule trouvé
For k = lig To 1 Step -1 'va à la ligne où il est ecrit les postes budget...
If ws.Cells(k, 5).Value = ws.Range("E3").Value Then Exit For
Next
For j = 5 To 10 'recherche la colonne qui correspond au poste budget...
If ws.Cells(k, j).Value = Montab(i, 31) Then
ws.Cells(lig, j).Value = Montab(i, 26)
End If
Next
End If
Next i
Application.ScreenUpdating = True 'remet l'affichage
End Sub

J'espère que les explications sont claires...
A+ François

Bonjour
Ne peux t'on avoir un fichier car tes explications sont pas claire...
Tu extrait des données que tu copies sur excel et tu souhaites recopier certaine données de ce fichier sur une autre feuille?
A+ François
Ps pour joindre un fichier tu peux utiliser le site cjoint.com

effectivement avec des données c'est peut être plus simple à comprendre
du coup je t'envoie le fichier
d'avance je te remercie
bien cordialement
Chrystelle

en fait comme les données sont quand même confidentielle et du coup le cite est il vraiment fiable

est il possible d'avoir une autre adresse

Bonjour Chrystelle,

Si je comprends bien, actuellement :
- vous réalisez une extraction de données depuis une base de données externe (SAP, ...)
- vous créez un tableau croisé dynamique à partir de ces données
- et ensuite, vous utilisez certaines données de ce TCD afin d'alimenter "manuellement" un autre tableau ?

Avez-vous envisagé de réaliser des RECHERCHEV sur votre tableau croisé dynamique afin de remplir votre 2nd tableau ?

oui j'y ai pensé à force de parcourir les forums mais comme je n'y comprends rien je n'y arrive pas

Ca avance...
Question: logt je ne le retrouve pas dans extraction, idem pour cc ou cs?
En E-> J je mets le montant de la colonne Z en fonction du poste budgétaire?
Que faut il copier en K et L?
Une 1ere ébauche. Après extraction les lignes qui n'ont put être traitée (pas de correspondance) sont noté sur la feuille "non traité"
https://www.cjoint.com/c/JDwrohJF2zb
A+ François

bonjour François,
c'est parfait, j'ai bien compris qu'il y a une macro derrière toute cela
je vais voir pour les trois groupes 224-5168-5216 car le 5141 n'est pas important
par contre c'est une manip que je vais devoir faire tous les mois du coup vous pourrez m'expliquer si cela est possible car je ne voudrais pas profiter de votre travail comment cela fonctionne
d'avance je vous remercie

bonjour François,
lorsque je lis oui ça pourrait paraître assez simple mais du coup pour moi c'est incompréhensible mais en tout cas merci beaucoup d'avoir passé du temps de l'énergie
je vais essayer de m'entraîner
bonne continuation
Chrystelle