Comment supprimer desoccurrences sur Excel 07

je suis en train de rechercher comment faire par macro, je te donne un retour dès que possible.

Alors voici la macro qui marche bien chez moi.

Elle crée une deuxième colonne qui va contenir les lignes de texte sans le numéro de fin entre parenthèses :

Sub NomDeLaMacro()
    
    ActiveSheet.Columns(1).Copy ActiveSheet.Columns(2)
    
    Dim c As Range, pos As Integer
    For Each c In ActiveSheet.Range("B:B")
        pos = InStrRev(c.Value, "(")
        If pos Then
            c.Value = Left(c.Value, pos - 1)
        End If
    Next
    
End Sub

Pour créer une macro, va dans menu outils -> macro -> nouvelle macro. Donne lui le nom que tu souhaites. Ensuite, appuies directement sur le bouton "stop" de la petite fenêtre qui s'affichera. Va dans le menu outils->macro->macros.... sélectionne ta macro et cliques sur "modifier".

Tu peux copier le texte ci-dessus (celui entre les lignes Sub NomDeLaMacro() et End Sub).

Ensuite, lorsque tu exécuteras la macro, tu devrais avoir la deuxième colonne apparaitre avec les bonnes valeurs.
Pense à faire une copie de sauvegarde avant, avec les macros on ne sait jamais ....

salut j'ai testé, et je ne sais pas s'il y a un truc que je n'ai pas compris, mais ça ne fonctionne pas.

Ah ?

Je viens de retester, pour moi c'est bon.
Tu as bien validé en matricielle et non par un simple enter ? Elle doit s'entourer de { }
eric

j'ai essayé de faire shift+controle+enter, mais ça n'a pas mis d'accolades, non.
en fait, cette formule il faut la mettre où exactement , ça a une importance ?
(je ne sais pas ce que c'est qu'une formule "matricielle")

Bonjour,

Telle qu'elle est écrite elle est prévue pour être en ligne 2
Il faut que la formule soit en édition pour valider, donc avec le curseur qui clignote dans la zone d'édition des formules.
eric

excellent, merci de l'info, ça marche pour moi maintenant.