J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour
les remplacer par un blanc ""
Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
remplacés aussi par un blanc
Set B = Selection.Find(0, LookIn:=xlValues)
If Not B Is Nothing Then
premier = B.Address
Do
B.Value = ""
Set B = Selection.FindNext(B)
On Error Resume Next
Loop While Not B Is Nothing And B.Address <> premier
End If
J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour les remplacer par un blanc "" Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont remplacés aussi par un blanc
Set B = Selection.Find(0, LookIn:=xlValues) If Not B Is Nothing Then premier = B.Address Do B.Value = "" Set B = Selection.FindNext(B) On Error Resume Next Loop While Not B Is Nothing And B.Address <> premier End If
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
Bonjour a tous
J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour
les remplacer par un blanc ""
Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
remplacés aussi par un blanc
Set B = Selection.Find(0, LookIn:=xlValues)
If Not B Is Nothing Then
premier = B.Address
Do
B.Value = ""
Set B = Selection.FindNext(B)
On Error Resume Next
Loop While Not B Is Nothing And B.Address <> premier
End If
J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour les remplacer par un blanc "" Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont remplacés aussi par un blanc
Set B = Selection.Find(0, LookIn:=xlValues) If Not B Is Nothing Then premier = B.Address Do B.Value = "" Set B = Selection.FindNext(B) On Error Resume Next Loop While Not B Is Nothing And B.Address <> premier End If
Si quelqu'un a une idée ce serai sympa
Merci -- IMER09
IMER09
Je te remerci stephane mais chez moi ca ne change rien
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
Je te remerci stephane mais chez moi ca ne change rien
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
> Bonjour a tous
>
> J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour
> les remplacer par un blanc ""
> Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
> remplacés aussi par un blanc
>
> Set B = Selection.Find(0, LookIn:=xlValues)
> If Not B Is Nothing Then
> premier = B.Address
> Do
> B.Value = ""
> Set B = Selection.FindNext(B)
> On Error Resume Next
> Loop While Not B Is Nothing And B.Address <> premier
> End If
>
> Si quelqu'un a une idée ce serai sympa
>
> Merci
> --
> IMER09
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
papou
Bonjour Modifie comme ceci : Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
Cordialement Pascal
"IMER09" a écrit dans le message de news:
Je te remerci stephane mais chez moi ca ne change rien
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
Bonjour
Modifie comme ceci :
Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
Cordialement
Pascal
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
999D0B8F-3FAA-4A6A-9EDC-8985BC98B7CD@microsoft.com...
Je te remerci stephane mais chez moi ca ne change rien
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
> Bonjour a tous
>
> J'ai ce bout de code qui a pour but de trouver les "0" dans une liste
> pour
> les remplacer par un blanc ""
> Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
> remplacés aussi par un blanc
>
> Set B = Selection.Find(0, LookIn:=xlValues)
> If Not B Is Nothing Then
> premier = B.Address
> Do
> B.Value = ""
> Set B = Selection.FindNext(B)
> On Error Resume Next
> Loop While Not B Is Nothing And B.Address <> premier
> End If
>
> Si quelqu'un a une idée ce serai sympa
>
> Merci
> --
> IMER09
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
stéphane
si j'ai bien compris tu veux que les cellules contenant uniquement la valeur 0 n'apparaissent pas ?
La méthode que je t'ai donnée fonctionne trés bien si tes 0 sont bien des chiffres et non des caractères.
Tu peux essayer de convertir tes données en chiffres : 1/ Sélectionner la colonne 2/ DONNEES => CONVERTIR => FORMAT des données STANDARD
Stéphane
"IMER09" a écrit dans le message de news:
Je te remerci stephane mais chez moi ca ne change rien
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
si j'ai bien compris tu veux que les cellules contenant uniquement la valeur
0 n'apparaissent pas ?
La méthode que je t'ai donnée fonctionne trés bien si tes 0 sont bien des
chiffres et non des caractères.
Tu peux essayer de convertir tes données en chiffres :
1/ Sélectionner la colonne
2/ DONNEES => CONVERTIR => FORMAT des données STANDARD
Stéphane
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
999D0B8F-3FAA-4A6A-9EDC-8985BC98B7CD@microsoft.com...
Je te remerci stephane mais chez moi ca ne change rien
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
> Bonjour a tous
>
> J'ai ce bout de code qui a pour but de trouver les "0" dans une liste
> pour
> les remplacer par un blanc ""
> Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
> remplacés aussi par un blanc
>
> Set B = Selection.Find(0, LookIn:=xlValues)
> If Not B Is Nothing Then
> premier = B.Address
> Do
> B.Value = ""
> Set B = Selection.FindNext(B)
> On Error Resume Next
> Loop While Not B Is Nothing And B.Address <> premier
> End If
>
> Si quelqu'un a une idée ce serai sympa
>
> Merci
> --
> IMER09
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
papou
N'importe quoi ! :-)) Modifie "Lokkat" par **Lookat** Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement Pascal
"papou" a écrit dans le message de news: %235$
Bonjour Modifie comme ceci : Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
Cordialement Pascal
"IMER09" a écrit dans le message de news:
Je te remerci stephane mais chez moi ca ne change rien
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
N'importe quoi !
:-))
Modifie "Lokkat" par **Lookat**
Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement
Pascal
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: %235$wqFJJJHA.2980@TK2MSFTNGP06.phx.gbl...
Bonjour
Modifie comme ceci :
Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
Cordialement
Pascal
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
999D0B8F-3FAA-4A6A-9EDC-8985BC98B7CD@microsoft.com...
Je te remerci stephane mais chez moi ca ne change rien
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
> Bonjour a tous
>
> J'ai ce bout de code qui a pour but de trouver les "0" dans une liste
> pour
> les remplacer par un blanc ""
> Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
> remplacés aussi par un blanc
>
> Set B = Selection.Find(0, LookIn:=xlValues)
> If Not B Is Nothing Then
> premier = B.Address
> Do
> B.Value = ""
> Set B = Selection.FindNext(B)
> On Error Resume Next
> Loop While Not B Is Nothing And B.Address <> premier
> End If
>
> Si quelqu'un a une idée ce serai sympa
>
> Merci
> --
> IMER09
> Bonjour a tous > > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste > pour > les remplacer par un blanc "" > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont > remplacés aussi par un blanc > > Set B = Selection.Find(0, LookIn:=xlValues) > If Not B Is Nothing Then > premier = B.Address > Do > B.Value = "" > Set B = Selection.FindNext(B) > On Error Resume Next > Loop While Not B Is Nothing And B.Address <> premier > End If > > Si quelqu'un a une idée ce serai sympa > > Merci > -- > IMER09
IMER09
Un grd grd merci papou c'est exactement ce que je voulais Stephane merci a toi mais je prefere modifier la partie du code de ma procedure car je veux des blancs à la place des 0 a chaque fois que je fais mon calcul via cette procedure -- IMER09
"papou" wrote:
N'importe quoi ! :-)) Modifie "Lokkat" par **Lookat** Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement Pascal
"papou" a écrit dans le message de news: %235$ > Bonjour > Modifie comme ceci : > Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole) > > Cordialement > Pascal > > "IMER09" a écrit dans le message de news: > >> Je te remerci stephane mais chez moi ca ne change rien >> >> -- >> IMER09 >> >> >> "stéphane" wrote: >> >>> Bonjour, >>> >>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro >>> >>> Stéphane >>> >>> >>> "IMER09" a écrit dans le message de news: >>> >>> > Bonjour a tous >>> > >>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste >>> > pour >>> > les remplacer par un blanc "" >>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont >>> > remplacés aussi par un blanc >>> > >>> > Set B = Selection.Find(0, LookIn:=xlValues) >>> > If Not B Is Nothing Then >>> > premier = B.Address >>> > Do >>> > B.Value = "" >>> > Set B = Selection.FindNext(B) >>> > On Error Resume Next >>> > Loop While Not B Is Nothing And B.Address <> premier >>> > End If >>> > >>> > Si quelqu'un a une idée ce serai sympa >>> > >>> > Merci >>> > -- >>> > IMER09 >>> >>> >>> > >
Un grd grd merci papou c'est exactement ce que je voulais
Stephane merci a toi mais je prefere modifier la partie du code de ma
procedure car je veux des blancs à la place des 0 a chaque fois que je fais
mon calcul via cette procedure
--
IMER09
"papou" wrote:
N'importe quoi !
:-))
Modifie "Lokkat" par **Lookat**
Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement
Pascal
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: %235$wqFJJJHA.2980@TK2MSFTNGP06.phx.gbl...
> Bonjour
> Modifie comme ceci :
> Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
>
> Cordialement
> Pascal
>
> "IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
> 999D0B8F-3FAA-4A6A-9EDC-8985BC98B7CD@microsoft.com...
>> Je te remerci stephane mais chez moi ca ne change rien
>>
>> --
>> IMER09
>>
>>
>> "stéphane" wrote:
>>
>>> Bonjour,
>>>
>>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro
>>>
>>> Stéphane
>>>
>>>
>>> "IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
>>> E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
>>> > Bonjour a tous
>>> >
>>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste
>>> > pour
>>> > les remplacer par un blanc ""
>>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont
>>> > remplacés aussi par un blanc
>>> >
>>> > Set B = Selection.Find(0, LookIn:=xlValues)
>>> > If Not B Is Nothing Then
>>> > premier = B.Address
>>> > Do
>>> > B.Value = ""
>>> > Set B = Selection.FindNext(B)
>>> > On Error Resume Next
>>> > Loop While Not B Is Nothing And B.Address <> premier
>>> > End If
>>> >
>>> > Si quelqu'un a une idée ce serai sympa
>>> >
>>> > Merci
>>> > --
>>> > IMER09
>>>
>>>
>>>
>
>
Un grd grd merci papou c'est exactement ce que je voulais Stephane merci a toi mais je prefere modifier la partie du code de ma procedure car je veux des blancs à la place des 0 a chaque fois que je fais mon calcul via cette procedure -- IMER09
"papou" wrote:
N'importe quoi ! :-)) Modifie "Lokkat" par **Lookat** Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement Pascal
"papou" a écrit dans le message de news: %235$ > Bonjour > Modifie comme ceci : > Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole) > > Cordialement > Pascal > > "IMER09" a écrit dans le message de news: > >> Je te remerci stephane mais chez moi ca ne change rien >> >> -- >> IMER09 >> >> >> "stéphane" wrote: >> >>> Bonjour, >>> >>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro >>> >>> Stéphane >>> >>> >>> "IMER09" a écrit dans le message de news: >>> >>> > Bonjour a tous >>> > >>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une liste >>> > pour >>> > les remplacer par un blanc "" >>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils sont >>> > remplacés aussi par un blanc >>> > >>> > Set B = Selection.Find(0, LookIn:=xlValues) >>> > If Not B Is Nothing Then >>> > premier = B.Address >>> > Do >>> > B.Value = "" >>> > Set B = Selection.FindNext(B) >>> > On Error Resume Next >>> > Loop While Not B Is Nothing And B.Address <> premier >>> > End If >>> > >>> > Si quelqu'un a une idée ce serai sympa >>> > >>> > Merci >>> > -- >>> > IMER09 >>> >>> >>> > >
papou
Content d'avoir pu t'aider.
Cordialement Pascal
"IMER09" a écrit dans le message de news:
Un grd grd merci papou c'est exactement ce que je voulais Stephane merci a toi mais je prefere modifier la partie du code de ma procedure car je veux des blancs à la place des 0 a chaque fois que je fais mon calcul via cette procedure -- IMER09
"papou" wrote:
N'importe quoi ! :-)) Modifie "Lokkat" par **Lookat** Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement Pascal
"papou" a écrit dans le message de news: %235$ > Bonjour > Modifie comme ceci : > Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole) > > Cordialement > Pascal > > "IMER09" a écrit dans le message de > news: > >> Je te remerci stephane mais chez moi ca ne change rien >> >> -- >> IMER09 >> >> >> "stéphane" wrote: >> >>> Bonjour, >>> >>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro >>> >>> Stéphane >>> >>> >>> "IMER09" a écrit dans le message de >>> news: >>> >>> > Bonjour a tous >>> > >>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une >>> > liste >>> > pour >>> > les remplacer par un blanc "" >>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils >>> > sont >>> > remplacés aussi par un blanc >>> > >>> > Set B = Selection.Find(0, LookIn:=xlValues) >>> > If Not B Is Nothing Then >>> > premier = B.Address >>> > Do >>> > B.Value = "" >>> > Set B = Selection.FindNext(B) >>> > On Error Resume Next >>> > Loop While Not B Is Nothing And B.Address <> premier >>> > End If >>> > >>> > Si quelqu'un a une idée ce serai sympa >>> > >>> > Merci >>> > -- >>> > IMER09 >>> >>> >>> > >
Content d'avoir pu t'aider.
Cordialement
Pascal
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
70F7A0E8-99B7-4800-BBE7-896F94AA278D@microsoft.com...
Un grd grd merci papou c'est exactement ce que je voulais
Stephane merci a toi mais je prefere modifier la partie du code de ma
procedure car je veux des blancs à la place des 0 a chaque fois que je
fais
mon calcul via cette procedure
--
IMER09
"papou" wrote:
N'importe quoi !
:-))
Modifie "Lokkat" par **Lookat**
Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement
Pascal
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le
message
de news: %235$wqFJJJHA.2980@TK2MSFTNGP06.phx.gbl...
> Bonjour
> Modifie comme ceci :
> Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole)
>
> Cordialement
> Pascal
>
> "IMER09" <toto@discussions.microso.com> a écrit dans le message de
> news:
> 999D0B8F-3FAA-4A6A-9EDC-8985BC98B7CD@microsoft.com...
>> Je te remerci stephane mais chez moi ca ne change rien
>>
>> --
>> IMER09
>>
>>
>> "stéphane" wrote:
>>
>>> Bonjour,
>>>
>>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro
>>>
>>> Stéphane
>>>
>>>
>>> "IMER09" <toto@discussions.microso.com> a écrit dans le message de
>>> news:
>>> E50FB48A-BAB0-45AF-BC27-C3E942F164FA@microsoft.com...
>>> > Bonjour a tous
>>> >
>>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une
>>> > liste
>>> > pour
>>> > les remplacer par un blanc ""
>>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils
>>> > sont
>>> > remplacés aussi par un blanc
>>> >
>>> > Set B = Selection.Find(0, LookIn:=xlValues)
>>> > If Not B Is Nothing Then
>>> > premier = B.Address
>>> > Do
>>> > B.Value = ""
>>> > Set B = Selection.FindNext(B)
>>> > On Error Resume Next
>>> > Loop While Not B Is Nothing And B.Address <> premier
>>> > End If
>>> >
>>> > Si quelqu'un a une idée ce serai sympa
>>> >
>>> > Merci
>>> > --
>>> > IMER09
>>>
>>>
>>>
>
>
Un grd grd merci papou c'est exactement ce que je voulais Stephane merci a toi mais je prefere modifier la partie du code de ma procedure car je veux des blancs à la place des 0 a chaque fois que je fais mon calcul via cette procedure -- IMER09
"papou" wrote:
N'importe quoi ! :-)) Modifie "Lokkat" par **Lookat** Set B = Selection.Find(0, LookIn:=xlValues, Lookat:=xlwhole)
Cordialement Pascal
"papou" a écrit dans le message de news: %235$ > Bonjour > Modifie comme ceci : > Set B = Selection.Find(0, LookIn:=xlValues, Lokkat:=xlwhole) > > Cordialement > Pascal > > "IMER09" a écrit dans le message de > news: > >> Je te remerci stephane mais chez moi ca ne change rien >> >> -- >> IMER09 >> >> >> "stéphane" wrote: >> >>> Bonjour, >>> >>> OUTILS => OPTIONS => ONGLET AFFICHAGE , décocher Valeurs Zéro >>> >>> Stéphane >>> >>> >>> "IMER09" a écrit dans le message de >>> news: >>> >>> > Bonjour a tous >>> > >>> > J'ai ce bout de code qui a pour but de trouver les "0" dans une >>> > liste >>> > pour >>> > les remplacer par un blanc "" >>> > Mon probleme est que si j'ai 10 ou 100 ou 0,1 dans ma liste ils >>> > sont >>> > remplacés aussi par un blanc >>> > >>> > Set B = Selection.Find(0, LookIn:=xlValues) >>> > If Not B Is Nothing Then >>> > premier = B.Address >>> > Do >>> > B.Value = "" >>> > Set B = Selection.FindNext(B) >>> > On Error Resume Next >>> > Loop While Not B Is Nothing And B.Address <> premier >>> > End If >>> > >>> > Si quelqu'un a une idée ce serai sympa >>> > >>> > Merci >>> > -- >>> > IMER09 >>> >>> >>> > >
