nb de car

Le
Jacquouille
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 4
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26347514
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

Jacquouille
Le #26347513
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
Le #26347517
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
Le #26347519
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 #26347522
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
isabelle
Le #26347518
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
Le #26347521
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
Le #26347534
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
isabelle
Le #26347535
ou comme ça pour un format sans l'espace de millier

Cells(1, 1).NumberFormat = "###0""."""

isabelle

Le 2015-04-03 22:04, isabelle a écrit :
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
Jacquouille
Le #26347579
Aaaaah que je suis bon. -))
Merci, Divine Isa Belle.
Que les cloches t'apportent une tonne de petits œufs au chocolat.

Jacques.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mfngre$68v$

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




---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Publicité
Poster une réponse
Anonyme