Excel 2007 - supprimer digit unique
Résolu/Fermé
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
22 juil. 2010 à 10:21
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 22 juil. 2010 à 10:57
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 22 juil. 2010 à 10:57
A voir également:
- Excel 2007 - supprimer digit unique
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Supprimer les doublons excel - Guide
1 réponse
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
22 juil. 2010 à 10:57
22 juil. 2010 à 10:57
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 ...
' 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 ...