Recheche multicritères& remplacer sous Excel

Fermé
rhlalo - 27 août 2009 à 17:35
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 28 août 2009 à 21:17
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
A voir également:

3 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
27 août 2009 à 22:41
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
rhlalo Messages postés 4 Date d'inscription vendredi 28 août 2009 Statut Membre Dernière intervention 27 septembre 2010
28 août 2009 à 17:24
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
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
28 août 2009 à 21:17
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