Sujet Précédent Sujet Suivant

Recheche multicritères& remplacer sous Excel

rhlalo -  
gbinforme Messages postés 15481 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
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
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
Réponse 2 / 3
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
Réponse 3 / 3
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
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