XL 2016 Macro pour automatiser le nettoyage d'un fichier

kevint13 · 2 Octobre 2019

Bonjour tout le monde,
Je sollicite votre aide pour établir une macro qui va changer ma vie !

Voici en détail mon besoin :

Pour chaque colonne du tableau :
- Vérifier que chaque cellule de la colonne ne contient pas de texte. S'il y a du texte (peu importe le texte) remplacer la valeur par la moyenne de la colonne en question :

Une fois la première colonne vérifiée, passer à la colonne suivante et répéter l'opération pour vérifier toutes les colonnes une par une.

Spécificités :
1) J'ai toujours une colonne avec des dates (généralement c'est la première), cette colonne ne doit pas être traitée ou ne doit pas changer.
2) Il m'arrive d'avoir plusieurs niveaux (ligne) de titre, il faudrait peut-être pouvoir indiquer à la macro à quel N° de ligne commencer ? :

J'espère avoir été assez explicite sur la problématique, merci encore pour votre aide !

kevint13 · 6 Octobre 2019

Je pense avoir trouvé !

VB:

Sub nettoyer_fichier()
Dim LG&, CL&, i&, PlG As Range
Dim Titre As Double
Titre = InputBox("Combien de ligne de titre : ", "Ligne de titre")
LG = Cells(Rows.Count, 1).End(xlUp).Row
CL = Cells(Titre + 1, 2).End(xlToRight).Column
On Error Resume Next
For i = 2 To CL
Set PlG = Cells(Titre + 1, i).Resize(LG - Titre)
PlG.SpecialCells(2, 2).Value = Application.Average(PlG)
Set PlG = Nothing
Next
End Sub

kevint13 · 6 Octobre 2019

Merci beaucoup pour ton aide !

Staple1600 · 6 Octobre 2019

Re

Tu n'as testé le code que j'ai posté dans le message#16?
Car pas eu de retour sur celui-ci de ta part.

J'en suis fort marri, du coup je me reverse un petit verre, tout en affichant un air chafouin... (snif)

EDITION: Je viens de voir ton message, trop tard
Du coup, je remis l'alcool dans la bouteille et désormais affiche une mine réjouie

Staple1600 · 6 Octobre 2019

Re

Tu parles de MsgBox mais dans ton code tu utilses un InputBox?

Tu veux faire quoi au juste?

Staple1600 · 6 Octobre 2019

Re

Une dernière proposition (avant de passer à table)
Et avec ce que j'ai compris par rapport à cette histoire de lignes de Titre

VB:

Sub test_III()
Dim LG&, CL&, i&, j&, PremL&, PlG As Range
LG = Cells(Rows.Count, 1).End(3).Row
    For j = 1 To 10
        If IsDate(Cells(j, 1)) Then
        PremL = Cells(j, 1).Row
        Exit For
        End If
    Next j
CL = Cells(PremL, 2).End(xlToRight).Column
On Error Resume Next
For i = 2 To CL
Set PlG = Cells(PremL, i).Resize(LG - 4)
PlG.SpecialCells(2, 2).Value = Application.Average(PlG)
Set PlG = Nothing
Next
End Sub

kevint13 · 6 Octobre 2019

L'idée est que je puisse saisir manuellement le nombre de ligne de titre dans un inputbox pour déterminer le point de départ de la macro

Staple1600 · 6 Octobre 2019

Re

C'est ce que fait justement ma dernière macro....
Tu n'avais pas saisi ce à quoi correspondait PremL ?

XL 2016 Macro pour automatiser le nettoyage d'un fichier

kevint13

XLDnaute Nouveau

kevint13

XLDnaute Nouveau

kevint13

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

kevint13

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires