XL 2016 macro pour convertir et remplacer

[cmdavid]

Bonjour à tous,

Je cherche des macros pour

J’ai un fichier avec plusieurs onglets :

• CSV : convertir la colonne A en plusieurs colonnes dans l’onglet BASE
• CONVFORM : convertir les colonnes contenant des liens en texte dans l’onglet CONVTEXT
• CONVTEXT : remplacer dans tous les textes Ă© par é, etc.

Voir fichier joint.

Merci pour votre aide

 

[Bernard_XLD]

Bonjour Christophe, le forum

voila ton fichier.

Bonne journée

 

[cmdavid]

Bonjour Yeahou,
Merci pour ton travail. la Macro pour remplacer ne fonctionne pas.

 

[Bernard_XLD]

Bonjour

Elle fonctionne parfaitement et remplace tous les textes du classeur comme tu l'as demandé
Tu as quelle version d'Excel ?

Cordialement

Private Sub CommandButton1_Click()
Dim Tableau_en_Cours, Feuille_en_Cours As Worksheet, Compteur%
On Error Resume Next
Tableau_en_Cours = Range("K5:L" & Range("K65536").End(xlUp).Row)
For Each Feuille_en_Cours In ThisWorkbook.Worksheets
    For Compteur = LBound(Tableau_en_Cours, 1) To UBound(Tableau_en_Cours, 1)
        If Feuille_en_Cours.Name = ActiveSheet.Name Then
            Feuille_en_Cours.Columns("A:I").Replace What:=Tableau_en_Cours(Compteur, 1), Replacement:=Tableau_en_Cours(Compteur, 2), LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Else
            Feuille_en_Cours.Cells.Replace What:=Tableau_en_Cours(Compteur, 1), Replacement:=Tableau_en_Cours(Compteur, 2), LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        End If
    Next Compteur
Next Feuille_en_Cours
End Sub

 

[fanch55]

Bonjour,
Il me semble que FormulaVersion:=xlReplaceFormula2 ne fonctionne que pour les version d'excel à partir de 2019 .
Mettre l'argument en commentaire devrait résoudre votre problème .

 

[cmdavid]

OFFICE 2016

 

[Bernard_XLD]

salut fanch55, le forum

bien vu, fanch55, je l'enlève, cela devrait fonctionner sur les versions antérieures.

Cordialement, @+

 

[cmdavid]

Ton fichier fonctionne, sauf que si je rajoute 6000 lignes dans l'onglet CSV, toutes les macros fonctionnent sauf la macro remplace.

 

[cmdavid]

Bonjour Yeahou,
je suis désolé, maintenant ça fonctionne, j'avais mal écrit les signe en K5 et donc ta macro ne pouvait pas les reconnaitre.
Un grand merci pour votre aide.
Cordialement,

 

[Bernard_XLD]

un merci fait toujours plaisir, c'est souvent la seule récompense des bénévoles !
bonne soirée

 

[cmdavid]

Bonne soirée a vous aussi et si vous êtes amateur de rugby, vive la France pour ce soir!

 

[Bernard_XLD]

YES !!!!
quatre essais, vingt et un points d'écart et on gagne le tournoi ! ça va être chaud !
ALLEZ LA FRANCE !