Excel 2007 - supprimer digit unique

Résolu/Fermé
Signaler
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Bonjour,

J'aimerais faire une macro qui analyse les cellules de F5 à BG990 et qui si une cellule contient une valeur sur un seul digit (1, 2, 3, 4, 5, 6, A, B, C, D, E ou F) la cellule doit être vidée.

Il me faut ensuite effectuer les remplacement suivants :
si une cellule de la plage indiquée contient :
P1 --> remplacer par 1
P2 --> remplacer par 2
P3 --> remplacer par 3
P4 --> remplacer par 4
P5 --> remplacer par 5
P6 --> remplacer par 6
PA --> remplacer par A
PB --> remplacer par B
PC --> remplacer par C
PD --> remplacer par D
PE --> remplacer par E
PF --> remplacer par F
Je pense que pour cette partie je dois pouvoir faire une macro basée sur le CTRL+F "remplacer"

Donc si vous pouviez m'aiguiller sur la facon de trouver les digit unique dans les cellules afin de faire le nettoyage avant d'effectuer les remplacement, cela m'aiderait beaucoup ! :)

Merci d'avance

1 réponse

Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
Ok j'ai trouvé la solution, la voici :

' Selection de la plage à scruter
Range("F5:BZ1000").Select
' Recherche et elimination des cellules contenant uniquement le digit "1"
Selection.Replace What:="1", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Recherche et elimination des cellules contenant uniquement le digit "2"
Selection.Replace What:="2", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Recherche et remplacement de la valeur "P1" par la valeur "1"
Selection.Replace What:="P1", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Recherche et remplacement de la valeur "P2" par la valeur "2"
Selection.Replace What:="P2", Replacement:="2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Etc ...