J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le
dernier caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier
caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
http://www.avast.com
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Jacquouille
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp
Ici, il me donne le 46, mais
c.Value = c.Value & Chr(46)
ne donne rien. Le vide absolu
Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmskg$tv9$1@speranza.aioe.org...
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le
dernier
caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
isabelle
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
tu as le bon code,
Range("A1") = "aaa" & Chr(46)
fonctionne bien
mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp
Ici, il me donne le 46, mais
c.Value = c.Value & Chr(46)
ne donne rien. Le vide absolu
Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmskg$tv9$1@speranza.aioe.org...
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier
caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
http://www.avast.com
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Jacquouille
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmttf$1eb$
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
P'tain.
Voilà donc pourquoi.
En fait, j'imprime des n° de tombola de 1 à 2541.
Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699
....
Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci
Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmttf$1eb$1@speranza.aioe.org...
tu as le bon code,
Range("A1") = "aaa" & Chr(46)
fonctionne bien
mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de
décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp
Ici, il me donne le 46, mais
c.Value = c.Value & Chr(46)
ne donne rien. Le vide absolu
Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmskg$tv9$1@speranza.aioe.org...
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le
dernier
caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmttf$1eb$
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Jacquouille
le chr(183) est mieux ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "Jacquouille" a écrit dans le message de groupe de discussion : mfmu7u$270$
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmttf$1eb$
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
le chr(183) est mieux ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacquouille" a écrit dans le message de groupe de discussion :
mfmu7u$270$1@speranza.aioe.org...
P'tain.
Voilà donc pourquoi.
En fait, j'imprime des n° de tombola de 1 à 2541.
Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699
....
Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci
Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmttf$1eb$1@speranza.aioe.org...
tu as le bon code,
Range("A1") = "aaa" & Chr(46)
fonctionne bien
mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de
décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp
Ici, il me donne le 46, mais
c.Value = c.Value & Chr(46)
ne donne rien. Le vide absolu
Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmskg$tv9$1@speranza.aioe.org...
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le
dernier
caractère de droite d'une cel.
Et connaître le num de chr pour le point.
Il me dit 46, mais c'est pas ça.
SVP
Voici l'idée:
Sub souligner_les_num()
For Each c In Range("a1:G363")
'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle
Next
End Sub
En vous remerciant
Bonne fin de soirée et surtout, bonne fête des cloches.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
" Le vin est au repas ce que le parfum est à la femme." "Jacquouille" a écrit dans le message de groupe de discussion : mfmu7u$270$
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmttf$1eb$
tu as le bon code, Range("A1") = "aaa" & Chr(46) fonctionne bien mais si c.Value est un chiffre le point n’apparait pas si il n'y a pas de décimal
isabelle
Le 2015-04-03 16:33, Jacquouille a écrit :
Tant que tu es là, tu n'aurais pas le n° de chr du point, svp Ici, il me donne le 46, mais c.Value = c.Value & Chr(46) ne donne rien. Le vide absolu Merci pour le len(c)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmskg$tv9$
salut Jacques,
c.Value = Left(c, Len(c) - 1)
isabelle
Le 2015-04-03 16:01, Jacquouille a écrit :
Bonsoir
J'aimerais avoir la syntaxe en grand breton (pour vba) afin d'enlever le dernier caractère de droite d'une cel. Et connaître le num de chr pour le point. Il me dit 46, mais c'est pas ça. SVP
Voici l'idée:
Sub souligner_les_num() For Each c In Range("a1:G363") 'c.Value = c.Value & Chr(7)
c.Value = Left(c, (Chr(c).Count - 1))
' ..... ligne précédente qui bloque
'c.Font.Underline = xlUnderlineStyleSingle Next End Sub
En vous remerciant Bonne fin de soirée et surtout, bonne fête des cloches. Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
isabelle
mets le code 96 à la place (c'est l'accent grave `) isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
mets le code 96 à la place (c'est l'accent grave `)
isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain.
Voilà donc pourquoi.
En fait, j'imprime des n° de tombola de 1 à 2541.
Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 ....
Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
mets le code 96 à la place (c'est l'accent grave `) isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
Jacquouille
Pas beau. C'est trop grâve. -)) Pour le point, un format de cel perso n'irait pas J'essaierai demain. Bonne soirée et encore merci
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmum0$333$
mets le code 96 à la place (c'est l'accent grave `) isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Pas beau. C'est trop grâve. -))
Pour le point, un format de cel perso n'irait pas
J'essaierai demain.
Bonne soirée et encore merci
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfmum0$333$2@speranza.aioe.org...
mets le code 96 à la place (c'est l'accent grave `)
isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain.
Voilà donc pourquoi.
En fait, j'imprime des n° de tombola de 1 à 2541.
Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699
....
Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci
Jac
Jacquouille
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Pas beau. C'est trop grâve. -)) Pour le point, un format de cel perso n'irait pas J'essaierai demain. Bonne soirée et encore merci
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : mfmum0$333$
mets le code 96 à la place (c'est l'accent grave `) isabelle
Le 2015-04-03 16:46, Jacquouille a écrit :
P'tain. Voilà donc pourquoi. En fait, j'imprime des n° de tombola de 1 à 2541. Je voulais mettre un point afin de différencier les 6 du 9, le 669 du 699 .... Tant pis, je vais mettre le chr 173. Un peu gros, mais tant pis.
Bises et encore merci Jac
Jacquouille
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
isabelle
bonne idée le format de cel perso
Cells(1, 1).NumberFormat = "#,##0""."""
isabelle
Le 2015-04-03 17:19, Jacquouille a écrit :
Pas beau. C'est trop grâve. -)) Pour le point, un format de cel perso n'irait pas J'essaierai demain. Bonne soirée et encore merci
Jacquouille
bonne idée le format de cel perso
Cells(1, 1).NumberFormat = "#,##0""."""
isabelle
Le 2015-04-03 17:19, Jacquouille a écrit :
Pas beau. C'est trop grâve. -))
Pour le point, un format de cel perso n'irait pas
J'essaierai demain.
Bonne soirée et encore merci
