Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Fusionner 2 onglets et copier les données en bas du tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion babass78
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

babass78

XLDnaute Occasionnel
Bonjour,



J’ai une macro qui va chercher les données des onglets FRNS BALANCE et SHARE pour coms et les copier dans RECAP FRNS



Explication des onglets :

Liste clts frns : Chaque ligne est un client qui va avec le fournisseur

RECAP FRNS : c’est FRNS BALANCE et SHARE pour coms réunis


L’onglet Liste clts frns en fonction de la colonne N va chercher les données de l’onglet RECAP FRNS des colonnes J à Q en fonction de la colonne J.


Mais dès que j’exécute la macro RECAPFRNS, cela fait sauter la formule dans l’onglet Liste clts frns


Peut-on ne prendre que les lignes de SHARE pour coms qui ont 1 en colonne V et le fusionner avec FRNS BALANCE pour les copier dans RECAP FRNS ?


1ère question :

Comment faire pour que la formule reste dans l’onglet Liste clts frns ?



2ème question


Onglet Nouveau : Colonne S :

Je voudrai copier les données des colonnes K à Q de RECAP FRNS et les colonnes O à U de Liste clt frns dans Nouveau à partir de la colonne T dernière ligne (nombre de lignes variables)


S’il trouve un doublon entre RECAP FRNS et Liste clt frns, il ne devra pas copier les cellules O à U dans Nouveau


Merci de votre aide
 

Pièces jointes

Trier par date Trier par votes
Hello
Me revoici avec une nouvelle version

Regarde le module 1
il y a 3 macro pour traiter les feuilles brutes
pour la seconde (SHARE_Brut_To_COMS) il faudrait que tu valides: OK ou KO?
en effet, au moment de la copie des colonnes, tu copies deux fois la colonne A..? normal? utile?


pour la 3eme macro: "Clients_Brut_To_Nouveau"
j'ai ajouté la partie manquante par rapport à hier..
idem.. à valider

ensuite.. il va falloir faire le tri des macros devenues inutiles dans les autres modules..

Module 4: macro "Liste_Clts_Frns_Relations"
tu mets des formules dans une feuille qui n'existe pas dans le fichier..
idem. il faudrait modifier les formules avec un Sierreur(formule;"") pour éviter d'avoir des N/A partout

ensuite.. euh.. faut réexpliquer la suite :-D
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à toi

J'ai lance la macro du Module 1 j'ai une erreur à texte en rouge ci dessous

Erreur d execution type 13

For j = LBound(TabNouveau, 1) To UBound(TabNouveau, 1)
identique = True
For k = 13 To 20 'colonne M à T à comparer avec colonnes K à R
MsgBox TabNouveau(78, 11)
On Error Resume Next 'ligne à mettre sinon. erreur.. sans doute à cause des N/A ?


J’ai supprimé les macros qui ne servent pas dont Module 4 Liste_Clt_Frns_Relations

pour la seconde (SHARE_Brut_To_COMS) il faudrait que tu valides: OK ou KO?

o Oui c’est bon mais peut on supprimer les lignes où il y LIV dans la cellule colonne H N°Lot ?

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
ha pardon. j'avais pas vu qu'il s'agissait des lignes qui COMMENCENT par LIV

avec le code déjà proposé, tu aurais pu trouver tout seul..
VB: 
Sub SHARE_Brut_To_COMS() '==> BOUTON "SHARE_Brut vers SHARE pour coms" dans feuille "SHARE BRUT"    ==>OK
Application.ScreenUpdating = False
With Sheets("Share pour coms")
    .UsedRange.Offset(1, 0).Delete
    .AutoFilterMode = False
End With
With Sheets("SHARE BRUT")
'    .Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
'        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
'        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
'        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
'        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
'        ), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
       
    .Columns("A:A").Copy Destination:=Sheets("Share pour coms").Range("A:A") 'on copie la colonne A (société)
    .Columns("A:A").Copy Destination:=Sheets("Share pour coms").Range("B:B") 'on copie la colonne A (société): une deuxième fois?
    .Columns("D:D").Copy Destination:=Sheets("Share pour coms").Range("C:C")
    .Columns("C:C").Copy Destination:=Sheets("Share pour coms").Range("D:D")
    .Columns("B:B").Copy Destination:=Sheets("Share pour coms").Range("E:E")
    .Columns("I:I").Copy Destination:=Sheets("Share pour coms").Range("G:G")
    .Columns("S:S").Copy Destination:=Sheets("Share pour coms").Range("H:H")
    .Columns("M:M").Copy Destination:=Sheets("Share pour coms").Range("I:I")
    .Cells.Clear
End With

With Sheets("Share pour coms")
    formuleL = "=Concatener(C2;D2;E2)"
    formuleO = "=C2"
    formuleT = "=I2"
   
    Fin = .Range("C" & .Rows.Count).End(xlUp).Row
    .Range("L2").FormulaLocal = formuleL
    .Range("O2").FormulaLocal = formuleO
    .Range("T2").FormulaLocal = formuleT
    .Range("O2:S2").FillRight
    .Range("R2").Clear
    .Range("L2:T" & Fin).FillDown
   

    'on met "Quelle Session?" dans les cellules vides de la colonne D
    .Range("C1:S" & Fin).AutoFilter field:=2, Criteria1:="="
    .Range("D2:D" & Fin).SpecialCells(xlCellTypeVisible) = "Quelle Session?"
    .AutoFilterMode = False
   
    'on supprime les lignes dont la colonne H ne CONTIENT PAS "ECH"
    .Range("C1:S" & Fin).AutoFilter field:=6, Criteria1:="<>*ECH", Operator:=xlAnd
    .Range("C2:C" & Fin).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
   
    'on supprime les lignes dont la colonne H commence par "LIV"
    .Range("C1:S" & Fin).AutoFilter field:=6, Criteria1:="=LIV*", Operator:=xlAnd
    .Range("C2:C" & Fin).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
   
    .Columns.AutoFit
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
768
whiteshark
W
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
2 K
AlexiaC
A
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
590
Magnio
G
  • Question Question
Microsoft 365 Ajouter et supprimer des données sur tableau de bord
Réponses
6
Affichages
1 K
grace2023
G
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
697
oguruma
POWERQUERY :: Combiner un dossier Excel comportant des fichiers avec des onglets (tableaux structurés) de même structure
Réponses
2
Affichages
636
oguruma
W
  • Question Question
XL 2016 Calculer les présences en "Seul" ou "Accompagné" en tableau 1 et présenter la synthèse en tableau 2
2
Réponses
21
Affichages
2 K
Webperegrino
W
N
  • Résolu(e)
XL 2019 copier 2 colonnes d'un classeur A et coller les données dans une seule colonne dans un classeur B
Réponses
14
Affichages
753
Dranreb
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
823
oguruma
K
  • Question Question
XL 2016 Fusion de données de plusieurs onglets sous conditions
Réponses
4
Affichages
1 K
kvizou
K
Y
  • Question Question
XL 2019 filtrage de données et recopie vers feuille
Réponses
14
Affichages
2 K
youpi457032
Y
B
  • Résolu(e)
XL 2016 Comment copier des données dans des colonnes différentes et les retranscrire en ligne?
Réponses
7
Affichages
1 K
Binger
B
B
  • Question Question
XL 2010 Fusionner 2 onglets et supprimer donnees
Réponses
0
Affichages
634
babass78
B
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
B
  • Question Question
XL 2010 comparer 2 onglets et copier sur un troisième onglet
Réponses
2
Affichages
787
babass78
B
B
  • Question Question
XL 2010 Chercher les infos sur 2 onglets pour les copier sur un 3ème
Réponses
5
Affichages
1 K
babass78
B
S
  • Question Question
XL 2010 copier coller colonne paire et impaire dans nouveau fichier
Réponses
4
Affichages
3 K
staros
S
D
  • Question Question
Microsoft 365 Compléter un tableau de suivi automatiquement et bien compliqué :-)
Réponses
1
Affichages
2 K
herve62
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
C
  • Question Question
Word VBA Excel-Word: Coller du texte l'un en dessous de l'autre
Réponses
1
Affichages
4 K
Conrad13
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…