Centraliser les écritures dans une seul Feuil ( VBA )

goube

XLDnaute Accro

• 19 Février 2020

• #2

Bonsoir,

Une solution avec power query
Cordialement

 

Pièces jointes

• test1.xlsx

  69.7 KB · Affichages: 9

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 19 Février 2020

• #3

Merci @goube, Mais j'ai jamais utilisé Power Query.... vous avez pas une slution VBA par hasard
Merci bien

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 19 Février 2020

• #4

re,

Désolé, pas un pro de VBA, je laisse la main à d'autres contributeurs plus expérimentés.
Sinon, Power Query est simple d'accès et facile à mettre en œuvre dans ton cas.
Cordialement.

 

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 19 Février 2020

• #5

Merci @goube pour votre réponse les résultats que vous m'avais envoyé ça me vas très bien pouvez vous me donner les étapes sur power query? par ce que j'ai jamais utilisé.

Merci

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Février 2020

• #6

Macro à extraire de ce fichier...

 

Pièces jointes

• Copie de test1.xlsm

  65 KB · Affichages: 14

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 20 Février 2020

• #7

Re,

Une procédure pour générer ton tableau.
Cordialement.

 

Pièces jointes

• test1.xlsx

  72.9 KB · Affichages: 14

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 20 Février 2020

• #8

goube à dit:

Re,

Une procédure pour générer ton tableau.
Cordialement.

Cliquez pour agrandir...

Merci beaucoup @goube

 

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 20 Février 2020

• #9

Dudu2 à dit:

Macro à extraire de ce fichier...

Cliquez pour agrandir...

Bonjour @Dudu2,
C'est ce que je recherche exactement c'est génial
Je suis débutant en VBA peut tu ajouter des explications su le programme svp? si ca vous dérange pas pour que je puisse appliqué le programme sur mon dossier original

Merci bien franchement c'est ce que je cherche comme résultat!

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Février 2020

• #10

Bonjour,
J'ai déjà pas mal commenté le programme. Après ce sont des instructions VBA.

Tu peux jouer sur 3 paramètres modifiables dont les noms sont explicites.

VB:

    'Paramètres de positionnement des données dans les feuilles
    Const NbLignesTitre As Integer = 2
    Const PremièreColonneData As Integer = 1
    Const NbColonnesData As Integer = 5

Sinon envoie un screenshot d'une de tes feuilles ou un fichier réel épuré des données confidentielles.

 

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 20 Février 2020

• #11

J'ai fait quelques modification et maintenant ça fonction chez moi! Merci bien
peut tu en passant m’expliquè les paramètres de positionnelent ca sert à quoi et

VB:

   'Paramètres de positionnement des données dans les feuilles
    Const NbLignesTitre As Integer = 2
    Const PremièreColonneData As Integer = 1
    Const NbColonnesData As Integer = 5

Et pour quoi vous avez choisi les valeurs 2, 1 et 5

Et si j'ajoute une colonne sur mes Feuils il faut que je rajoute quoi sur le programme ?

Merci d'avance

 

Dernière édition: 20 Février 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Février 2020

• #12

Comme indiqué, ce sont les paramètres de positionnement des données dans les feuilles.
Dans tes feuilles, il y a 2 lignes titre (les données commencent en ligne 3)
La première colonne de données (A) est la colonne 1.
Il y a 5 colonnes de données (les colonnes de A à E)

 

Vote positif 0 Vote négatif

A

Anr1

XLDnaute Occasionnel

Supporter XLD

• 20 Février 2020

• #13

@Dudu2 Parfait maintenant j'ai bien compris je vous remercie une autre fois !
Bonne journée à vous

 

Vote positif 0 Vote négatif