Discussion :

[anarchiste-mouton]

Bonjour à tous,

J'ai pour le travail certaines requètes à extraire et mettre en forme. L'une d'entre elle me pose pas mal de soucis (elle est très chronophage) car je dois dabord fusionner deux tableaux pour pouvoir exploiter les resultats.

Une image vaut mieux que des mots :


Actuellement je m'y prend de la façon suivante :

1- Je masque les lignes pour n'afficher que les entêtes des tableaux 1 et 2 (evidemment les vrais tableaux sont plus gros)
2- Je selectionne 'entête +lignes cachées d'une colonne du tableau 2 (exemple : [F10:F15]) et la déplace sous celle qui correspond au tableau 1 ([I10;I15])
3- Une fois que tout est bien placé, je supprime l'entête du tableau 2 afin de ne garder qu'un gros tableau
4- Je tri colonne A puis colonne B afin de mettre en evidence des lignes redondantes (ici il y a juste "dent jaune") et je les additionnent (sans macro pour l'instant ^^').

Vous y prendriez-vous autrement à ma place?

Ce site est super sinon, merci beaucoup

[unparia]

Bonjour

Vous y prendriez-vous autrement à ma place?

par étapes (et chaque étape devrait normalement être une discussion -le principe est sur ce forum de ne traiter qu'une difficulté parfaitement isolée et non un ensemble de difficultés-, sauf si tu sais déjà la conduire)
Etape 1 : créer une feuille résultats vierge, hormis les entêtes , qui devront toutes être là et sans doublon d'entête
Question, donc : Sais-tu au moins déjà mener à bien cette opération simple ?

A ce niveau, on peut se demander si le véritable problème n'est pas celui de la conception-même de la démarche la plus adroite ...

[anarchiste-mouton]

Bonjour unparia et merci de prendre le temps de m'aider,

L'étape 1 donnerai donc ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Faire_entete()
 
    Range("A1").FormulaR1C1 = "Organe"
    Range("B1").FormulaR1C1 = "Couleur"
    Range("C1").FormulaR1C1 = "Lapin"
    Range("D1").FormulaR1C1 = "Crapeau"
    Range("E1").FormulaR1C1 = "Taureau"
    Range("F1").FormulaR1C1 = "Poney"
    Range("G1").FormulaR1C1 = "Mouton"
    Range("H1").FormulaR1C1 = "Chien"
    Range("I1").FormulaR1C1 = "Poisson"
    Range("J1").FormulaR1C1 = "Koala"
 
End Sub

[patricktoulon]

bonjour
regarde ce que fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
ActiveSheet.Range("A1:z100").AutoFilter Field:=1, Criteria1:="<>"
End Sub

il ne te reste plus qu'a supprimer les lignes d'entete en doubles en gardant la plus longue

[boisgontierjacques]

Bonjour,

Avec Données/Consolider?

Boisgontier