formule pour "corriger les erreurs"

[wajih_Excel]

Salut Forum

J'ai une base de donnée que je dois corriger les fautes de frappe

j'ai pu détecter tout les fautes "10 fautes"

maintenant je dois corriger ma base (9000 lignes 🙁) pour cela je dois remplacer tous mes erreurs par les textes corrigés

J'ai besoin d'une formule qui me détecte les erreurs et faire les corrections

En PJ un exemple

Merci d'avance

 

[Robert]

Re : formule pour "corriger les erreurs"

Bonjour Wajih, bonjour le forum,

Pourquoi pas un tout simple Édition/remplacer...

 

[wajih_Excel]

Re : formule pour "corriger les erreurs"

oui mais et je dois faire ça plusieurs fois

je veux une formule si il détecte la faute il le corrige si non il ne fait rien 😕

 

[Robert]

Re : formule pour "corriger les erreurs"

Bonjour Wajih, bonjour le forum,

Alors essaie avec la macro à adapter ci dessous. J'ai considéré que le tableau contenant les erreurs était dans un onglet nommé Feuil1 alors que la base elle, se trouvait dans un autre onglet nommé Base (dans la macro). À toi d'adapter...

[COLOR=black]Sub Macro1()[/COLOR]
Dim cel As Range 'déclare la variable cel (CELlule)
With Sheets(Feuil1) 'prend en compte l'onglet "Feuil1"
    'boucle sur toutes les cellule éditées de la colonne A
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        'remplace la valeur de la cellule en A par la valeur de la cellule en B
        Sheets("Base").Cells.Replace What:=cel.Value, Replacement:=cel.Offset(0, 1).Value, LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
            ReplaceFormat:=False
    Next cel 'prochaine cellule de la boucle
End Sub

 

[wajih_Excel]

Re : formule pour "corriger les erreurs"

merci Robert

Y'as pas une autre méthode sans passer par Excel VBA ?