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.
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.
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.
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.
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.
Œ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.
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en exposant ?
;-)
Michel
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news: epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
Œ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.
Œ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.
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de
news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
Œ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.
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.
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" <vaderetrosp@mas> a écrit dans le message de
news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.
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.
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" <xx@xx.xx> a écrit dans le message de news:
%23GLuTLDpKHA.3792@TK2MSFTNGP06.phx.gbl...
Œuf corse Monseigneur !
Mais, cerise sur le gâteau, quelle prière permet de garder le "ème" en
exposant ?
;-)
Michel
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de
news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.
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.
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" <i@v> a écrit dans le message de
news:OkiSJ8EpKHA.4648@TK2MSFTNGP06.phx.gbl...
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" <vaderetrosp@mas> a écrit dans le message de
news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.
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.
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" <xx@xx.xx> a écrit dans le message de
news:%23q8LIuQpKHA.4016@TK2MSFTNGP06.phx.gbl...
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" <i@v> a écrit dans le message de
news:OkiSJ8EpKHA.4648@TK2MSFTNGP06.phx.gbl...
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" <vaderetrosp@mas> a écrit dans le message de
news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un
rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.
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.
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" <xx@xx.xx> a écrit dans le message de news:%23q8LIuQpKHA.4016@TK2MSFTNGP06.phx.gbl...
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" <i@v> a écrit dans le message de news:OkiSJ8EpKHA.4648@TK2MSFTNGP06.phx.gbl...
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" <vaderetrosp@mas> a écrit dans le message de news:%23bqxRUCpKHA.3948@TK2MSFTNGP06.phx.gbl...
j'ai beaucoup prié pour que cette correction s'exécutât par un rechercher/remplacer
Mgr T.B.
"Péhemme" <xx@xx.xx> a écrit dans le message de news: epR13x2lKHA.5040@TK2MSFTNGP06.phx.gbl...
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.
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.