OVH Cloud OVH Cloud

Curiosité orthographique

29 réponses
Avatar
Péhemme
Bonjour à Tous,

Sous Vista - Excel 2003 :
J'écris en A1 : 1ère journée
Je "tire" la poignée jusqu'à la 40ème ligne
J'obtiens :
. en A2 => 2ème journée,
. en A3 => 3ème journée
jusque là, tout est normal. Puis :
. en A11 => 11ème journée => toujours normal
. en A21 => 21ère journée => ?
. en A31 => 31ère journée => ?
Puis encore plus de curiosités.
Je "tire" jusqu'à la 54ème ligne, et j'obtiens :
. en A41 => 41er journée => ??
. en A51 => 51er journée => ??

Je plaide non coupable, mais est-ce de ma faute ou bien celle de ma machine
?
Que puis-je faire ?
Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu, mais
tout de même, la question reste posée.

Bon dimanche à vous tous.
Michel

9 réponses

1 2 3
Avatar
Mgr T. Banni
j'ai beaucoup prié pour que cette correction s'exécutât par un rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:
Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu, mais tout de même, la question reste posée.


Avatar
Péhemme
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu,
mais tout de même, la question reste posée.






Avatar
Mgr T. Banni
celle qui élève votre âme au Ciel, mon fils
l'exposant n'en prend-il pas lui-même la direction?
Mgr T.B.

"Péhemme" a écrit dans le message de news: %
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:
Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu, mais tout de même, la question reste posée.









Avatar
isabelle
bonjour Michel,

qu'est qu'on ne ferait pas pour une prière, ;-)

Sub MonFormatExposant()
With ActiveCell
.Value = .Value & "ème"
With .Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub


isabelle

Le 2010-02-02 13:08, Péhemme a écrit :
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est
résolu, mais tout de même, la question reste posée.









Avatar
Péhemme
Merci Isabelle.
Bien sûr... Ton idée est bonne. Telle quelle, la macro me rajoute "ème" à la
fin de "2ème journée" (par exemple).
Il me faut isoler le ou les 2 premiers caractères (pour rester en dessous de
100) puis traiter les 3 suivants ("ème" à compter de 2ème) en exposant.
Ou, différemment, écrire le chiffre dans la cellule puis lui rajouter "ère"
ou "ème" en exposant puis "journée" en écriture normale...
Mais çà, je devrais pouvoir le faire.
Mille mercis en tout cas de m'avoir indiqué le chemin de l'élévation de ma
réflexion à défaut de celle de mon âme dont prend soin, par ailleurs,
Monseigneur.
;-)
Bien amicalement
Michel

"isabelle" a écrit dans le message de
news:
bonjour Michel,

qu'est qu'on ne ferait pas pour une prière, ;-)

Sub MonFormatExposant()
With ActiveCell
.Value = .Value & "ème"
With .Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub


isabelle

Le 2010-02-02 13:08, Péhemme a écrit :
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu,
mais tout de même, la question reste posée.











Avatar
Péhemme
;-))
C'est tout à fait exact.
Quant à mon âme Isabelle va me pondre la macro qu'il lui faut.
Michel

"Mgr T. Banni" a écrit dans le message de
news:
celle qui élève votre âme au Ciel, mon fils
l'exposant n'en prend-il pas lui-même la direction?
Mgr T.B.

"Péhemme" a écrit dans le message de news:
%
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu,
mais tout de même, la question reste posée.












Avatar
Péhemme
Bonsoir à Tous,

Je me sors à peine du crash down de mon ordi.
J'ai encore un problème de "Global Virtual Card Host a cessé de fonctionner"
à solutionner, mais le moral revient.
Entre temps, pour ceux que cela intéresse, j'ai pondu la macro suivante qui
ne demande qu'à être améliorée.
Je remercie Isabelle et Frédéric pour m'avoir mis sur la voie et Monseigneur
T. Banni pour ses prières et vous tous pour avoir eu la gentillesse de me
lire.
;-))
Michel

Sub FormatJournéeFoot()
Dim X As Variant
Dim C As Range
Dim L As Integer

For Each C In Selection
X = C.Value

Select Case X
Case Is > 1
X = X & "ème" & " journée"
Case Is = 1
X = X & "ère" & " journée"
Case Else
MsgBox "Case vide"
Exit Sub
End Select
C.Value = X
L = Len(C)
C.Characters(L - 10, 3).Font.Superscript = True
Next C

End Sub

"Péhemme" a écrit dans le message de
news:%
Merci Isabelle.
Bien sûr... Ton idée est bonne. Telle quelle, la macro me rajoute "ème" à
la
fin de "2ème journée" (par exemple).
Il me faut isoler le ou les 2 premiers caractères (pour rester en dessous
de
100) puis traiter les 3 suivants ("ème" à compter de 2ème) en exposant.
Ou, différemment, écrire le chiffre dans la cellule puis lui rajouter
"ère"
ou "ème" en exposant puis "journée" en écriture normale...
Mais çà, je devrais pouvoir le faire.
Mille mercis en tout cas de m'avoir indiqué le chemin de l'élévation de ma
réflexion à défaut de celle de mon âme dont prend soin, par ailleurs,
Monseigneur.
;-)
Bien amicalement
Michel

"isabelle" a écrit dans le message de
news:
bonjour Michel,

qu'est qu'on ne ferait pas pour une prière, ;-)

Sub MonFormatExposant()
With ActiveCell
.Value = .Value & "ème"
With .Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub


isabelle

Le 2010-02-02 13:08, Péhemme a écrit :
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est
résolu, mais tout de même, la question reste posée.














Avatar
isabelle
bonjour Michel,

je voie que les prières de Monseigneur ont porté fruit, elle est très
bien cette macro,

isabelle

Le 2010-02-03 15:34, Péhemme a écrit :
Bonsoir à Tous,

Je me sors à peine du crash down de mon ordi.
J'ai encore un problème de "Global Virtual Card Host a cessé de
fonctionner"
à solutionner, mais le moral revient.
Entre temps, pour ceux que cela intéresse, j'ai pondu la macro
suivante qui
ne demande qu'à être améliorée.
Je remercie Isabelle et Frédéric pour m'avoir mis sur la voie et
Monseigneur
T. Banni pour ses prières et vous tous pour avoir eu la gentillesse de me
lire.
;-))
Michel

Sub FormatJournéeFoot()
Dim X As Variant
Dim C As Range
Dim L As Integer

For Each C In Selection
X = C.Value

Select Case X
Case Is > 1
X = X & "ème" & " journée"
Case Is = 1
X = X & "ère" & " journée"
Case Else
MsgBox "Case vide"
Exit Sub
End Select
C.Value = X
L = Len(C)
C.Characters(L - 10, 3).Font.Superscript = True
Next C

End Sub

"Péhemme" a écrit dans le message de
news:%
Merci Isabelle.
Bien sûr... Ton idée est bonne. Telle quelle, la macro me rajoute
"ème" à la
fin de "2ème journée" (par exemple).
Il me faut isoler le ou les 2 premiers caractères (pour rester en
dessous de
100) puis traiter les 3 suivants ("ème" à compter de 2ème) en exposant.
Ou, différemment, écrire le chiffre dans la cellule puis lui rajouter
"ère"
ou "ème" en exposant puis "journée" en écriture normale...
Mais çà, je devrais pouvoir le faire.
Mille mercis en tout cas de m'avoir indiqué le chemin de l'élévation
de ma
réflexion à défaut de celle de mon âme dont prend soin, par ailleurs,
Monseigneur.
;-)
Bien amicalement
Michel

"isabelle" a écrit dans le message de
news:
bonjour Michel,

qu'est qu'on ne ferait pas pour une prière, ;-)

Sub MonFormatExposant()
With ActiveCell
.Value = .Value & "ème"
With .Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub


isabelle

Le 2010-02-02 13:08, Péhemme a écrit :
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème"
en exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de
news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:

Pour vous rassurer, j'ai corrigé "à la main" et le problème est
résolu, mais tout de même, la question reste posée.

















Avatar
Mgr T. Banni
mouais, mais quand on pense que le michel en question a pourri la vie à tout le forum avec son problème de "er" "ème"
"ième", en exposant qui plus est, alors qu'après le "er, ère" de "1er, 1ère" la typographie n'accepte plus que le "e"
(2e, 4e, 25e...etc..), le même que l'on trouve derrière les romains utilisés pour les siècles (XXIe)
"mais tout de même, la question reste posée" écrivait notre homme...
tellement bien posée qu'à force de se triturer le cerveau sur cet inutile problème, il en a fait péter son ordi, une
rolls royce soit disant de chez HP, qu'il vient de ramener pour la 3e (j'ai failli écrire 3ème) fois à la Fennec (je dis
comme cela car michel m'a dit qu'ils étaient très rusés chez cet agitateur de curiosité...non orthographique)
donc, isabelle, mon ange, ne vous attendez pas une réponse de sa part avant quelques jours mais prions tous que Dieu le
veuille absoudre
Mgr T.B.


"isabelle" a écrit dans le message de news:
bonjour Michel,

je voie que les prières de Monseigneur ont porté fruit, elle est très bien cette macro,

isabelle

Le 2010-02-03 15:34, Péhemme a écrit :
Bonsoir à Tous,

Je me sors à peine du crash down de mon ordi.
J'ai encore un problème de "Global Virtual Card Host a cessé de fonctionner"
à solutionner, mais le moral revient.
Entre temps, pour ceux que cela intéresse, j'ai pondu la macro suivante qui
ne demande qu'à être améliorée.
Je remercie Isabelle et Frédéric pour m'avoir mis sur la voie et Monseigneur
T. Banni pour ses prières et vous tous pour avoir eu la gentillesse de me
lire.
;-))
Michel

Sub FormatJournéeFoot()
Dim X As Variant
Dim C As Range
Dim L As Integer

For Each C In Selection
X = C.Value

Select Case X
Case Is > 1
X = X & "ème" & " journée"
Case Is = 1
X = X & "ère" & " journée"
Case Else
MsgBox "Case vide"
Exit Sub
End Select
C.Value = X
L = Len(C)
C.Characters(L - 10, 3).Font.Superscript = True
Next C

End Sub

"Péhemme" a écrit dans le message de news:%
Merci Isabelle.
Bien sûr... Ton idée est bonne. Telle quelle, la macro me rajoute "ème" à la
fin de "2ème journée" (par exemple).
Il me faut isoler le ou les 2 premiers caractères (pour rester en dessous de
100) puis traiter les 3 suivants ("ème" à compter de 2ème) en exposant.
Ou, différemment, écrire le chiffre dans la cellule puis lui rajouter "ère"
ou "ème" en exposant puis "journée" en écriture normale...
Mais çà, je devrais pouvoir le faire.
Mille mercis en tout cas de m'avoir indiqué le chemin de l'élévation de ma
réflexion à défaut de celle de mon âme dont prend soin, par ailleurs,
Monseigneur.
;-)
Bien amicalement
Michel

"isabelle" a écrit dans le message de news:
bonjour Michel,

qu'est qu'on ne ferait pas pour une prière, ;-)

Sub MonFormatExposant()
With ActiveCell
.Value = .Value & "ème"
With .Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub


isabelle

Le 2010-02-02 13:08, Péhemme a écrit :
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en exposant ?
;-)
Michel


"Mgr T. Banni" a écrit dans le message de news:%
j'ai beaucoup prié pour que cette correction s'exécutât par un rechercher/remplacer
Mgr T.B.

"Péhemme" a écrit dans le message de news:
Pour vous rassurer, j'ai corrigé "à la main" et le problème est résolu, mais tout de même, la question reste
posée.



















1 2 3