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

job75

XLDnaute Barbatruc

• 27 Décembre 2022

• #2

Bonjour mmaiga,

On peut tout faire en VBA.

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

A+

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 27 Décembre 2022

• #3

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Décembre 2022

• #4

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

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 27 Décembre 2022

• #5

Vous trouverez ci-joint le doc demandé

 

Pièces jointes

• assembler.xlsx

  540.4 KB · Affichages: 6

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 27 Décembre 2022

• #6

Bonjour,

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

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 27 Décembre 2022

• #7

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.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Décembre 2022

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Décembre 2022

• #9

job75 à dit:

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

Cliquez pour agrandir...

mmaiga à dit:

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

Cliquez pour agrandir...

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

Et comment les traitez-vous ?

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 27 Décembre 2022

• #10

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

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 28 Décembre 2022

• #11

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.

 

Pièces jointes

• suppresionvba.xlsx

  14.2 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2022

• #12

Bonjour,

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

VB:

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+

 

Pièces jointes

• suppresionvba(1).xlsm

  30.2 KB · Affichages: 6

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 28 Décembre 2022

• #13

Merci pour ce retour...


Impeccable, c'est exactement ce que je cherchais.

Merci infiniment

 

Vote positif 0 Vote négatif