OVH Cloud OVH Cloud

Incrémenter des lettres

9 réponses
Avatar
Steph
Bonjour,

J'ai une macro qui me place à la suite une liste de matériel, je
souhaiterais placer devant cette liste un repère de type "A.","B.","C."
etc.. je souhaiterais dans ma macro incrémenter ces repères automatiquement
si c'était un chiffre ce serait facile (code = code + 1 & ".") mais en
lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph

9 réponses

Avatar
Papy Bernard
Slt,
De "Steph"

J'ai une macro qui me place à la suite une liste de matériel, je
souhaiterais placer devant cette liste un repère de type "A.","B.","C."
etc.. je souhaiterais dans ma macro incrémenter ces repères
automatiquement

si c'était un chiffre ce serait facile (code = code + 1 & ".") mais en
lettre, y a t'il une possibilité en code ASCII ?


Oui. Dans Excel :
=code ("A")

--
A+
Papy Bernard (RTCien malgré lui)

Avatar
Denis
Bonjour,

regarde chr() et asc() dans l'aide

Denis
-----Message d'origine-----
Bonjour,

J'ai une macro qui me place à la suite une liste de
matériel, je

souhaiterais placer devant cette liste un repère de
type "A.","B.","C."

etc.. je souhaiterais dans ma macro incrémenter ces
repères automatiquement

si c'était un chiffre ce serait facile (code = code + 1
& ".") mais en

lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph


.



Avatar
Jacky
Bonjour Steph

En VBA:
Chr(65) pour la lettre A
Chr(66) pour la lettre B
etc...
Chr(90) pour la lettre Z

souhaiterais placer devant cette liste un repère de type "A.","B.","C."
Donc:


Chr(65)&"."&"la liste"
ou
For ie to 90
msgbox Chr(i)&"."
next

Salutations
JJ

"Steph" a écrit dans le message de
news:
Bonjour,

J'ai une macro qui me place à la suite une liste de matériel, je
souhaiterais placer devant cette liste un repère de type "A.","B.","C."
etc.. je souhaiterais dans ma macro incrémenter ces repères
automatiquement

si c'était un chiffre ce serait facile (code = code + 1 & ".") mais en
lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph





Avatar
Steph
Merci beaucoup Jacky

Steph

"Jacky" a écrit dans le message
de news:
Bonjour Steph

En VBA:
Chr(65) pour la lettre A
Chr(66) pour la lettre B
etc...
Chr(90) pour la lettre Z

souhaiterais placer devant cette liste un repère de type "A.","B.","C."
Donc:


Chr(65)&"."&"la liste"
ou
For ie to 90
msgbox Chr(i)&"."
next

Salutations
JJ

"Steph" a écrit dans le message de
news:
Bonjour,

J'ai une macro qui me place à la suite une liste de matériel, je
souhaiterais placer devant cette liste un repère de type "A.","B.","C."
etc.. je souhaiterais dans ma macro incrémenter ces repères
automatiquement

si c'était un chiffre ce serait facile (code = code + 1 & ".") mais en
lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph









Avatar
Modeste
Bonsour® JJ,
et après 26 incrémentations (Z), quelle régle adoptes-
tu ???
notament chr(256)
après 191 incrementations =#VALEUR!
!!!!

;o)))
-----Message d'origine-----
Bonjour Steph

En VBA:
Chr(65) pour la lettre A
Chr(66) pour la lettre B
etc...
Chr(90) pour la lettre Z

souhaiterais placer devant cette liste un repère de
type "A.","B.","C."



Donc:
Chr(65)&"."&"la liste"
ou
For ie to 90
msgbox Chr(i)&"."
next

Salutations
JJ

"Steph" a écrit dans
le message de

news:
Bonjour,

J'ai une macro qui me place à la suite une liste de
matériel, je


souhaiterais placer devant cette liste un repère de
type "A.","B.","C."


etc.. je souhaiterais dans ma macro incrémenter ces
repères


automatiquement
si c'était un chiffre ce serait facile (code = code +
1 & ".") mais en


lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph





.





Avatar
Jacky
Bonsoir Gee-dee

Cela semblait convenir à Seph. Mais je suis tout à fait d'accord avec ta
remarque.
J'ai pensé à une solution par N/26 dans la boucle mettre AA puis BB
Aurais-tu la solution ??

Salutations
JJ

"Modeste" a écrit dans le message de
news:8f3201c4d234$aa112840$
Bonsour® JJ,
et après 26 incrémentations (Z), quelle régle adoptes-
tu ???
notament chr(256)
après 191 incrementations =#VALEUR!
!!!!

;o)))




Avatar
Pierre Archambault
Salut

Essaie cette fonction personnelle

Public Function Transforme(Nombre As Variant)
Dim Test As Variant

If Nombre <= 26 Then
Test = Chr(65 + Nombre - 1)
Else
Test = Chr(65 + (Nombre 26) - 1)
Test = Test & Chr(65 + (Nombre Mod (26)))
End If

Transforme = Test

End Function

Utilise cette fonction comme une formule Excel dans ta feuille

Bonne chance
Pierre


"Modeste" a écrit dans le message de
news:8f3201c4d234$aa112840$
Bonsour® JJ,
et après 26 incrémentations (Z), quelle régle adoptes-
tu ???
notament chr(256)
après 191 incrementations =#VALEUR!
!!!!

;o)))
-----Message d'origine-----
Bonjour Steph

En VBA:
Chr(65) pour la lettre A
Chr(66) pour la lettre B
etc...
Chr(90) pour la lettre Z

souhaiterais placer devant cette liste un repère de
type "A.","B.","C."



Donc:
Chr(65)&"."&"la liste"
ou
For ie to 90
msgbox Chr(i)&"."
next

Salutations
JJ

"Steph" a écrit dans
le message de

news:
Bonjour,

J'ai une macro qui me place à la suite une liste de
matériel, je


souhaiterais placer devant cette liste un repère de
type "A.","B.","C."


etc.. je souhaiterais dans ma macro incrémenter ces
repères


automatiquement
si c'était un chiffre ce serait facile (code = code +
1 & ".") mais en


lettre, y a t'il une possibilité en code ASCII ?

Merci de votre aide,

Steph





.





Avatar
Jacky
Ok pour moi, pas mal.
Merci beaucoup.
Reste plus que Stef l'adapte dans son code.

Salutations
JJ

"Pierre Archambault" a écrit dans le
message de news:i93pd.178656$
Salut

Essaie cette fonction personnelle

Public Function Transforme(Nombre As Variant)
Dim Test As Variant

If Nombre <= 26 Then
Test = Chr(65 + Nombre - 1)
Else
Test = Chr(65 + (Nombre 26) - 1)
Test = Test & Chr(65 + (Nombre Mod (26)))
End If

Transforme = Test

End Function

Utilise cette fonction comme une formule Excel dans ta feuille

Bonne chance
Pierre



Avatar
Modeste
;o))
Bonsour® Jacky,
Pierre à proposé un "Excel"lente solution ;o)))
a considéré malgré l'absence de régle émanant de
steph ????

j'avais surtout tendu la perche en espérant qu'un
astucieux nous propose la façon de coder les fameux
Unicode supérieur à 255 ;o)))
que l'on arrive à coller via charmap.exe
mais que je ne suis pas arrivé faire via VBA
telles que en Arial unicode:
U+0361 : lettre minuscule grecque Rhô
ou
U+266B : deux croches ramées

????
@+
-----Message d'origine-----
Bonsoir Gee-dee

Cela semblait convenir à Seph. Mais je suis tout à fait
d'accord avec ta

remarque.
J'ai pensé à une solution par N/26 dans la boucle mettre
AA puis BB

Aurais-tu la solution ??

Salutations
JJ

"Modeste" a écrit
dans le message de

news:8f3201c4d234$aa112840$
Bonsour® JJ,
et après 26 incrémentations (Z), quelle régle adoptes-
tu ???
notament chr(256)
après 191 incrementations =#VALEUR!
!!!!

;o)))





.