supprimer les 0 sauf dans les cellules contenant des dates

Le
magic-dd
bonsoir

comment dans une plage de cellule on peut supprimer les zeros 0
uniquement dans les cellules égales à 0 et bien sur laisser les zeros
contenus dans les dates (ex 01/10/1980)

j'ai écris ca mais ca me remplace tout

Sub supzero()

Range("A:G").Select

Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True,
SearchFormat:=False, _
ReplaceFormat:=True

Range("A1").Select
End Sub


merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20369701
bonjour magic,

remplace
LookAt:=xlPart
par
LookAt:=xlWhole

isabelle

magic-dd a écrit :
bonsoir

comment dans une plage de cellule on peut supprimer les zeros 0
uniquement dans les cellules égales à 0 et bien sur laisser les zeros
contenus dans les dates (ex 01/10/1980)

j'ai écris ca mais ca me remplace tout

Sub supzero()

Range("A:G").Select

Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True,
SearchFormat:úlse, _
ReplaceFormat:=True

Range("A1").Select
End Sub


merci



magic-dd
Le #20369691
super isabelle, merci

ca marche comme je veux
que veux dire le xlWhole ?


On 17 oct, 21:16, isabelle wrote:
bonjour magic,

remplace
LookAt:=xlPart
par
LookAt:=xlWhole

isabelle

magic-dd a crit :

> bonsoir

> comment dans une plage de cellule on peut supprimer les zeros 0
> uniquement dans les cellules gales 0 et bien sur laisser les zeros
> contenus dans les dates (ex 01/10/1980)

> j'ai cris ca mais ca me remplace tout

> Sub supzero()

>     Range("A:G").Select

>     Selection.Replace What:="0", Replacement:="", LookAt:=xlP art, _
>                       SearchOrder:=xlByRows, Ma tchCase:=True,
> SearchFormat:úlse, _
>                       ReplaceFormat:=True

>       Range("A1").Select
> End Sub

> merci


isabelle
Le #20373041
bonjour magic,

Whole = Toute (la totalité de la cellule contient l'élément rechercher)
Part = Partie (une partie de la cellule contient l'élément rechercher)

isabelle

magic-dd a écrit :
super isabelle, merci

ca marche comme je veux
que veux dire le xlWhole ?


On 17 oct, 21:16, isabelle wrote:

bonjour magic,

remplace
LookAt:=xlPart
par
LookAt:=xlWhole

isabelle

magic-dd a crit :


bonsoir

comment dans une plage de cellule on peut supprimer les zeros 0
uniquement dans les cellules gales 0 et bien sur laisser les zeros
contenus dans les dates (ex 01/10/1980)

j'ai cris ca mais ca me remplace tout

Sub supzero()

Range("A:G").Select

Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True,
SearchFormat:úlse, _
ReplaceFormat:=True

Range("A1").Select
End Sub

merci









magic-dd
Le #20375431
merci pour ce complement d'info

bonne soirée

On 18 oct, 13:55, isabelle wrote:
bonjour magic,

Whole = Toute   (la totalité de la cellule contient l'élément r echercher)
Part = Partie   (une partie de la cellule contient l'élément rech ercher)

isabelle

magic-dd a écrit :

> super isabelle, merci

> ca marche comme je veux
> que veux dire le xlWhole ?

> On 17 oct, 21:16, isabelle wrote:

>> bonjour magic,

>> remplace
>> LookAt:=xlPart
>> par
>> LookAt:=xlWhole

>> isabelle

>> magic-dd a crit :

>>> bonsoir

>>> comment dans une plage de cellule on peut supprimer les zeros 0
>>> uniquement dans les cellules gales 0 et bien sur laisser les zeros
>>> contenus dans les dates (ex 01/10/1980)

>>> j'ai cris ca mais ca me remplace tout

>>> Sub supzero()

>>>     Range("A:G").Select

>>>     Selection.Replace What:="0", Replacement:="", LookAt:=x lPart, _
>>>                       SearchOrder:=xlByRows, MatchCase:=True,
>>> SearchFormat:úlse, _
>>>                       ReplaceFormat:=True

>>>       Range("A1").Select
>>> End Sub

>>> merci


Publicité
Poster une réponse
Anonyme