Remplir un tableau à partir d'un autre tableau
Chrys38-05
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Chrys3805 -
Chrys3805 -
Bonjour,
à partir d'une extraction de données, que je mets ensuite sous forme de tableau Excel je dois remplir un autre tableau
cela fait une semaine que j'essaye je cherche mais j'avoue je ne suis pas très douée
du coup j'ai fait un tableau CD et je fais un copier coller mais cela me prend deux plombes même chose avec =
auriez vous une solution
merci d'avance
à partir d'une extraction de données, que je mets ensuite sous forme de tableau Excel je dois remplir un autre tableau
cela fait une semaine que j'essaye je cherche mais j'avoue je ne suis pas très douée
du coup j'ai fait un tableau CD et je fais un copier coller mais cela me prend deux plombes même chose avec =
auriez vous une solution
merci d'avance
A voir également:
- Remplir un tableau à partir d'un autre tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Imprimer un tableau excel - Guide
10 réponses
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
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
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
du coup je t'envoie le fichier
d'avance je te remercie
bien cordialement
Chrystelle
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ?
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 ?
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
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
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
