Ola ! Les mordus de l'info,
Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex:
01-1;01-2;01-3;etc.). Sachant que cette série de nombres se trouve dans une
colonne et que c'est seulement le caractère Zéro (0) qui se trouve au début
du nombre que je voudrait masquer (c-a-d ne pas l'afficher).
Merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joel
Bonjour,
J'ai fait un petit effort ;-)
Sub SupprimerZero() Dim PlageATester As Range Set PlageATester = Range("A1:A3") 'préciser la plage à tester Dim oCell As Range For Each oCell In PlageATester If oCell.Value <> "" Then Do Until Left(oCell.Value, 1) <> "0" oCell.Value = Right(oCell.Value, Len(oCell.Value) - 1) Loop End If Next End Sub
Bon courage... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "CockTL" a écrit dans le message de news:%
Ola ! Les mordus de l'info, Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex: 01-1;01-2;01-3;etc.). Sachant que cette série de nombres se trouve dans une
colonne et que c'est seulement le caractère Zéro (0) qui se trouve au début
du nombre que je voudrait masquer (c-a-d ne pas l'afficher). Merci de votre aide.
Bonjour,
J'ai fait un petit effort ;-)
Sub SupprimerZero()
Dim PlageATester As Range
Set PlageATester = Range("A1:A3") 'préciser la plage à tester
Dim oCell As Range
For Each oCell In PlageATester
If oCell.Value <> "" Then
Do Until Left(oCell.Value, 1) <> "0"
oCell.Value = Right(oCell.Value, Len(oCell.Value) - 1)
Loop
End If
Next
End Sub
Bon courage...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"CockTL" <cocktl@oreka.com> a écrit dans le message de
news:%23W0pR7IoEHA.3556@TK2MSFTNGP10.phx.gbl...
Ola ! Les mordus de l'info,
Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex:
01-1;01-2;01-3;etc.). Sachant que cette série de nombres se trouve dans
une
colonne et que c'est seulement le caractère Zéro (0) qui se trouve au
début
du nombre que je voudrait masquer (c-a-d ne pas l'afficher).
Merci de votre aide.
Sub SupprimerZero() Dim PlageATester As Range Set PlageATester = Range("A1:A3") 'préciser la plage à tester Dim oCell As Range For Each oCell In PlageATester If oCell.Value <> "" Then Do Until Left(oCell.Value, 1) <> "0" oCell.Value = Right(oCell.Value, Len(oCell.Value) - 1) Loop End If Next End Sub
Bon courage... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "CockTL" a écrit dans le message de news:%
Ola ! Les mordus de l'info, Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex: 01-1;01-2;01-3;etc.). Sachant que cette série de nombres se trouve dans une
colonne et que c'est seulement le caractère Zéro (0) qui se trouve au début
du nombre que je voudrait masquer (c-a-d ne pas l'afficher). Merci de votre aide.
AV
Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex: 01-1;01-2;01-3;etc.).
S'il s'agit bien de format et non de suppression, à mon avis impossible !
A la rigueur : une proc évènementielle qui mettrait la couleur de police du 1° caractère de la couleur du fond... Le jeu en vaut-il la chandelle ? Si oui, relance ...
AV
Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex:
01-1;01-2;01-3;etc.).
S'il s'agit bien de format et non de suppression, à mon avis impossible !
A la rigueur : une proc évènementielle qui mettrait la couleur de police du 1°
caractère de la couleur du fond...
Le jeu en vaut-il la chandelle ?
Si oui, relance ...
Mon pb : Comment masquer le zéro (0) dans une série de chiffres (ex: 01-1;01-2;01-3;etc.).
S'il s'agit bien de format et non de suppression, à mon avis impossible !
A la rigueur : une proc évènementielle qui mettrait la couleur de police du 1° caractère de la couleur du fond... Le jeu en vaut-il la chandelle ? Si oui, relance ...
