XL 2016 macro pour convertir et remplacer

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 26 Mars 2021

• #2

Bonjour Christophe, le forum

voila ton fichier.

Bonne journée

 

Pièces jointes

• CONVERTISSER TEST-1.xlsm

  206.5 KB · Affichages: 12

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 26 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 26 Mars 2021

• #4

Bonjour

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

Cordialement

VB:

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

 

Dernière édition: 26 Mars 2021

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 26 Mars 2021

• #5

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 .

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 26 Mars 2021

• #6

OFFICE 2016

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 26 Mars 2021

• #7

salut fanch55, le forum

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

Cordialement, @+

 

Pièces jointes

• CONVERTISSER TEST-1 - Copie.xlsm

  205.3 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

C

cmdavid

XLDnaute Occasionnel

• 26 Mars 2021

• #8

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

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 26 Mars 2021

• #9

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,

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 26 Mars 2021

• #10

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

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 26 Mars 2021

• #11

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 26 Mars 2021

• #12

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

 

Dernière édition: 26 Mars 2021

Vote positif 0 Vote négatif