Résultats pour "consolider"

38 résultats pour cette recherche

Bonjour a tous

Nous avons mis en place en fichier Excel partagé ("une galère a éviter par tout les moyens"); parque parfois ça plante et l’utilisateur est obliger de sauvegarder ses données sur un autre fichier avec un nom différent.

D'habitude je copie quelques lignes manuellement sur le fichier d'origine et le problème est réglé. Sauf que cet fois j’étais en congé et les utilisateurs se sont amuser a insérer les donnes dans 3 fichier, un vrai casse tête de vérifier les données ligne par ligne / colonne par colonne.

J'ai chercher sur internet mais je ne trouve pas un script adéquat : plus précisément un script qui permet vérifier ligne par ligne si les données sont identique, dans le cas contraire permettre a l'administrateur d’insérer la ligne qui manque. (l'outil supprimer doublon permettra de vérifier par la suite si une ligne est dupliquer)

Si possible le script permet aussi de vérifier que les données dans les cellules de chaque ligne sont identiques le cas contraire rajouter les données manquantes ou modifier ou supprimer le contenu de la colonne.

6lien-tb.zip (238.00 Octets)

Je vous remercie d'avance pour votre aide et collaboration.

Cordialement.

Bonjour,
Je souhaite consolider deux feuils en une synthèse. Les deux feuils comportent un tableau avec un titre plus au moins changeant, car j'y affiche les données par mois (Février, Mars, Avril, Mai et Juin).
Je consolide les deux feuil via la macro que j'ai trouvé sur le net et personnalisé pour mon besoin.

Sub consolider()
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name <> "TYPTRA" Then
ws.Range(ws.Range("A1"), _
ws.Range("A1").SpecialCells(xlCellTypeLastCell)).Copy _
Destination:=Worksheets("TYPTRA").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub

le souci qui se pose, c'est qu'au lieu d'obtenir un tableau à côté de l'autre comme ce que j'obtiens lorsque je passe pas la fonction "consolider" d'Excel, j'ai un tableau en dessous de l'autre, et je ne sais pas trop, comment vais-je corriger cela.

Autre souci, je veux lors de la consolidation, supprimer la colonne où j'ai des "N/A".

pouvez-vous m'aider dessus svp.

par avance merci.

Aub.

Bonjour à tous,

Dans un même dossier, j'ai plusieurs fichiers Excel.

Chaque fichier Excel possède 1 feuille.

Toutes les feuilles possèdent le même tableau avec les mêmes intitulés de colonnes et le même nombre de colonnes.

Je souhaite consolider tous les tableaux de toutes les feuilles en un seul tableau sur une feuille d'un nouveau fichier Excel qui pourra être généré pour l'occasion.

Le nouveau tableau consolidé devra afficher les mêmes intitulés et le même nombre de colonnes et il affichera à la suite toutes les lignes de tous les autres tableaux des autres feuilles.

Est-ce que vous auriez une solution à me proposer s'il vous plaît ?

Merci par avance.

Bonjour,

J'ai un fichier d'inventaire avec 2 onglets.

Onglet "fichier importation" fichier sur lequel je souhaite ajouter les données.

Onglet "fichier inventaire" fichier sur lequel les qtés comptées sont renseignées.

Je souhaiterais transférer les données de l'onglet "fichier inventaire" vers l'onglet "fichier importation" avec 3 critères afin d'être certain que les infos soient bonnes.

Le critère du "dépôt", "emplacement", "référence".

Il peut en effet y avoir plusieurs référence dans le même empaclement ou plusieurs emplacements pour la même référence.

Si il y a plusieurs lignes dans l'onglet "fichier inventaire" pour la même réf et le même emplacement est-il possible de regrouper les infos ?

Ex: onglet "fichier inventaire"

2 A01C02N1-1 450pcs

2 A01C02N1-1 150pcs

devient : onglet "fichier importation"

2 A01C02N1-1 600pcs

J’espère que je suis assez clair et précis dans l'expression de ma demande

Par avance je remercie grandement ceux qui se pencheront sur mon problème !

Cordialement

8fichier-aide.xlsx (267.10 Ko)

Bonjour,

Besoin d'une petite aide !

Je souhaite consolider les données de plusieurs fichiers excel 1 à 30 en fonction des mois.

Les fichiers ont le même nombre de colonne ainsi que les mêmes intitulés de titre par colonne.

Il y'a que le nombre de ligne qui peut varier d'un fichier à un autre en fonction des données.

Dans la mesure du possible je souhaite avoir une macro dans un fichier conso qui me récupérera les données de tous les fichiers et les coller les uns suivant les autres.

Les fichiers à consolider et le ficher de récap peuvent être dans un dossier précis pour que la macro s’exécute sans ouvrir nécessairement les fichiers.

Je vous joint 2 fichiers exemples à compiler en un.

Merci par avance.

J'ai deux colonnes séparé pour les débits A et les crédits B et le total C.

Je souhaiterais créer une nouvelle colonne entre B & C qui intégre (fusion) les débits avec le signe - et le crédits sans modification de signe. La colonne des débit est en chiffre positif.

Merci de votre aide

Bonsoir a tous

j 'ai fait un petit fichier qui résume mes besoins au quotidien dans les différentes boutiques,un bouton crée le fichier chaque jour via une macro ,cependant je n 'arrive pas a faire une feuille bilan qui regrouperait le nombre total de croix sur toutes les feuilles précédentes

un petit fichier expliquera mieux mon besoin merci d 'avance a tous

6aide.xlsm (25.62 Ko)

Bonjour à tous,

Je souhaite écrire un code VBA qui me permet de consolider plusieurs fichiers excel contenu dans un dossier. Les fichiers contiennent des bases de données de différentes organisations. L'entête des fichiers est quasiment le même mais la disposition des titres peut changer d'une organisation à une autre. Le code que j'ai écrit avec l'aide d'un ami fait un bug (cf fichier). Je vous prie de bien vouloir m'aider à résoudre ce problème. Vos suggestions seront aussi les bienvenues.

4compil.xlsm (24.34 Ko)

Merci d'avance.

Bonjour,

je cherche sans trouver exactement ce que je veux pour un outil de consolidation de rapports de plusieurs établissements.

Tous est dans le titre/sujet !

Les rapports sont tous dans un même fichier Excel, mais sous différentes feuilles.

J'aimerais pouvoir retranscrire de façon automatique les données par exemple de l'établissement 'A' (feuilles 4) des colonnes F, L, R, X et ainsi de suite... Tous les établissements utiliseraient le même rapport que l'établissement A.

Prendre notes que la feuille 'Consolidé' peut changer de format pour faire en sorte de contenir plusieurs données pour 1 produits (ex. par #de lot).

Je ne sais pas si vous pourrez m'aider à trouver une option de macro ou de formule VBA à ce niveau.

Merci !

Bonsoir à toutes et à tous,

Je me permets de revenir vers vous pour une macro, je pense assez simple, que je n'arrive pas à faire. Mes connaissances en VBA sont plus que basiques....;

Dans un fichier, j'ai autour de 180 fichiers nommés "Contrat" (onglet 1 du fichier joint) que je veux consolider sur un autre classeur dans un tableau simple (onglets 2 du fichier joint pour exemple). En gros je veux mettre par ligne des différents information client du contrat, Nom, Prénom, Prduits, Prix...etc

Un client peut avoir un ou plusieurs produits, avec plusieurs prix...etc d'ou mon problème pour reconstituer les lignes complètes avec l'organisation du classeur contrat.

Je vous remercie d'avance pour votre aide.

Bien Cordialement.

13test-troc.xlsx (8.78 Ko)

Bonjour j'ai un soucis sur ma macro vba consolider : J'ai 2 fichiers de synthèse que je veux regrouper en un seul au travers d'une macro vba "consolider". Mais après avoir fonctionné une fois, celle-ci me dit maintenant qu'elle ne trouve pas les fichiers à consolider lors de l’exécution. Pourriez-vous m'aider s'il vous plait.

l'ensemble de mes 3 fichiers sont dans le même dossier (mais je ne pense pas que cela vienne de là).

Merci à vous pour vos éclaircissement.

Synthèse globale : Synthèse arbitrage 2018

Fichiers à consolider : SyntArbitre2018 - SyntArbitre2017

Quand il y a le blocage, quand je passe la souris sur la ligne "nomClasseur" le classeur s'affiche.

Macro :

Option Explicit

'Déclaration variables

Dim NomClasseur As String

Dim LigneTotal As Integer

Dim Derligne As Integer

'Procedure permettant de consolider classeurs

Sub Consolider()

'on désactive le raffressichement de l'écran

Application.ScreenUpdating = False

'Etape 1 Création des en-têtes

'On réinitialise le fichier synthèse

Columns("B:S").Clear

Range("A1").Value = "N°"

Range("B1").Value = "NOM"

Range("C1").Value = "PRENOM"

Range("D1").Value = "NAISSANCE"

Range("E1").Value = "ADRESSE"

Range("F1").Value = "CP"

Range("G1").Value = "VILLE"

Range("H1").Value = "COURRIEL"

Range("I1").Value = "TEL FIXE"

Range("J1").Value = "TEL PORT"

Range("K1").Value = "CLUB"

Range("L1").Value = "LICENCE"

Range("M1").Value = "ANNEE DEB"

Range("N1").Value = "NIV 2017"

Range("O1").Value = "DDE 2018"

Range("P1").Value = "ARBITRE 2018"

Range("Q1").Value = "AP 2017"

Range("R1").Value = "AP 2018"

Range("S1").Value = "ANC LIGUE"

'Couleur de fond

Range("A1:S1").Interior.Color = vbBlue

'Couleur de police

Range("A1:S1").Font.Color = vbWhite

'Mise en gras

Range("A1:S1").Font.Bold = True

'Etape 2 : Parcourir les deux fichiers

ChDir "G:\TRIATHLON\Arbitrage\2018\3_Formation\Fiche_retour_2018\Synthèses"

'On cherche le premier classeur dans le dossier

NomClasseur = Dir("G:\TRIATHLON\Arbitrage\2018\3_Formation\Fiche_retour_2018\Synthèses\*.xlsx")

'On boucle

While Len(NomClasseur) > 0

Application.DisplayAlerts = False 'Désactive boite de dialogue

Workbooks.Open NomClasseur 'Ouverture du classeur

LigneTotal = ActiveSheet.UsedRange.Rows.Count 'On compte le nb de ligne

Range("B4:S" & LigneTotal).Copy 'On copie ttes les lignes

Workbooks("Synthèse arbitrage 2018").Activate 'On revient sur la synthèse

Derligne = ActiveSheet.UsedRange.Rows.Count + 1 'On recherche la plage vide

Range("B" & Derligne).Select 'On se positionne sur la dernière ligne vide

ActiveSheet.Paste 'Je colle les données

Workbooks(NomClasseur).Close 'Fermeture classeur ouvert

NomClasseur = Dir 'On passe au prochain classeur

Range("A1").Select

Wend

MsgBox "La consolidation est terminée."

'on réactive le raffressichement de l'écran

Application.ScreenUpdating = True

End Sub

Bonjour,

après avoir fait plusieur test je me permet de venir solliciter votre aide.

Je cherche à consolider plusieurs onglet qui n'ont pas le même nombre de ligne.

Je sais que je dois détecter la dernière ligne non vide afin de copier mes valeurs à la suite cependant si j'arrive à selectionner l'intégralité de ma plage peux importe ça taille, je n'arrive pas à faire que la copie arrive au bon endroit.

Aujourd'hui j'ai ce code :

Sub Macro3()
    Sheets("C3511").Select
    Dim DerLigne As Long
    DerLigne = Sheets("C3511").Cells(65536, 1).End(xlUp).Row
    Sheets("C3511").Range("A31:AX" & DerLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidé").Select
    Dim LastRw As Long
    LastRw = Sheets("Consolidé").Range("A65536").End(xlUp).Row
    ActiveSheet.Paste
End Sub

Je vous joins mon fichier d'exemple.

Je ne dois rien toucher au ligne 1 à 29 et faire mon copier coller à partir de la ligne 30 pour le premier onglet.

Dans l'exemple je n'ai que 2 onglet mais j'en aurais en réalité 21.

Aujourd'hui ma macro colle la ou j'ai selectionner et non a partir de la dernière ligne.

Je vous remercie par avance pour votre aide

Bonjour,

J'ai un petit problème.

J'ai un document dans lequel sur j'ai trouvé sur ce forum un moyen de consolider plusieurs feuilles en 1 seule en gardant la première ligne libre (onglet Tous).

Par contre, lorsque j'effectue ma macro, elle ne garde pas la mise en forme des cellules originales. Je veux que ma feuille "Tous" ait la même mise en page que les onglet 1 à 12 lorsque j'effectue ma macro.

Aussi, j'aimerais que dans ma macro, cela me permettre d'avoir Worksheet (13) cell (A2) =Tous!A2

Worksheet (13) cell (D2) = Tous!(E2)

Worksheet (13) cell (G2) =Tous!A41 sans un problème de référence.

Etc..

Merci!

52017-04-15-v3.xlsm (71.48 Ko)

Bonjour à toutes et à tous,

Je viens chercher de l'aide pour accélérer le traitement de ma macro. J'utilise VBA depuis peu de temps.

Sur un classeur, j'ai 5 onglets avec le même type de tableau, mix mots et chiffres, 70 colonnes et 500 lignes.

La première ligne reprend le titre des colonnes.

Je souhaite consolider ces données avec cette macro qui fonctionne mais qui est relativement longue.

J'ai entendu parler de la possibilité de stocker les données dans une "Table" pour copier toutes les copier d'un coup.

Voici ma macro :

Sub retraiter()

T1 = Timer

Application.ScreenUpdating = False

dligne = Consolidation.Range("A10000").End(xlUp).Row

If dligne > 1 Then Consolidation.Range("A2:Br" & dligne).ClearContents

For i = 1 To 5

Sheets(i).Select

dligne = Sheets(i).Range("A10000").End(xlUp).Row

For j = 2 To dligne

Sheets(i).Select

Rows(j).Copy

Consolidation.Select

LastLigne = Range("A10000").End(xlUp).Row + 1

Cells(LastLigne, 1).Select

ActiveSheet.Paste

Next j

Next i

Consolidation.Select

T2 = Timer

Durée = Round(T2 - T1)

Sheets("Statistiques").Range("A50") = " Durée d'exécution " & Durée & " sec. "

End Sub

Je vous remercie d'avance pour votre aide.

Bien Cordialement.

Salut les gars,

Je suis en train de gérer un projet qui m'oblige d'avoir un suivi quotidien d'un grand nombre de données.

On me donne ces données chaque matin dans un document excel qui a toujours le même format.

Je veux me faire une sorte de tableau de bord graphique qui consolide ces données pour les analyser.

Je pensais faire comme ça, avoir un document excel "Données" avec une feuille par jour, chaque feuille contient toutes les données du jour. Et un autre document excel "Analyse" qui consolide ces données et les analyses.

1er idée = 1er soucis Je n'arrive pas à faire le lien entre deux documents excels. Lorsque je clique sur "Connexion" je n'ai pas de bouton "Ajouter"

Donc je décide de tous faire sur un même classeur (pas top mais bon), si vous savez comment résoudre ce 1er problème je suis chaud.

Mais encore un autre problème, je n'arrive pas à consolider les données de 2 feuilles dans un même tableaux croisé dynamique, je suis sur 2016 donc je crois qu'il n'y a plus d'assistant, j'ai essayé une syntaxe comme feuille1!$A:$I+feuille2!$A:$I mais ça marche pas, j'imagine que le + n'est pas valide.

Si vous pouvez déjà m'aider la dessus ça serait super, j'ai fait le tours des tuto/forum je trouve pas un truc qui marche chez moi.

Merci

capture d e cran 2017 02 17 a 16 56 12

Bonjour,

Je viens vers vous pour avoir une information. J'aimerais savoir s'il est possible de créer une macro pour consolider des données d'autres fichiers au format .xlsm. J'ai vu pas mal d'exemple pour de fichiers .xls et .xlsx mais pas pour .xlsm.

Pour informations mes fichiers que je veux consolider ont la meme structure et sont au format .xlsm car ils contiennent un calendrier.

Je vous remercie de votre aide.

manuella

Bonjour à tous,

J'ai un souci avec un fichier excel dans lequel j'ai des feuilles avec de produits à compter par semaine, dont je souhaite faire deux récaps : un par mois, et un par année.

Je précise que je ne connais pas le VBA et que nous sommes plusieurs à l'utiliser dont des personnes qui en connaissent encore moins que moi sur Excel.

Pouvez-vous m'aider ?

Je vous joins le fichier pour que cela soit plus clair.

Merci à tous d'avance.

52modele-ok.xlsx (19.39 Ko)

Bonjour à tous,

Depuis peu, je me suis mise au VBA, pas facile pour moi de m'y retrouver dans tous les codes.

Pouvez-vous me venir en aide ?

J'ai un tableau très long à faire avec plusieurs feuilles dont j'aimerai regrouper le résultat dans une seule et même feuille.

Avec une mise à jour automatique (appuis sur bouton ou non).

ça fait deux jours que je fais plusieurs code je ne m'en sorts pas.

En PJ le fichier proto

Le dernier code trouvé et copié :

Dim i As Integer, j As Integer

Dim DerniereLigne As Integer

Dim LastRowConsolidation As Integer

'Procédure permettant d'éffacer toutes les données de la feuille Consolidation

Sub EffaceDonnees()

Worksheets("Consolidation").Select

Rows("2:100000000").Select

Selection.Clear

Range("A2").Select

End Sub

'Procédure permettant la consolidation des feuilles du classeur

Sub Consolider()

Application.ScreenUpdating = False

EffaceDonnees

'Boucle permettant de lire toutes les feuilles à consolider

For j = 1 To 6 'Parcours des feuilles de N°1 À n°6

Sheets(j).Select

DerniereLigne = Range(A10000000000).End(x1Up).Row

For i = 2 To DerniereLigne 'Parcours des lignes de chaque Table

Sheets(j).Select

Rows(i).Select

Selection.Copy

Sheets("Consolidation").Select

LastRowConsolidation = Range(A10000000000).End(x1Up).Row + 1

Cells(LastRowConsolidation, 1).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Next i

Next j

Application.ScreenUpdating = True

MsgBox "La consolidation est terminée...", vbcKOnly + vbInformation, "Information"

End Sub

ça me donne une erreur


Oups je n'avais pas fini mon message.

Donc comme je vous disais ça me donne une erreur 13. Je n'arrive pas bien à comprendre ce que ça veut dire.

Merci de votre attention.

A bientôt

Bonjour,

Je travaille actuellement avec des tableaux de suivi de performance par pays (tous identiques)

Je souhaiterais creer un gros tableau excel qui compile tous ces tableaux en etant capable de filter par region (sachant que chaque region regrouperait plusieurs pays).

Je n'ai aucune idee comment utiliser les macros et toutes mes tentatives se sont soldees par des echecs cuisants

Je mets en PJ le type de tableaux que je voudrais etre capable de creer, si quelqu'un a une idee de comment compiler toutes ces informations ca m'aiderait beaucoup,

merci,

Bonjour à tous,

je suis dans la panade pour un problème qui doit être très modeste pour beaucoup de confirmés / experts Excel participant à ce forum !

Voir le fichier attaché : 2 feuilles

Mon objectif : avoir un seul tableau de données exploitables dans FEUILLE1 via un croisé dynamique par exemple

Mon problème : je souhaite rapatrier de FEUILLE2, les valeurs de la colonne FINAL dans une même colonne FINAL à créer dans FEUILLE1

Les colonnes REF, DATE et Class (présentes dans les feuilles) permettent de déterminer la valeur prise par FINAL, à reventiler ensuite pour chacune des lignes de FEUILLE1 (attention beaucoup plus de lignes dans FEUILLE1)

Qui peut me donner la solution ?

Merci beaucoup d'avance !

P.S : c'est urgent svp

10fichier-1.xlsx (460.54 Ko)

Recherches récentes

consolidationcopier resultat userformbouton copier userformchamp_recherche xlsfiltrevendredi moisgestion archivessupprimer lignesupprimer ligne valeur feuilleeuromillionenvoie mail automatiquetableau croise dynamiquestopbon coinajouter menuajout menumodifier menumenu supplementairecode postalpostal