XL 2019 Transferts de Données

[Caninge]

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]

Bonjour @Caninge,

Il y a plusieurs solutions...

J'aime bien QUERY...


L'on est contant de pouvoir servir,
Merinos

 

[youky(BJ)]

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

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]

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]

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

 

[Caninge]

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]

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]

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]

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]

Bonjour Caninge,

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]

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]

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