Réorganisation de données (2/3) : via PowerQuery

  De Gaetan Mourmant | 3/8/2018 - 02:20 |
Réagir

Résolution manuelle (1/3) - Avec PowerQuery (2/3) - Avec VBA (3/3)
Bonjour,

Voici le deuxième épisode de la réorganisation des données.

Cette fois, on va utiliser PowerQuery.

Cliquez ici pour télécharger le fichier.

Comme le processus est un peu long, je donne juste les principales étapes :
importer les données dans PowerQuery
supprimer les Null
copier-coller le résultat
supprimer une ligne sur deux dans les deux tables
ajouter un index pour chaque table
joindre la deuxième table à la première via l'index

Le processus est plus long que la première solution, mais une fois la requête effectuée, l'actualisation pour de nouvelles données se fait en un clic via l'actualisation du tableau final.

Et en vidéo, ca nous donne :

Source :
https://community.powerbi.com/t5/Desktop/Every-other-row-to-new-column/td-p/205313

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Réorganisation de données (1/3) : via Excel

  De Gaetan Mourmant | 3/8/2018 - 01:28 |
Réagir

Résolution manuelle (1/3) - Avec PowerQuery (2/3) - Avec VBA (3/3)
Dans cette vidéo, on va voir comment passer de ceci à cela en utilisant les fonctionnalités d'excel :

Cliquez ici pour télécharger le fichier.

Les grandes étapes sont :
sélectionner les cellules vides (CTRL+A,touche F5, Cellules, Cellules vides)
supprimer les lignes (CTRL + -)
ajouter la référence appropriée (en B2, la formule est =A1)
copier B1:B2 vers le bas
copier coller en valeur la colonne B
et finalement supprimer les lignes avec une cellule vide en colonne B (touche F5, Cellules, Cellules vides, CTRL + -)

Ca parait long comme ca, mais ca se fait en moins de deux minutes :

A bientôt.

Gaetan

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Compléter les lignes vides

  De Gaetan Mourmant | 26/7/2018 - 04:16 |
Réagir

Bonjour à tous,

Voici deux petites vidéos récapitulatives pour compléter une table ayant des lignes vides.

On va voir 2 méthodes (il y en a certainement plus, notamment par VBA) :
par PowerQuery :
1/ vous devez disposer d'une version récente d'Excel
2/ importez les données dans powerquery (Données, A partir d'un tableau ou d'une plage)
3/ finalement, transformer les données en recopiant vers le bas (voir l'image ci-contre).

par touche de raccourci - déjà discutée ici, mais une piqure de rappel ne peut que faire du bien !
1/ Sélectionnez la plage contenant toutes les cellules vides (y compris des cellules remplies).
Vous pouvez utiliser les combinaisons suivantes : se placer en haut du tableau (CTRL+Début), puis CTRL + MAJ + Fin et enfin CTRL + MAJ + Flèche gauche (plusieurs fois si nécessaire).
2/ Une fois la plage sélectionnée, on va uniquement sélectionner les cellules vides. Appuyez sur la touche F5, cliquez sur Cellules... et double-cliquez sur "cellules vides"
3/ Enfin, tapez "=" et appuyez sur la flèche haut
4/ Validez par CTRL + Entrée pour recopier la formule sur toute la plage de données.
5/ Finalement, sélectionnez la plage au complet (par exemple en cliquant sur la colonne A) et copier collez en valeur (CTRL + C, puis Collage spécial en valeur).

Voici donc la méthode avec PowerQuery

Voici la méthode en utilisant les touches de raccourci

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Formations à moitié prix et nouveaux packs !

  De Gaetan Mourmant | 24/7/2018 - 08:49 |
Réagir

Bonjour à tous,

Ces deux formations sont excellentes et 90% du contenu est encore d'actualité, mais avec l'introduction de PowerQuery et PowerPivot, ainsi que des nouveaux graphiques intégrés dans Excel, une mise à jour est devenue plus que nécessaire.
N'ayant pas le temps de la faire tout de suite (quelle surprise !), je vous invite à bénéficier d'une super, giga, fantastique offre :
50 % de réduction sur ces formations jusqu'à épuisement des stocks pour la version DVD ou jusqu'au 15 janvier, minuit (heure française)

Pour en savoir plus sur chacune des formation, cliquez sur le lien ci-dessous :
- Tableaux de bord
- Organisez et gérez vos données

N'attendez pas ! Il ne reste plus que 27 DVD pour "Organisez et gérez vos données" et la formation est à moitié prix.

Nouveaux packs !

Deuxième suprise de la journée, après 10 h de travail quasi non-stop, venez découvrir les nouveaux Packs d'XLérateur !
Cliquez ici

A bientôt pour la suite !

Gaetan Mourmant

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Excel VBA – Rapatrier les informations d’un fichier (chemin/emplacement et nom)

  De Gaetan Mourmant | 24/7/2018 - 01:27 | ,
Réagir

Bonjour à tous,

Voici une amélioration d'un ancien post.

Le but est de rapatrier les informations d'un fichier que l'on sélectionne via une boîte de dialogue.

Cliquez ici pour télécharger le fichier Excel.

Ce code est ensuite très pratique pour pouvoir ensuite effectuer des traitements sur un fichier sélectionné.

Voici le code : 

Option Explicit
Sub choix_CheminEtFichiers()
'Cette macro permet de mettre dans la plage nommee les informations du fichier selectionne
    'note : on aurait pu tout faire en une seule fois sans variables, mais en ayant
    'des variables, cela permet de facilement continuer le code par la suite.
    Dim strFichier As String
    Dim strChemin As String
    Dim strCheminEtFichier As String
    'on ouvre la boite de dialogue pour recuperer les informations du fichier selectionne
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        On Error Resume Next
        strChemin = .SelectedItems.Parent.InitialFileName
        strCheminEtFichier = .SelectedItems.Item(1)
        'note : il existe de nombreuses autres solutions pour recuperer le nom du fichier
        strFichier = Right(strCheminEtFichier, Len(strCheminEtFichier) - InStrRev(strCheminEtFichier, "\"))
        On Error GoTo 0
    End With
    'on rapatrie les informations dans la feuille excel
    If strCheminEtFichier <> "" Then
        Range("Nom_du_Fichier").Value = strFichier
        Range("CheminFichier").Value = strChemin
        Range("Nom_et_Chemin_du_Fichier").Value = strCheminEtFichier
    End If
    'on ajuste la colonne contenant le resultat
    Columns(Range("Nom_du_Fichier").Column).EntireColumn.AutoFit
End Sub

Bonne continuation.

Gaetan Mourmant

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !