Format personnalisée

[chaelie2015]

Bonjour forum
Je souhaite remplir une colonne exemple D (de D3 au D60) par un format personnalisé
Par exemple si je saisie 12.R ou 12,R ou 12/R j’aurais 12-R
Autre exemple : 16.3 ou 16/3 ou 16,3 j’aurais 16-3
dans tous les cas je dois avoir cette forme xx-x (x peut être chiffre ou lettre)
Salutations

 

[M12]

Re : Format personnalisée

Bonjour,

A tester (sur la colonne D)

 

[mutzik]

Re : Format personnalisée

bonjour,

ou alors, dans la macro de M12

Cells(i, 4).Value = Left(Cells(i, 4), 2) & "-" & Right(Cells(i, 4), 1)

prendra les deux caractères de gauche avec le tiret puis le caractère de droite
le 3eme caractère sera systématiquement remplacé par un tiret
sinon, garder (et adapter au besoin) la formule de M12

 

[chaelie2015]

Re : Format personnalisée

Bonjour M12, BERTRAND
Merci pour les réponses; mais ça bugue
au niveau de la ligne
Cells(i, 4).NumberFormat = "@"
a+

 

[mutzik]

Re : Format personnalisée

re,

en fait il faut au préalable appliquer le format texte à la cellule
utilise l'enregistreur de macros, et manuellement formatte une cellule en texte
arrête l'enregistreur et regarde le code
applique le code à la macro de M12