Automatiser des actions (formules) en VBA

Bonjour

Tous les mois je dois faire les mêmes action sur des fichiers donc le contenu à toujours la même structure

La formule que j'utilise est la suivante:

=SUBSTITUE(G1;CAR(10);" ")

L'action que je dois faire tous les mois est:

1- J'ajoute une colonne à Droite de ma colonne F
2- je colle ma formule en G1
3- je l'étire jusque en bas de ma colonne G afin de faire le traitement sur toutes mes lignes (nombre de ligne variable en fonction des mois)

Voila je voudrais faire une macro, qui serait accessible à tous mes classeur Excel si possible, et qui me donnerait le résultat final sans ajout de colonne par contre ( ce qui me permettre de pas à avoir à supprimer la colonne F qui au final ne sert plus a rien), et ça juste en cliquant sur ma macro

en gros je veux appliquer ma formule directement dans la colonne F et cela sur toutes les lignes.

Est ce possible?

J'ai deja tenté de faire un enregistrement automatique de ma formule. Le résultat:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub suppretourligne() ' ' suppretourligne Macro '   ' Range("G1").Select ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],CHAR(10),"" "")" Range("G2").Select End Sub

---

Par contre sa me fait que pour la ligne deux. Comment faire pour l'appliquer à toutes les lignes dans mon tableau?

Quelqu'un peut m'aider svp?

Je joint un fichier contenant une partie de mon tableau. En ligne 7 de la colonne F j'ai un retour à la ligne. donc apres le traitement je voudrais un tableau identique mais avec la suppression du retour à la lignePièce jointe 197063

Elwy

Et la fonction d'Excel Rechercher / Remplacer ?‼

:fleche: ActiveSheet.UsedRange.Columns(6).Replace vbLf, " ", xlPart …

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Je suis dsl mais je ne comprend pas trop ta ligne de code.

J'ai essayé avec cette approche, mais j'ai un message d'erreur certainement tout simple à corriger pour un habitué:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit       Sub suppretourligne()   Dim NbLignes As Integer Dim Compteur As Integer Dim MyRange As Range   Compteur = 1 NbLignes = ActiveSheet.UsedRange.Rows.Count     Do While Compteur <= NbLignes   MyRange = Range("F" & Compteur).Select MyRange = Replace(MyRange, CHAR(10), " ") Compteur = Compteur + 1   Loop     End Sub

---

Erreur: Erreur de compilation Sub ou fonction non définie

C'est bon ça marche. Merci pour l'idée de Replace

Voila mon code qui marche:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit       Sub SuppRetourLigne()   Dim NbLignes As Integer Dim Compteur As Integer   Compteur = 1 NbLignes = ActiveSheet.UsedRange.Rows.Count     Do While Compteur <= NbLignes   Range("F" & Compteur).Select ActiveCell = Replace(ActiveCell, Chr(10), " ") Compteur = Compteur + 1   Loop     End Sub

---

Mais pourquoi donc boucler via cette usine à gaz ?‼‼ :weird:

Ma ligne de code - en brûlant deux neurones pour la comprendre ‼ - traite l'intégralité de la colonne ! :ptdr:
Ne pas confondre ma méthode Range.Replace avec ta fonction texte Replace …

Alors je suis du genre à pas attendre qu'on me donne à chaque question posée, la solution toute faite ^^, j'aime bien comprendre ce que je fais histoire de pouvoir réutiliser si besoin. J'ai donc pris l'habitude de pas attendre les solutions du genre du copie colle et puis c'est tout ^^

de plus étant très novice en VBA, je ne suis pas arrivée a comprendre tous dans ta ligne de code, dsl mais mes neurone ce font rare :oops:

donc ma petite usine à gaz (comme tu la nomes) m'a permis d'obtenir le résultat souhaité.

Mais, car il y a toujours un Mais, il est vrai qu'en faisant un copier collé (chose que je ne fais jamais) de ta ligne de code sa marche aussi très très bien :D.

en tous merci à toi pour ton aide sur ce coup là

Elwy