Dim Ess As String * 10 Dim I As Integer I = 9 Ess = String(9, " ") & I
Quand penses tu ????
@+ Lolote
Ess = String(9, " ") & I "damnou" a écrit dans le message de news:
Bonjour à tous
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une chaine de caractere definie en longueur fixe
exemple
Dim ess As String * 10 Dim i As Integer
i = 9
ess = Val(i)
j'obtient dans ess "9 " alors que je souhaiterais " 9"
damnou
Modeste
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une chaine de caractere definie en longueur fixe exemple Dim ess As String * 10 Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée saisie [A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser l'alignement [A1].HorizontalAlignment = xlRight [B1].FormulaLocal = "=NBCAR(A1)"
-- -- @+ ;o)))
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une
chaine de caractere definie en longueur fixe
exemple
Dim ess As String * 10
Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée saisie
[A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser
l'alignement
[A1].HorizontalAlignment = xlRight
[B1].FormulaLocal = "=NBCAR(A1)"
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une chaine de caractere definie en longueur fixe exemple Dim ess As String * 10 Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée saisie [A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser l'alignement [A1].HorizontalAlignment = xlRight [B1].FormulaLocal = "=NBCAR(A1)"
-- -- @+ ;o)))
damnou
Merci beaucoup Modeste
Je viens d'essayer et ça marche
ess = Right(String(10, " ") & Val(i), 10)
Damnou
"Modeste" a écrit dans le message de news: %
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une chaine de caractere definie en longueur fixe exemple Dim ess As String * 10 Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée saisie [A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser l'alignement [A1].HorizontalAlignment = xlRight [B1].FormulaLocal = "=NBCAR(A1)"
-- -- @+ ;o)))
Merci beaucoup Modeste
Je viens d'essayer et ça marche
ess = Right(String(10, " ") & Val(i), 10)
Damnou
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23YpDlxJhGHA.3376@TK2MSFTNGP03.phx.gbl...
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une
chaine de caractere definie en longueur fixe
exemple
Dim ess As String * 10
Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée
saisie
[A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser
l'alignement
[A1].HorizontalAlignment = xlRight
[B1].FormulaLocal = "=NBCAR(A1)"
Bonsour® damnou avec ferveur ;o))) vous nous disiez :
En VBA je voudrais mettre une valeur numérique cadrer à droite dans une chaine de caractere definie en longueur fixe exemple Dim ess As String * 10 Dim i As Integer
ess = Right(String(10, " ") & Val(i), 10)
pour empécher que Excel interprete automatiquement le type de donnée saisie [A1] = "'" & ess
selon la largeur de colonne, pour une cellule il faudra également préciser l'alignement [A1].HorizontalAlignment = xlRight [B1].FormulaLocal = "=NBCAR(A1)"
