Macro pour automatiser le nettoyage d'un fichier

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 :Pièce jointe 507178


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 ? :

Pièce jointe 507182


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

Citation:

---

Envoyé par kevint13

- Vérifier que chaque cellule de la colonne

---

Boucle For To sur l'ensemble des lignes de la liste.
https://docs.microsoft.com/fr-fr/off...next-statement

Citation:

---

ne contient pas de texte.

---

Branchement If vérifiant que le contenu n'est pas numérique à l'aide d'une fonction IsNumeric.
https://docs.microsoft.com/fr-fr/off...else-statement
https://docs.microsoft.com/fr-fr/off...meric-function

Citation:

---

S'il y a du texte (peu importe le texte) remplacer la valeur par la moyenne de la colonne en question.

---

Avant la boucle, commence par calculer la moyenne de la colonne en utilisant une fonction Average avec WorksheetFunction et met le résultat dans une variable de type Double.
https://docs.microsoft.com/fr-fr/off...ksheetfunction
Ensuite, il te suffira d'assigner cette valeur à la cellule avec la propriété Value.

Citation:

---

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.

---

Mets tout ce qui précède dans une autre boucle For To qui scrute l'ensemble de tes colonnes.

Citation:

---

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.

---

Commence la boucle For To "colonnes" à la valeur 2.

Citation:

---

2) Il m'arrive d'avoir plusieurs niveaux (ligne) de titre, il faudrait peut-être pouvoir indiquer à la macro à quel N° de ligne commencer ? :

---

Commence la boucle For To "ligne" à ta première ligne de données.

Merci beaucoup Menhir pour ces informations,
N'étant pas très familier avec le VBA, as tu un exemple de code en VBA ?

Citation:

---

Envoyé par kevint13

N'étant pas très familier avec le VBA, as tu un exemple de code en VBA ?

---

D'expérience, quant on voit ce type de formulation sur le forum sans que le demandeur ait fait le moindre essai par lui-même, c'est qu'il ne va pas se contenter d'un "exemple" (des exemple, il y en a déjà dans les liens fournis) mais qu'il s'attend à ce qu'on lui livre un code complet, testé, débugué.

Comme le but de ce forum n'est pas de fournir une main d'oeuvre gratuite mais d'aider à progresser en développement, je vais attendre que tu présentes ce que tu as commencé à réaliser pour t'indiquer les éventuelles erreurs que tu aurais pu faire.

Si tu ne connais rien au VBA, je te conseille cette lecture : http://bidou.developpez.com/article/VBA/

Ne connaissant rien au VBA je demande l'aide de ceux qui savent ce qui me semble approprié sur ce type de forum.
je ne connais ni les principes de bases ni les structures en VBA j'ai juste un problème à résoudre et je recherche quelqu'un qui peut m'aider avec une idée de code que je pourrais tester, adapter et débuger.
Je ne cherche pas un code parfait mais une piste à explorer,
merci pour ton aide

Citation:

---

Envoyé par kevint13

Ne connaissant rien au VBA […]
je ne connais ni les principes de bases ni les structures en VBA.

---

Citation:

---

je recherche quelqu'un qui peut m'aider avec une idée de code que je pourrais tester, adapter et débuger.
Je ne cherche pas un code parfait mais une piste à explorer,

---

Bonjour,
Ton discours semble légèrement contradictoire. Menhir t'as très justement orienté vers ce que tu appelles des "pistes à explorer" à travers des liens. Si tu ne prends pas la peine de créer un semblant de code (même défectueux) basé sur ces documentations, il y a fort à parier que tu ne prendras pas la peine de l'adapter à ton problème par toi-même, d'autant plus que tu avoues n'avoir que peu de compétence.

Citation:

---

Envoyé par kevint13

Ne connaissant rien au VBA je demande l'aide de ceux qui savent ce qui me semble approprié sur ce type de forum.

---

Comme je le disais, ce forum a le but pédagogique d'aider ceux qui souhaitent apprendre à développer.
Il n'a pas pour but de faire le travail à la place de ceux qui n'en ont pas la compétence ni de se substituer aux développeurs professionnel.

Lorsque je n'ai pas la compétence pour faire ce que je souhaite, soit je cherche des informations pour le faire par moi-même (de telles informations t'ont déjà été données), soit je rémunère quelqu'un pour le faire à ma place.

Citation:

---

Je pourrais tester, adapter et débuger.

---

Si tu ne connais rien au VBA, comment comptes-tu débuguer un code ?

Pour information, voici la réponse :

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