XL 2016 Macro pour automatiser le nettoyage d'un fichier

Staple1600

XLDnaute Barbatruc

• 5 Octobre 2019

• #2

Bonsoir le fil

kevint13 à dit:

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

Cliquez pour agrandir...

Le grand nombre de réponses dans ton fil, prouve que tu as effectivement été explicite

Blague en part, peut-être qu'en joignant un fichier exemple (allégé et anonymisé), on y verrait plus clair et ce serait plus facile pour nous de t'aider, non ?

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 5 Octobre 2019

• #3

Staple1600 à dit:

Bonsoir le fil


Le grand nombre de réponses dans ton fil, prouve que tu as effectivement été explicite

Blague en part, peut-être qu'en joignant un fichier exemple (allégé et anonymisé), on y verrait plus clair et ce serait plus facile pour nous de t'aider, non ?

Cliquez pour agrandir...

Merci pour ton retour, en effet avec un exemple c'est plus parlant !
Dans le fichier joint il y a des textes (le texte peut varier du coup il faudrait idéalement qu'il remplace le texte peut importe ce qui est écrit dans la cellule) qui faudrait remplacer par la moyenne de la colonne en question sans toucher au texte en rouge (c'est les titres) ni à la première colonne (c'est la date)

Merci encore pour ton aide !

 

Pièces jointes

• C102 bdd 2019_data.xlsx

  66.1 KB · Affichages: 7

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Octobre 2019

• #4

Re

Pas sur d'avoir tout compris
Je te laisse tester

VB:

Sub test()
Dim LG&
LG = Cells(Rows.Count, 1).End(3).Row
On Error Resume Next
Rows("5:" & LG).SpecialCells(xlCellTypeConstants, 2).Value = 0
Cells(LG + 1, 2).Resize(, 42).FormulaR1C1 = "=AVERAGE(R[-95]C:R[-1]C)"
End Sub

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #5

Staple1600 à dit:

Re

Pas sur d'avoir tout compris
Je te laisse tester

VB:

Sub test()
Dim LG&
LG = Cells(Rows.Count, 1).End(3).Row
On Error Resume Next
Rows("5:" & LG).SpecialCells(xlCellTypeConstants, 2).Value = 0
Cells(LG + 1, 2).Resize(, 42).FormulaR1C1 = "=AVERAGE(R[-95]C:R[-1]C)"
End Sub

Cliquez pour agrandir...

C'est un excellent début !

Ce qui a bien marché :
- Ne pas impacter la première colonne et les tires
- Remplacer toutes les valeurs textes

Ce qui n'a pas marché :
- remplacer les textes par la moyenne de la colonne en question (actuellement remplacé par 0)

Est ce qu'il faudrait pas faire le remplacement des valeurs colonne par colonne en partant de la 2ème jusqu'à la fin ?
Merci pour ton aide !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #6

Bonjour le fil

kevint13
Si j'étais moi, je me convaincrais de te suggérer de mettre dans un fichier exemple, deux onglets
AVANT et APRES
On a déjà l'onglet AVANT
Et sur l'onglet APRES, on pourrait voir en ce dimanche matin pluvieux, le résultat (sur une colonne ou deux par exemple) que tu aurais réalisé manuellement.

Ce qui permettrai d'y voir plus clair

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #7

Salut Staple1600,
Merci pour ton retour, voici le fichier avant et après
J'ai ajouté sur l'onglet après les actions qui sont réalisées manuellement

 

Pièces jointes

• C102 bdd 2019_data.xlsx

  87.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #8

Re

Et cette fois-ci, aprés un excellent début, est-ce une excellente fin ?

VB:

Sub test_II()
Dim LG&, CL&, i&, PlG As Range
LG = Cells(Rows.Count, 1).End(3).Row
CL = Cells(5, 2).End(xlToRight).Column
On Error Resume Next
For i = 2 To CL
Set PlG = Cells(5, i).Resize(LG - 4)
PlG.SpecialCells(2, 2).Value = Application.Average(PlG)
Set PlG = Nothing
Next
End Sub

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #9

C'EST PARFAIT !!! Tu es au top !

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #10

Tu penses qu'il est possible d'ajouter un message box pour inscrire manuellement le nombre de ligne de titre (ça peut varier entre 1 et 4) ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #11

Re

Je penses qu'il est d'abord l'heure de l'apéro
Ensuite, je suis pour inciter le demandeur à mettre les mains dans le cambouis pour solutionner sa question.
Normalement avec les bouts de code que j'ai posté dans le fil (et avec l'aide de la touche F1 dans VBE, et du net)
tu devrais être en mesure de faire ce MsgBox
Yercʼh mad !
(ou "à la tienne" pour les gens de France )

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #12

Super, merci encore ! et santé !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #13

Re

Alors tu as trouvé comme afficher ce MsgBox ?

 

Vote positif 0 Vote négatif

K

kevint13

XLDnaute Nouveau

• 6 Octobre 2019

• #14

Oui mais j'ai planté la macro .... je pense avoir fait une connerie ... :

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(Titre - 1).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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2019

• #15

Re

Alors, pour te récompenser d'avoir mouillé le maillot et puisque mon verre est vide (et que j'ai plus de cahuètes)

VB:

Sub liminal()
Dim i&, Ligne&
For i = 1 To 10
If IsDate(Cells(i, 1)) Then
Ligne = Cells(i, 1).Row
Exit For
End If
Next i
msgbox "Nombre de ligne de titre: " & Ligne - 1, vbInformation, "Fini l'apéro"
End Sub

 

Vote positif 0 Vote négatif