Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel nb de car

nb de car

36 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3 4
Avatar
Patrick
Bonjour Jacques et le forum,

si tu veux avoir la liste des caractères:

tu mets 33 dans la cellule A1 et en B1 tu mets Êr(A1)
et tu tires le tout vers le bas et tu auras tous les caractères :)
Si tu changes la police de la colonne B, tu auras d'autres résultats
(windings par exemple)

Patrick


"Jacquouille" a écrit dans le message de news:
mfo8t6$hmd$
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






---
L'absence de virus dans ce courrier electronique a ete verifiee par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Albert
Bonjour
Très bonne idée
merci
Albert

"Patrick" a écrit dans le message de
news:mfp1sc$dja$
Bonjour Jacques et le forum,

si tu veux avoir la liste des caractères:

tu mets 33 dans la cellule A1 et en B1 tu mets Êr(A1)
et tu tires le tout vers le bas et tu auras tous les caractères :)
Si tu changes la police de la colonne B, tu auras d'autres résultats
(windings par exemple)

Patrick

Avatar
Jacquouille
..... merci de refaire surface.
C'est grâce à ce truc que j'avais la liste et que j'ai trouvé le n°46.
Par contre, l'astuce pour la non apparition du point après un nombre, et
ben, je ne la connaissais pas.
On a réparé ce truc avec un format de cel.
Dès que j'ai 5 min, je publie la truc ici pour faire des n° de tombola.
Bonne soirée
Attention au foie demain matin.
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Patrick" a écrit dans le message de groupe de discussion :
mfp1sc$dja$

Bonjour Jacques et le forum,

si tu veux avoir la liste des caractères:

tu mets 33 dans la cellule A1 et en B1 tu mets Êr(A1)
et tu tires le tout vers le bas et tu auras tous les caractères :)
Si tu changes la police de la colonne B, tu auras d'autres résultats
(windings par exemple)

Patrick


"Jacquouille" a écrit dans le message de news:
mfo8t6$hmd$
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






---
L'absence de virus dans ce courrier electronique a ete verifiee 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
Avatar
Jacquouille
Hello
Puis-je faire appel à; nos éminences pour corriger et mettre une note
artistique à ce filet de macro.
Il fonctionne bien, mais je crois qu'il y a moyen d'écrire cela en mieux

Sub LaVacheQuiRit()
Dim n As Integer

Range("A1:G363").ColumnWidth = 16 'Largeur colonne
Range("A1:G363").RowHeight = 79.5 'Hauteur ligne
Range("A1:G363").Font.Name = "Arial" 'Police
Range("A1:G363").Font.Size = 36 'Taille police
Range("A1:G363").NumberFormat = "###0"".""" 'Met un point à la fin
Range("A1:G363").HorizontalAlignment = xlCenter 'Centrer le contenu
Range("A1:G363").VerticalAlignment = xlCenter 'Centrer le contenu

n = 1
For Each c In Range("a1:g363")
c.Value = n
n = n + 1
Next
End Sub

Merci beaucoup
Bon WE pascal et attention au foie.
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacquouille" a écrit dans le message de groupe de discussion :
mfp5sm$ni3$

..... merci de refaire surface.
C'est grâce à ce truc que j'avais la liste et que j'ai trouvé le n°46.
Par contre, l'astuce pour la non apparition du point après un nombre, et
ben, je ne la connaissais pas.
On a réparé ce truc avec un format de cel.
Dès que j'ai 5 min, je publie la truc ici pour faire des n° de tombola.
Bonne soirée
Attention au foie demain matin.
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Patrick" a écrit dans le message de groupe de discussion :
mfp1sc$dja$

Bonjour Jacques et le forum,

si tu veux avoir la liste des caractères:

tu mets 33 dans la cellule A1 et en B1 tu mets Êr(A1)
et tu tires le tout vers le bas et tu auras tous les caractères :)
Si tu changes la police de la colonne B, tu auras d'autres résultats
(windings par exemple)

Patrick


"Jacquouille" a écrit dans le message de news:
mfo8t6$hmd$
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






---
L'absence de virus dans ce courrier electronique a ete verifiee 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
Avatar
Jacky
Bonjour en ce dimanche de Pâques

'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ
Avatar
GL
Le 05/04/2015 08:56, Jacky a écrit :
Bonjour en ce dimanche de Pâques



on peut aussi passer par un tableau, je pense que ça va
+ vite encore qu'avec ScreenUpdatingúlse

Sub LeLapinDePaques()
Dim i&, j&, C As Range, V(1 To 363, 1 To 7) As Long
For i = 1 To 363: For j = 1 To 7: V(i, j) = 7 * (i - 1) + j
Next: Next
With [a1:g363]
.Value = V
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
End Sub


'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------

Avatar
Jacquouille
Bonjour
C'est gentil de me proposer un truc qui va plus vite.
Mais, le temps que je comprenne la seconde ligne, les tickets de tombola
seront imprimés et vendus. -((
Par contre, j'aime cette façon de condenser les commandes avec les deux
points. Je l'oublie à chaque fois. Dommage car cela permet d'économiser des
lignes à l'écran.
Merci pour ce rappel.
Bon WE
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"GL" a écrit dans le message de groupe de discussion :
552109c3$0$3062$

Le 05/04/2015 08:56, Jacky a écrit :
Bonjour en ce dimanche de Pâques



on peut aussi passer par un tableau, je pense que ça va
+ vite encore qu'avec ScreenUpdatingúlse

Sub LeLapinDePaques()
Dim i&, j&, C As Range, V(1 To 363, 1 To 7) As Long
For i = 1 To 363: For j = 1 To 7: V(i, j) = 7 * (i - 1) + j
Next: Next
With [a1:g363]
.Value = V
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
End Sub


'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------





---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Jacquouille
Salut Jacky ....Qui s'est levé tôt pour aller ramasser les petits œufs....

Tu as bien compris ma demande et tu as vu directement où on pouvait
simplifier.
Je trouve ton WITH extra. Plus besoin de réécrire 25 fois le même début de
ligne.

Le capitaine [ ] est bien aussi. AV l'employait souvent pour [c] = ....

Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse puis
True?

Bonne indigestion avec les oeufs.
Encore merci
Jacques.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$

Bonjour en ce dimanche de Pâques

'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ



---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Jacquouille
Juste une 2° question: ne faut-il pas poser au départ N=1 ?

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$

Bonjour en ce dimanche de Pâques

'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ



---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Patrick
Jacques,

cette ligne sert (si beaucoup de travail en arrière plan) à ce que l'écran
ne scintille pas; tout se fait de manière quasi invisible :)

Patrick



Par contre, à quoi sert ta 2° ligne: Application.ScreenUpdatingúlse puis
True?

Bonne indigestion avec les oeufs.
Encore merci
Jacques.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
mfqmbc$s26$

Bonjour en ce dimanche de Pâques

'-------------------------------------
Sub LeLapinDePaques()
Dim N As Integer, C As Range
Application.ScreenUpdating = False
For Each C In [a1:g363]
N = N + 1
C.Value = N
Next
With [a1:g363]
' .ColumnWidth = 16 'Largeur colonne
.Columns.AutoFit 'Largeur colonne selon la plus large
.RowHeight = 79.5 'Hauteur ligne
.Font.Name = "Arial" 'Police
.Font.Size = 36 'Taille police
.NumberFormat = "###0"".""" 'Met un point à la fin"
.HorizontalAlignment = xlCenter 'Centrer le contenu
.VerticalAlignment = xlCenter 'Centrer le contenu
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
Salutations
JJ



---
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 electronique a ete verifiee par le logiciel antivirus Avast.
http://www.avast.com
1 2 3 4