Remplir un tableau à partir d'un autre tableau
Fermé
Chrys38-05
Messages postés
1
Date d'inscription
mercredi 22 avril 2020
Statut
Membre
Dernière intervention
22 avril 2020
-
22 avril 2020 à 11:03
Chrys3805 - 27 avril 2020 à 10:19
Chrys3805 - 27 avril 2020 à 10:19
A voir également:
- Remplir un tableau à partir d'un autre tableau
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Comment faire un tableau - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Trier un tableau excel - Guide
10 réponses
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
Modifié le 24 avril 2020 à 11:11
Modifié le 24 avril 2020 à 11:11
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
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
22 avril 2020 à 13:40
22 avril 2020 à 13:40
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
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
22 avril 2020 à 16:19
22 avril 2020 à 16:19
N'aurai tu pas oublié le fichier... lol
A+ François
A+ François
Chrys3805
>
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
22 avril 2020 à 16:47
22 avril 2020 à 16:47
https://www.cjoint.com/c/JDwoUoXCFQ6
du coup j'ai tout laissé
du coup j'ai tout laissé
en fait comme les données sont quand même confidentielle et du coup le cite est il vraiment fiable
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
Modifié le 22 avril 2020 à 16:24
Modifié le 22 avril 2020 à 16:24
enlève les données ... je les remplacerai par des données bidons...
Il faut que je sache le nombre de colonne, le nom des feuilles, les données à copier... et sur quelle feuille
A+ François
Il faut que je sache le nombre de colonne, le nom des feuilles, les données à copier... et sur quelle feuille
A+ François
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
MonsieurExcelYoutube
Messages postés
7
Date d'inscription
mardi 21 avril 2020
Statut
Membre
Dernière intervention
29 avril 2020
2
22 avril 2020 à 16:23
22 avril 2020 à 16:23
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 ?
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
Modifié le 22 avril 2020 à 19:17
Modifié le 22 avril 2020 à 19:17
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