XL 2019 Assembler plusieurs colonnes à l'aide de power Query suivi d'un code VBA pour actualiser

[mmaiga]

Bonjour,

J'aurais besoin de votre à propos d'assembler plusieurs colonnes à l'aide de power Query suivi d'un code VBA pour actualiser à chaque fois qu'une mise à jour est effectuée. Avant j'avais accès à la fonction Assemb.V qui me facilitait le boulot maintenant je l'ai plus, en effet, je cherche une solution alternative pour palier ce problème.

En réalité je travaille sur plusieurs fichiers qui sont reliés entre eux avec des fonctions et à la fin j'aurais besoin d'assembler tous ces fichiers, j'ai fais un recours à power query mais le seul inconvénient est que il faut que j'actualise à chaque fois et ça m'embête un peu.


Y a-t-il un moyen pour palier ce problème ?

Existe-t-il- il un autre moyen pour palier ce problème ?

 

[job75]

Bonjour mmaiga,

On peut tout faire en VBA.

Dites-nous d'où viennent les diverses colonnes.

A+

 

[mmaiga]

C'est à dire, j'ai pas bien saisi la question.

 

[chris]

Bonjour

La commande ThisWorkBook.RefreshAll actualise tout

Il faudrait sinon que l'on en sache plus sur la requête pour une actualisation plus fine

 

[mmaiga]

Vous trouverez ci-joint le doc demandé

 

[merinos-BernardEtang]

Bonjour,

Ecrire du code pour un refresh ... je ne comprends pas.

 

[mmaiga]

Dès le départ je lance un code VBA qui m'affiche des résultats à partir de la j'utilise des fonctions pour le reste des calculs sauf au niveau de l'assemblage je suis obligé de rafraîchir à nouveau.

 

[chris]

RE
[Requête1].ListObject.QueryTable.Refresh

 

[job75]

Dites-nous d'où viennent les diverses colonnes.

C'est à dire, j'ai pas bien saisi la question.

De quels fichiers, feuilles, cellules viennent les données ?

Et comment les traitez-vous ?

 

[mmaiga]

Merci pour vos retours. Finalement j'ai pu trouver la solution.

 

[mmaiga]

Bonjour tout le monde,

J'aurais besoin de votre aide.

Etant donné que je suis novice en VBA j'aurais besoin d'une programmation qui permet de supprimer des lignes. A travers ce fichier ci-joint, j'aimerais supprimer dans la colonne C (PCI) toutes les lignes qui contiennent cellule_non_dispo.

Dans l'attente de vos retours.

 

[job75]

Bonjour,

Voyez le fichier joint et les macros affectées aux boutons :

Sub Suppression_peu_de_lignes()
Dim i&
Application.ScreenUpdating = False
With Feuil1.[A1].CurrentRegion.EntireRow
    For i = .Rows.Count To 2 Step -1
        If .Cells(i, 3) = "Cellule_non_dispo" Then .Rows(i).Delete
    Next
    With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub

Sub Suppression_beaucoup_de_lignes()
Application.ScreenUpdating = False
With Feuil1.[A1].CurrentRegion
    .Columns(3).EntireColumn.Insert 'insère une colonne auxiliaire
    .Columns(3) = "=1/(RC[1]<>""Cellule_non_dispo"")"
    .Columns(3) = .Columns(3).Value 'supprime les formules
    .EntireRow.Sort .Columns(3), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    .Columns(3).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
    .Columns(3).EntireColumn.Delete 'supprime la colonne auxiliaire
    With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub

Sub Réinitialisation()
Feuil2.[A:F].Copy Feuil1.[A1]
End Sub

S'il y a beaucoup de lignes à supprimer il faut utiliser la 2ème macro, beaucoup plus rapide.

A+

 

[mmaiga]

Merci pour ce retour...


Impeccable, c'est exactement ce que je cherchais.

Merci infiniment