XL 2019 Transferts de Données

Caninge · 10 Janvier 2023

Bonjour à tous,
Avant toutes choses je vous envoie mes meilleurs vœux pour l'année 2023.
Il y a longtemps que je ne suis pas venu sur le forum.
Je n'arrive pas toujours tout seul à résoudre certains de mes problèmes.
Quelques fois oui et souvent non lol.
Donc en voici un autre que je soumets à vos connaissances :
Dans mon fichier je voudrais transférer les données d'une feuille à l'autre. Analytiques vers Récap
D'abord par années et ensuite par les dépenses avec en dessous les recettes.
Comme je le fais à chaque fois je vous joins mon fichier exemple pour que cela soit plus compréhensible.
Merci de se pencher sur celui-ci.
CANINGE

merinos · 10 Janvier 2023

Bonjour @Caninge,

Il y a plusieurs solutions...

J'aime bien QUERY...

L'on est contant de pouvoir servir,
Merinos

youky(BJ) · 10 Janvier 2023

Bonjour Caninge,
Voici une petite macro à mettre en Module1
Bruno

VB:

Sub recap()
Dim lig%, col%, bas%
Feuil1.Select
With Feuil2
.[B7:Z65000].ClearContents
For lig = 4 To [B65000].End(3).Row
col = ((Cells(lig, 2) - 2021) * 6) + 2
bas = Feuil2.Cells(65000, col).End(3).Row + 1
.Range(.Cells(bas, col), .Cells(bas, col + 4)).Value = _
Range("B" & lig & ":F" & lig).Value
Next
End With
End Sub

Jacky67 · 10 Janvier 2023

Caninge à dit:
Bonjour à tous,
Avant toutes choses je vous envoie mes meilleurs vœux pour l'année 2023.
Il y a longtemps que je ne suis pas venu sur le forum.
Je n'arrive pas toujours tout seul à résoudre certains de mes problèmes.
Quelques fois oui et souvent non lol.
Donc en voici un autre que je soumets à vos connaissances :
Dans mon fichier je voudrais transférer les données d'une feuille à l'autre. Analytiques vers Récap
D'abord par années et ensuite par les dépenses avec en dessous les recettes.
Comme je le fais à chaque fois je vous joins mon fichier exemple pour que cela soit plus compréhensible.
Merci de se pencher sur celui-ci.
CANINGE

Bonjour à tous
Une proposition qui se met à jour à la sélection de la feuille récap
Le format de [b4], [h4], [n4] de la feuille récap est modifié
** PJ Modifiée

Caninge · 10 Janvier 2023

Bonsoir à Tous,
Je regarderai toutes vos propositions et je vous tiens au courant.
Merci et bonne soirée.

Caninge · 11 Janvier 2023

Bonjour à tous,
Il fallait que je choisisse, du coup j'ai pris la solution de Jacky67.
Merci à vous tous et bonne soirée.
CANINGE

Jacky67 · 11 Janvier 2023

Caninge à dit:
Bonjour à tous,
Il fallait que je choisisse, du coup j'ai pris la solution de Jacky67.
Merci à vous tous et bonne soirée.
CANINGE

RE..
Alors en un peu plus élaboré
Tient compte des années ajoutées etc....
Le tout par vba

Caninge · 16 Janvier 2023

Jacky67 à dit:
RE..
Alors en un peu plus élaboré
Tient compte des années ajoutées etc....
Le tout par vba

Bonjour Jacky67,
merci pour cette deuxième intervention que je met sous le coude.
La première me va très bien.
Je verrais par la suite s'il y a besoin d'une amélioration.
En attendant merci beaucoup.
CANINGE

Caninge · 7 Juin 2023

Bonjour à tous,
me revoici, mon tableau a été modifié, j'ai rajouté des colonnes
je voudrais transférer les données de la feuille "ANALYTIQUES" dans la feuille "RECAP"
Disposer par années de 2022 à 2023 l'un en dessous de l'autre en séparant les années.
Bien sur j'aimerais savoir faire mais voilà !!!
Merci de me donner un coup de main.
CANINGE

job75 · 7 Juin 2023

Bonjour Caninge,

VB:

Private Sub Worksheet_Activate()
Dim i&
Application.ScreenUpdating = False
With [B4]
    .EntireRow.Resize(Rows.Count - .Row + 1).Clear
    Sheets("Analytiques").[A6].CurrentRegion.Copy .Cells
    .EntireRow.Clear
    With .Cells(2).CurrentRegion.EntireRow
        .Sort .Columns(3), xlAscending, Header:=xlNo
        For i = .Rows.Count To 2 Step -1
            If .Cells(i, 3) <> .Cells(i - 1, 3) Then
                .Rows(i).Insert
                .Rows(i).Clear
            End If
        Next
    End With
End With
End Sub

Edit : ajouté .EntireRow par précaution.

A+

Caninge · 8 Juin 2023

Bonjour Job75,
c'est super, en quelques lignes et le tour est joué.
Je regarde cela de plus près et je vous tiens au courant.
Merci

Caninge · 8 Juin 2023

Bonjour Job75,
c'est parfait, j'ai adapté le code sur mon fichier de base.
Merci et à la prochaine.
Bonne soirée
CANINGE

XL 2019 Transferts de Données

Caninge

XLDnaute Accro

Pièces jointes

merinos

XLDnaute Accro

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

Caninge

XLDnaute Accro

Jacky67

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

Caninge

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

Caninge

XLDnaute Accro

Discussions similaires