Juxtaposition de plusieurs tableaux excel d un meme fichier, VBARésolu

Question

Bonjour a tous, 

Je suis novice en VBA et novice en Forum...

J aurais souhaite grace a une macro, juxtaposer sur un onglet deux tableaux excel presents dans un meme fichier excel mais sur des onglets differents.

Ces tableaux ont les memes intitules en ligne, c est la raison pour lqauelle je veux ensuite les juxtaposer...

Pour exemple, un tableau de 7 colonnes en Sheet1 et un autre de 8 colonnes en Sheet2, a juxtaposer en sheet 3.

J'aimerais pouvoir selectionner pour chaque feuille presente, les colonnes a selectionner.

Merci d avance pour vos reponses


Ps: J espeere ne pas m etre trompe dans le theme... et je precise ne pas avoir trouve de messages sur ce topic. Uniquement des message pour combiner les lignes les unes apres les autres....

ucfoutu · Accepted Answer

Bon ...
Tu vas l'avoir, ton code ... ===>>> après ma sieste, hein ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bonjour,
Il te suffit pour y parvenir d'utiliser la méthode copy (à lire dans ton aide VBA) avec son paramètre destination.
Ceci étant dit (et simple), cette partie n'est pas claire :
J'aimerais pouvoir selectionner pour chaque feuille presente, les colonnes a selectionner.

essaye d'être plus précis à ce sujet.
D'autant que l'on ne travaille pas à coups de sélections, mais directement avec les objets de Excel (et dans ce cas ! les feuilles et leurs plages).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

J'ai par ailleurs un doute en ce qui concerne ta "juxtaposition". Qu'entends-tu par là ? :
1) présenter deux feuilles côte à côte (deux fenêtres, donc) ?
ou
2) ne présenter qu'une feuille contenant les plages qui t"intéressent, en provenance de deux feuilles ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Bonjour Ucfoutu et merci de ta reponse, 


1) Oui c est exactement ca, presenter une feuille contenant les plages de donnees qui m interessent en provenance de plusieurs feuilles...

2) Je vais repreciser ma demande, j ai 4 feuilles ou il y a quatre tableaux ayant une plage de donnees differentes (nombre de colonnes differentes).

Je veux faire une synthese de ces 4 tableaux dans une feu different qui se mettra a jour automatiquement....(Y compris si 

l on ajoute une colonne au sein d un onglet)

Pour batir cette synthese  je vais selectionner uniquement les plages de donnees  pertinentes (les colonnes pertinnentes au sein de chacun de ces 4 

feuilles..)


A noter que tous les feuilles ont le meme format au niveau des lignes (Projet 1, PRojet 2, Projet 3, ETC...)

ucfoutu · Answer

Pour batir cette synthese je vais selectionner uniquement les plages de donnees pertinentes (les colonnes pertinnentes au sein de chacun de ces 4
feuilles..) 

Toujours insuffisamment précis .
Tu vas les sélectionner comment ? Manuellement ? Par code (et si oui, en fonction de quels critères exacts pour les identifier ?) 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Je voudrais pouvoir les selectionner en fonction du titre de la colonne et de l element commun a toutes les feuilles (Numero de projet)

Ricoetienne · Answer

Comment puis-je faire pour te faire passer le fichier ??

ucfoutu · Answer

Inutile de me "passer" le fichier. Je n'ouvre d'ailleurs jamais un classeur que je n'ai pas moi-même créé (raisons de sécurité, entre autres) !
Tu dois savoir exposer aisément ce que tu conçois clairement !
Si tu as des difficultés à exposer, c'est que ta conception est confuse !
Lis dans mon profil ce que j'en pense (la dernière phrase, relative à l'exposé des tenants et aboutissants d'un problème !).

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Tu as raison, dsl pr ça
Je vais rediger une description precise et reposte a la suite...

Ricoetienne · Answer

Le fichier excel dont je parle me sert a suivre le deroulement des differentes etapes de la logistique d un projet.

Ayant de nombreuses informations a rentrer manuellement (Bcp de lignes et Bcp de colonnes), j ai prefere segmenter et organiser le travail, j ai donc reparti une etape par feuille excel. J ai 4 feuilles Excel.

Etant sur le meme projet, une element est commun a toutes ces feuilles : le numero de colis (repertories de 1 a 230, et precedes du nom du projet. Cela me donne un code du genre: &#8220;BABA-1 a BABA-230&#8221; classes dans le meme ordre croissant sur toutes les feuilles.
Ces feuilles correspondant a chaque etape sont susceptibles d evoluer (Ajout de colonnes)

Maintenant, ce que je souhaiterais faire, c est une synthese  de ces 4 feuilles excel source dans une feuille differente et ne selectionner uniquement que les plages de donnees pertinentes au sein de ces dernieres. 

Cad etre en mesure de selectionner grace a une macro les plages de donnees qui m interessent et que ces dernieres s adaptent aux changements operes sur les feuilles sources. 

J ai pense a une solution avec la fonction IF(Index(Match)) se basant sur le nom de la colonne et le code du colis, mais cela ne marche pas en cas d ajout de colonne sur l une des feuille source(Modification plage de donnees).

C&#8217;est la raison pour laquelle je me retourne vers vous car je pense qu&#8217;une macro en VBA pourait fiabiliser, cad prendre en compte les changements au sein de la plage de donnees(Feuilles source)sans que personne n ait a intervenir dans les formules.

Est-ce plus clair?

Merci d&#8217;avance

Ricoetienne · Answer

dsl pour les guillemets, je ne savais pas que cela ne passait pas....

Ricoetienne · Answer

En fouinant j ai trouve une macro qui combinait les donnees les unes derrieres les autres...

Je l ai un peu modifie en y allant en tatonnant et maintenant elle compiles les colonnes des feuilles presentes dans mon fichier...

C est exactement la logique dont j ai besoin, il faut seulement que je puisse selectionner ma plage de donnees au sein de chaque feuille et ce 

sera PARFAIT...

Sub MacroCombiner()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Feuille As Worksheet
Dim l As Integer

ActiveSheet.Name = "final" 'cette feuille portera le nom final
k = 1 'initialisation de la variable k
l = 1 'initialisation de la variable l
For Each Feuille In ActiveWorkbook.Worksheets 'on repete l'action pour toutes les feuilles du fichier
If Feuille.Name <> "final" Then 'sauf sur la feuille finale

i = Feuille.UsedRange.Rows.Count 'nombre de lignes de la feuille actuelle
j = Feuille.UsedRange.Columns.Count 'nombre de colonnes de la feuille actuelle
Feuille.Select 'on selectionne la feuille

If l = 1 Then 'si première feuille on copie aussi les titres (première ligne)
Range(Cells(1, 1), Cells(i, j)).Select
Else
Range(Cells(1, 1), Cells(i, j)).Select 'sinon on copie qu'à partir de la ligne 2
End If

Selection.Copy

Sheets("final").Select
Cells(k, l).Select 'on sélectionne la première ligne vide

ActiveSheet.Paste 'on colle les données de la feuille actuelle
If l = 1 Then
l l 'k première ligne vide
Else
l = l
End If

l = l
End If

Next Feuille 'on passe à la feuille suivante



End Sub

ucfoutu · Answer

Est-ce plus clair?
Non ! J'attendais du technique et non un exposé des raisons qui te conduisent à ta démarche !
 et ne selectionner uniquement que les plages de donnees pertinentes au sein de ces dernieres. 

la "pertinence" n'est toujours pas définie !
Alors : reprenons :
1) Tu as en colonne A de chacune des feuilles à traiter des valeurs, classées par ordre croissant, de la forme :
BABA-1
BABA-2
...
BABA_198
BIBI-1
BIBI-2
BIBI-3
...
BIBI-120
BOBO-1
BOBO-2
...
etc ...
Est(ce cela ? ===>> oui / non ?
2) tu dis que ces feuilles correspondant a chaque etape sont susceptibles d evoluer (Ajout de colonnes)
Pas clair ! je comprends que les colonnes utilisées d'une feuilles peuvent être d'un nombre différent de celui d'une autre feuille, mais ignore TOTALEMENT si, sur une même feuille, le nombre de colonnes remplies est ou non le même pour chaque ligne !
3) y a-t-il , pour chaque donnée "pertinente" le même nombre de lignes sur chacune de tes feuilles ? ===>> oui / Non ?
4) ceci :
If l = 1 Then 'si première feuille on copie aussi les titres (première ligne)
  Range(Cells(1, 1), Cells(i, j)).Select
Else
  Range(Cells(1, 1), Cells(i, j)).Select 'sinon on copie qu'à partir de la ligne 2
End If 
n'a aucun sens pour deux raisons :
a) c'est 2 fois la même chose
b) cela contredit ce que tu as dit plus haut, puisque Nb de colonnes utilisées pouvant différer d'une feuille à l'autre . Et si la première a moins de colonnes que les suivantes, par exemple, seuls les titres de la première serait recopiés !
5) définis clairement (c'est la 3ème fois que je te le demande !) tes critère de "pertinence" ! Tu utilises à chaque fois ce mot (pertinence) sans dire à quoi il correspond exactement.
6) Passons aux résultats sur la feuille ad hoc et à leur forme
- en ligne 1 : les titres, donc
- en colonne 1, maintenant : quoi, exactement ?
- sur chaque ligne que doit-on avoir dans la première colonne qui suit un "groupe" ? à nouveau ce qu'il y avait en colonne 1 de ce "groupe" ????
etc ... etc ...
Il est regrettable que j'aie à te poser ces questions !
J'ai par ailleurs le sentiment de plus en plus net que tu n'es pas plus doué en exposé des tenants et aboutissants que tu ne l'es en VBA.
Je t'ai dit plus haut que je ne voulais pas de ton classeur xls.
Rien ne t'empêche par contre de déposer sur un site ad-hoc de partage les images suivantes :
- images de tes feuilles à traiter (avec des données pour plusieurs "projets" et "colis"
- image du résultat attendu
- en précisant ce que tu as choisi comme critère de "pertinence"

_________________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Merci UCFOUTU pour ta reponse, 

Tu as totalement raison je n'y connais rien en VBA, mais je cherche.... 

1) Oui ttes les colonnes A des quatres feuilles contiennent les memes informations (BABA-1
                                                                                    .....   
                                                                                    BABA-231)

2) Non toutes les colonnes ne sont pas remplies pour toutes les lignes car cela depend de l etat d avancement du colis, mais ces colonnes seront remplies    avec le temps...(Projet sur plusieurs annees)

3) Oui, c est exactement le meme nombre de lignes sur toutes les feuilles.

4) Concernant la macro que j ai trouve, en effet il y avait cet element car avant sur la deuxieme ligne il y avait un 2
If l = 1 Then 'si première feuille on copie aussi les titres (première ligne)
  Range(Cells(1, 1), Cells(i, j)).Select
Else
  Range(Cells(2, 1), Cells(i, j)).Select 'sinon on copie qu'à partir de la ligne 2
End If 

5) Pertinence car les informations dans ces colonnes sont importantes pour moi et doivent apparaitre dans ma synthese. Cela est totalement subjectif et lie a mon avis...Afin de reconnaitre ces colonnes, elles ont toutes le meme format "Synth-nom de la colonne" 

6) En ligne 1, les titres des colonnes contenant des informations importantes.
   En colonne 1 , les numeros de colis, puis les informations des colonnes importantes...

7) Je ne comprends pas ce que tu me demandes par la ? 

[b]sur chaque ligne que doit-on avoir dans la première colonne qui suit un "groupe" ? à nouveau ce qu'il y avait en colonne 1 de ce "groupe" ???? 
etc ... etc .../b 

Merci d avance

ucfoutu · Answer

5) Pertinence car les informations dans ces colonnes sont importantes pour moi et doivent apparaitre dans ma synthese. Cela est totalement subjectif et lie a mon avis...Afin de reconnaitre ces colonnes, elles ont toutes le meme format "Synth-nom de la colonne"

6) En ligne 1, les titres des colonnes contenant des informations importantes.
En colonne 1 , les numeros de colis, puis les informations des colonnes importantes... 

est vraiment vraiment vraiment flou !!! et ne me permet même pas de deviner le traitement à faire, ni même le critère de sélection ! Et le plus inquiétant est ceci :
Cela est totalement subjectif

La subjectivité et l'informatique ne font pas bon ménage et aucun programme informatique ne saurait faire une sélection sur des critères subjectifs ! Ils doivent être définis avec précision !
Ecoute : dépose, comme je te l'ai demandé, les images (captures d'écran) de tes feuilles et du résultat souhaité, en disant avec précision ce que tu as choisi de sélectionner (et sur quelle base).

____________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

J'ajoute une chose très claire :
Si tes sélections ne correspondant pas à un critère clairement défini, si, donc, elles sont vraiment totalement "subjectives", elles ne sauraient qu'être faites manuellement, la subjectivité étant forcément le fait de l'homme. Mais qui dit sélection manuelle dit également que la sélection d'articles sur une des 4 feuilles à traiter doit être rigoureusement la même pour chacune des 3 autres feuilles (même nombre d'articles ET mêmes articles), ce qui rendrait très vulnérable ton application (dépendance absolue à l'étourderie, l'erreur, etc ...) !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Bonjour UCFOUTU, 

Tout d'abord, merci pour ton temps et ta patience... 


Je vais une derniere fois essayer de synthetiser ma demande et si cela ne marche pas je mettrai mes fichiers en ligne.

"J'ai besoin d'une macro qui soit capable sur la base d'une partie d'un nom de colonne, de me rapatrier l'ensemble des lignes 

vides et non vides de cette derniere  dans ma feuille de synthese en me conservant l'ordre etabli. En l'occurence pour mon fichier l'element de recherche 

au sein des differentes feuilles sera:(Synth-). 


Cette mention (Synth-) precedent le nom de la colonne sera ajoute par l'homme en fonction du degre d 'importance qu il confere a la colonne, donc

si il veut faire apparaitre cette derniere ou nom au sein de la feuille de synthese.

Les colonnes selectionnees et rapatriees dans la feuille synthese, viendront se juxtaposer les unes aux autres.


Cela ne pose pas de pb car les lignes comme nous l'evoquions precedement, sont rangees sur toutes les feuilles en ordre croissant grace au code colis 

(BABA-1...jusqu'a BABA-231). 

Par consequent toutes les feuilles ont le meme format ( Ex: SUR LA LIGNE 18, uniquement des informations concernant le colis BABA-17, etc)

J'espere avor ete plus precis.....


Merci d'avance Ucfoutu.

ucfoutu · Answer

Désolé, mais ce n'est toujours pas suffisamment clair pour moi :
Je t'invite donc à nouveau (pour la troisième fois) :
Je t'ai dit plus haut que je ne voulais pas de ton classeur xls.
Rien ne t'empêche par contre de déposer sur un site ad-hoc de partage les images suivantes :
- images de tes feuilles à traiter (avec des données pour plusieurs "projets" et "colis"
- image du résultat attendu
- en précisant ce que tu as choisi comme critère de "pertinence" 

Sache que j'ai déjà préparé quelque-chose, mais que je ne peux te proposer tant que ne sont pas levées TOUTES les incertitudes que je "vois" pour l'instant !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bon ... Je dois sortir ...
Regarde ce que fait ceci (j'en suis là, à attendre de savoir TOUT) :

 Dim plage_travail As Range, plage_a_copier As Range, c As Range, nb As Integer, critere As String
  feuilles_a_traiter = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") '===> les feuilles à traiter
  critere = "a" '============>> le crière choisi
  For i = 0 To UBound(feuilles_a_traiter)
    Dim f As Worksheet
    Set f = Worksheets(feuilles_a_traiter(i))
    derlig = f.Range("A" & Rows.Count).End(xlUp).Row
    dercol = f.Cells(1, Columns.Count).End(xlToLeft).Column
    Set plage_travail = f.Range("A1:A" & derlig)
    For Each c In plage_travail
      If c.Value = critere Then
        If plage_a_copier Is Nothing Then
          Set plage_a_copier = f.Range(f.Cells(c.Row, nb + 1), f.Cells(c.Row, dercol))
        Else
          Set plage_a_copier = Union(plage_a_copier, f.Range(f.Cells(c.Row, nb + 1), f.Cells(c.Row, dercol)))
        End If
      End If
    Next
    If Not plage_a_copier Is Nothing Then
    
    
      ' et voilà où l'ambiguïté de tes explications me gêne !!!
      ' je ne sais si (entre autres), je dois par exemple écrire ceci :
         'ou = Worksheets("Feuil5").Cells(1, Columns.Count).End(xlToLeft).Column
         
        ' ou cela :
        
         Worksheets("Feuil5").UsedRange
         ou = Worksheets("Feuil5").Cells.SpecialCells(xlCellTypeLastCell).Column
         
         
      If i > 0 Then ou = ou + 1
      plage_a_copier.Copy Destination:=Worksheets("Feuil5").Cells(1, ou)
    End If
    If i 0 Then nb nb + 1
    Set plage_a_copier =  Nothing
  Next


Essai fait avec  5 feuilles  dont au moins la colonne A et remplie et contient des "a" sauf en ce qui concerne la derère feuille (Feuil5", entièrement vide au départ

Si cela est ce que tu attendais  ===>> Va bene. 
Si non ===>> les "images" demandées vont être totalement indispensables.
Voilà !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Bonjour Ucfoutu, 

Voici le lien de mon document


 file upload storage


C est sous-format PDF, et non jpeg, j esoere que ca ira...

Merci d'avance.

Ricoetienne · Answer

Hum, 

le lien fait pour etre colle sur les forums n'a pas l'air de fonctionner, voici un autre lien pour recuperer le fichier.

http://www.filedropper.com/synthsesearemplirgraceauxinformationsdesautresfeuilles

Cordialement,

ucfoutu · Answer

Je viens de jeter un oeil sur tes images.
Ce n'est pas celles que je t'ai demandées !
Applique-toi à me relire :
Je t'ai dit plus haut que je ne voulais pas de ton classeur xls.
Rien ne t'empêche par contre de déposer sur un site ad-hoc de partage les images suivantes :
- images de tes feuilles à traiter (avec des données pour plusieurs "projets" et "colis"
- image du résultat attendu
- en précisant ce que tu as choisi comme critère de "pertinence" 
Si tu ne veux pas prendre les choses avec plus dé sérieux, je vais te laisser.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Ucfoutu, 

Je suis dsl encore une fois Ucfoutu, je fais vraiment de mon mieux, mais je crois que je ne comprends pas toujours  ce que tu veux..

1) J'ai construit un fichier excel ac des donnees fictives, pour expliquer la logique de la macro dt j ai besoin et le resultat attendu

2)Je prends ca tres au serieux crois moi, et je ne me moque vraiement pas de toi 

3) Voici le lien de ce que je viens de faire, dis moi si cela te va:        http://www.filedropper.com/feuillesatraiteretresultatattendu

NB (Qu entends tu par  critere de pertinence ? Je croyais l avoir deja defini, c est le fait de faire preceder mes titres de colonnes par la mention Synth)

ucfoutu · Answer

On commence enfin à peine à y voir à peu près clair.
Voilà ce que j'en conclus, à ce stade :
1) ton "critère de pertinence" est une chaîne de caractères par laquelle doit commencer un titre de colonne. Toutes les colonnes de chaque feuille répondant à ce critère sont concernées par le résultat à obtenir. 
Est-ce bien cela ? === >> réponds par oui ou par non
2) j'observe que dans ton exemple, seule la feuil1 contient en sa colonne A un titre de colonne qui commence par "Synth", alors que tu fais de "Synth" ton "critère de pertinence". Est-ce un hasard ? Car sinon, je ne comprends pas car elle aurait pu avoir n'importe quel autre titre puisque la colonne A doit systématiquement être prise en compte dans ton récapitulatif ... de toutes manières !
3) j'observe que (mis à part ce que je viens de dire pour la colonne A de la feuil1, chacune des autres feuilles n'a, dans ton exemple, qu'une seule colonne concernée par ton "critère de pertinence". Est-ce toujours le cas (une seule colonne) ou peut-il y en avoir plusieurs par feuille ? Et si plusieurs possibles : forcément juxtaposées sur la dite feuille ou pouvant être séparées par d'autres colonnes non concernées par ton "critère de pertinence" ?

Tu commences à mesurer, je pense, l'importance de toutes ces précisions ! Les réponses  précises  et très claires à chacun de ces 3 points sont indispensables et déterminent le code (simple quel que soit le cas) à écrire.

Je les attends. J'écrirai ton code lorsque je les aurai !

Tu verras ensuite un petit texte : celui que tu aurais du rédiger dès ton premier message et qui, à lui seul, aurait permis de tout comprendre dès le départ, parce que rédigé de manière technique, sans même parler d'autre chose ... juste en me référant techniquement à des colonnes, des lignes, des tîtres

________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Encore dsl ucfoutu

1) oui c est tt  a fait cela...

2) non ce n est pas un hasard, les codes des feuilles 2 et 3 sont tous issus de la feuille 1 (=contenu de la cellule en feuille 1)

3)en effet dans mon document, dans chaque feuille il y a plusieurs colonnes concernees  par mon critere de pertinence, ces dernieres ne sont pas forecement juxtaposees mais comme tu l as devine parfois separees par des colonnes non concernees.

Oui je commence a prendre la mesure de l ensemble des precisions dont tu as besoin.... Je suis vraiment dsl d avoir ete aussi gauche ...

Merci d avance...

Ps: oui je scruterai ce petit texte afin d'en prendre note..

ucfoutu · Answer

Excuse le retard (j'ai été occupé ailleurs).
Alors essaye ceci, donc :
tes données sur feuilles Feuil1, Feuil2, Feuil3 et Feuil4
Tes résultats affichés sur une feuille nommée resultat
Regarde les commentaires dans le code ===>> il te permettent de modifier ces noms et la chaîne de caractères retenue comme "critere" ===>>

Dim f As Worksheet, plage_a_copier As Range, titre_A1 As String, critere As String
  Dim feuilles_a_traiter
  Dim feuille_finale As Worksheet, i As Integer, j As Long, dercol As Long, derlig As Long
  
  Set feuille_finale Worksheets("resultat") '>> remplace par ton nom à toi, si tu veux
  titre_A1 "ce que tu veux" '>> le titre voulu en A1 sur ta feuille resultat
  critere "aa-" '>>> dans ton exemple, ce serait "synth-", si j'ai bien vu
  
  feuilles_a_traiter = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") ' mets ici tes feuilles à toi
  
  feuille_finale.Cells.ClearContents
  
  Application.ScreenUpdating = False
  For i = 0 To UBound(feuilles_a_traiter)
    Set f = Worksheets(feuilles_a_traiter(i))
    With f
      f.Activate
      ActiveSheet.UsedRange
      dercol = .Cells.SpecialCells(xlCellTypeLastCell).Column
      derlig = .Cells.SpecialCells(xlCellTypeLastCell).Row
      If i = 0 Then .Range("A1:A" & dercol).Copy Destination:=Worksheets("resultat").Range("A1")
      For j = 2 To dercol
        If .Cells(1, j).Value Like critere & "*" Then
          If plage_a_copier Is Nothing Then
            Set plage_a_copier = f.Range(.Cells(1, j), .Cells(derlig, j))
          Else
            Set plage_a_copier = Union(plage_a_copier, f.Range(.Cells(1, j), .Cells(derlig, j)))
          End If
        End If
      Next
      If Not plage_a_copier Is Nothing Then
        feuille_finale.Activate
        ActiveSheet.UsedRange
        dercol = feuille_finale.Cells.SpecialCells(xlCellTypeLastCell).Column
        plage_a_copier.Copy Destination:=feuille_finale.Cells(1, dercol + 1)
        Set plage_a_copier = Nothing
      End If
     End With
   Next
   feuille_finale.Range("A1") = titre_A1
   Application.ScreenUpdating = True

Lance et dis-moi si c'est bien cela, que tu attendais.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Bonjour et merci UCFOUTU, 

Cela marche...

J ai juste un petit pb. Lorsque je lance la macro la premiere fois tout va bien.

Mais les fois suivantes (Lorsque je veux plus ou moins rafraichir les donnees) au lieu de venir remplacer les anciennes donnees sur la meme plage de la 

feuille "resultat", les donnees rappatriees se decalent sur la droite et ainsi de suite..

Suis-je clair ?

Merci d'avance

ucfoutu · Answer

Je vois ce que c'est : probablement dû au fait que certaines de tes cellules ont, chez toi, été mises en forme.
On va alors modifier deux lignes :

la ligne disant :
 dercol = .Cells.SpecialCells(xlCellTypeLastCell).Column
à remplacer par
 dercol = .Cells(1, Columns.Count).End(xlToLeft).Column
et celle disant :
 dercol = feuille_finale.Cells.SpecialCells(xlCellTypeLastCell).Column
à remplacer par :
 dercol = feuille_finale.Cells(1, Columns.Count).End(xlToLeft).Column

Dis-moi si cela va maintenant bien chez toi.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

En attendant ta réponse et comme je te l'avais promis, voilà ce que tu aurais du dire simplement depuis le tout début :

J'ai plusieurs feuilles ainsi constituées :
- un nombre variables de colonnes, chaque colonne étant titrée
- un nombre variable, mais toujours le même pour chaque feuille, de lignes
- en colonne A de chaque feuille : à partir de la ligne 2 : toujours les mêmes articles, toujours classés dans le même ordre
Je souhaiterais pouvoir afficher sur une feuille nommée "resultat" :
- ma colonne A (puisque commune) en n'en modifiant que le titre
- toutes les colonnes (titre inclus), à la suite les unes des autres, dont le titre commencerait par une chaîne de caractères de mon choix


Clair, concis, technique et ne laissant planer aucun doute sur les tenants et aboutissants.
Tu constatera que cette rédaction se contente de parler de colonnes, lignes et titres, sans autres détails qui ne regardent que toi.
Une telle rédaction aurait permis d'emblée d'arriver à une solution que tu n'as pu avoir qu'après une série de questions/réponses qui n'ont fait qu'alourdir la discussion et gêner le développement.

Voilà : une telle rédaction ne fait appel, comme tu le vois, à aucune connaissance en développement. Elle n'est que l'expression claire d'une pensée claire. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Bonjour UCFOUTU, 

Oui, en effet rien que des lignes et des colonnes.... J'en prends bonne note !

Sinon j'ai remplace les deux lignes comme tu me le preconisais, mais ca ne marche plus...la macro bloque en feuille 3 constamment et ne me ramene plus les 

donnees dans la feuille resultat

J ai colle et essaye tour a tour la macro en n'en collant qu'une...et a ce que je vois je crois que c est la nouvelle premiere ligne qui ne va pas...

Car en changeant uniquement la deuxieme ligne dans la macro, la nouvelle logique marche mais cela ne rapatrie uniquement que les donnees de la feuille 3..

Merci d'avance

ucfoutu · Answer

Tu as dû faire quelque part une mauvaise manip ou renommer mal une feuille, car j'ai beau tester et retester chez moi ===>> aucun souci.
Renomme tes feuilles, ré-essaye ===>> si encore blocage : avec quel message d'erreur et sur quelle ligne ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Plus là ?
Si ne marche toujours pas, voici un code répondant à une autre philosophie qui, lui, va se "moquer" des pièges éventuels résultant de mises en forme.
Tous les chemins menant à Rome ===>>
Dim titre_A1 As String, critere As String, ou As Long, c As Range, a_supprimer As Range
  Dim feuille_finale As Worksheet, i As Integer, feuilles_a_traiter
  
  Set feuille_finale Worksheets("resultat") '>> remplace par ton nom à toi, si tu veux
  titre_A1 "ce que tu veux" '>> le titre voulu en A1 sur ta feuille resultat
  critere "aa-" '>>> dans ton exemple, ce serait "synth-", si j'ai bien vu
  feuilles_a_traiter = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") ' mets ici tes feuilles à toi
  
  Application.ScreenUpdating = False
  feuille_finale.Cells.ClearContents
  ou = 1
  For i = 0 To UBound(feuilles_a_traiter)
    With Worksheets(feuilles_a_traiter(i))
      If .Range("A1") <> "" Then
        .UsedRange.Copy Destination:=feuille_finale.Cells(1, ou)
        ou = ou + .Cells.SpecialCells(xlCellTypeConstants).Columns.Count + 1
      End If
    End With
  Next
  With feuille_finale
    For Each c In .UsedRange.Columns
      If c.Column > 1 Then
        If Not .Cells(1, c.Column).Value Like critere & "*" Then
          If a_supprimer Is Nothing Then
            Set a_supprimer = c
          Else
            Set a_supprimer = Union(a_supprimer, c)
          End If
        End If
      End If
    Next
    .Range("A1") = titre_A1
    If Not a_supprimer Is Nothing Then a_supprimer.EntireColumn.Delete
  End With
  Application.ScreenUpdating = True

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Et zut (pas assez prudent).
Remplace

ou = ou + .Cells.SpecialCells(xlCellTypeConstants).Columns.Count + 1

par

ou = ou + .UsedRange.Columns.Count + 1

Comme ça : je fais également face à d'autres présences éventuelles (formules, etc ...)

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ricoetienne · Answer

Ucfoutu, 

Dsl pour le temps de reponse...

Oui c bon j ai reassaye tout marche comme tu me le disais. Cela venait de moi, mais 

je ne sais pas d'ou !!

Je te remercie encore pour tout, ta patience et de t etre preocuppe de mon pb, c etait 

vraiment tres sympa de ta part..

Aurais -tu des conseils pour se lancer dans l'apprentissage du VBA ? ( Livres, cours sur 

internet ?)

Merci d'avance

ucfoutu · Answer

Clos ce sujet en cliquant sur le tag "Réponse acceptée" là où réponse adéquate.
Ce geste permettra de libérer cette discussion, mais également de faciliter des recherches ultérieures.

Aurais -tu des conseils pour se lancer dans l'apprentissage du VBA ? ( Livres, cours sur internet ?) 

Je suis bien le dernier à pouvoir te donner un conseil sur des cours, livres, etc ... puisque moi-même ne me suis formé qu'à l'aide de la lecture de l'aide VBA ! Je n'ai acheté qu'un seul livre, que j'ai immédiatement jeté à la poubelle tellement je l'ai trouvé contre-productif en matière d'apprentissage.
L'intérêt de ma démarche d'apprentissage ? ===>> en décortiquant, faisant des petits tests, etc ... j'ai évité d'être pollué par les approches d'autres. C'est peut-être là la raison de mes approches, souvent très personnelles, de chaque problème. Je m'en porte fort bien. 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Juxtaposition de plusieurs tableaux excel d un meme fichier, VBA

35 réponses

Votre réponse