Recheche multicritères& remplacer sous Excel

rhlalo -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Quelqu'un pourrait-il m'aider à faire une recherche avec des critères sur excel?
J'ai des données contenant des chiffres et des lettres dans chaque cellule. Je voudrai enlever tous les lettres mais être capable de les repérer quand même.

Je voudrai par exemple que tous les cellules contenant C200T devient 200 avec un format pour le différencier (ex: police bleu )
et ainsi de suite, toutes les cellules A304G deviennent 304 avec format...

Je suis sûre que cela peut se faire de façon systématique mais avec la fonction simplifiée rechercher remplacer, c'est impossible. à moins de le faire un par un... mais trop long.

Merci d'avance pour votre aide

rhlalo
Configuration: Windows XP
Firefox 2.0.0.11

3 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Cette macro te permet de le faire sur toute ta feuille 
    Sub supr_lettres()  ' supprime les lettres et colore en bleu
Dim cel As Range, c As Integer
For Each cel In ActiveSheet.UsedRange.Cells
    For c = Len(cel.Value) To 1 Step -1
        Select Case Asc(Mid(cel.Value, c, 1))
            Case 65 To 90, 97 To 122
                cel.Value = Replace(cel.Value, Mid(cel.Value, c, 1), "")
                cel.Font.ColorIndex = 41
        End Select
    Next c
Next cel
End Sub

    Si tu ne veux le faire que sur une plage tu remplaces "ActiveSheet.UsedRange.Cells" par "Selection" et tu sélectionnes ta plage avant de lancer la macro.
    0
  2. rhlalo Messages postés 4 Statut Membre
     
    bonjour gbinforme,

    Merci pour ta réponse. Le problème c'est que je suis super méga nulle en macro. du coup ta réponse est complètement du chinois pour moi.

    Y aurait-il quand même un moyen que tu me guides sur le lancement de ce macro?
    Si possible? ça me rendrait un grand service.
    S'il te plaît...

    Merci d'avance

    rhlalo
    0
  3. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Je comprend qu'il n'est pas facile de se lancer car c'est arrivé à tout le monde. Cependant, c'est difficile de faire ce que tu veux sans macro car une fonction ne peut aller modifier d'autre cellules.

    Tu as un mode d'emploi pour pouvoir copier la macro tel que sur une feuille ou dans un module.

    Ensuite avec alt + F8 tu as la liste des macros, tu sélectionnnes et tu fait "exécuter".

    Si ce n'est pas assez clair, dis nous ce qui te bloque mais tu auras seulement ma réponse lundi car j'ai un week-end sans internet.
    0