Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

(vba) supprimer caractères à droite d'une valeur

8 réponses
Avatar
j-pascal
Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50 Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP

8 réponses

Avatar
tissot.emmanuel
Bonsoir,

FileSize = "50 Mo"
MsgBox Left(FileSize, Len(FileSize)-3)

Cordialement,

Manu/

"j-pascal" a écrit dans le message de news:
%
Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex
: "50 Mo" doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP




Avatar
cb60
Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50 Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP





Avatar
j-pascal
Bonjour,

Merci.
Oui, mais ce n'est pas du vba !
Supposons que la valeur "toto" (issue d'une "Function" qui la met sous la
forme xx Mo) soit en A1 :

toto = Feuil1.[a1].value

Comment transformer ta formule en code en VBA pour que je vois (dans Msgbox
toto) "xx" et non "xx Mo" ?

@+ ?

JP

"cb60" a écrit dans le message de news:

Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50
Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP







Avatar
j-pascal
Bonjour,

C'est parfait.
J'ai (et j'imagine que c'était le sens de ta proposition ...) dû mettre ce
code dans une "Function" car ça ne fonctionnait pas dans la procédure elle
même !

Merci

JP

"tissot.emmanuel" a écrit dans le message de news:
%
Bonsoir,

FileSize = "50 Mo"
MsgBox Left(FileSize, Len(FileSize)-3)

Cordialement,

Manu/

"j-pascal" a écrit dans le message de news:
%
Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer les 3 caractères situés à droite de ladite valeur, çàd "_Mo".
Ex : "50 Mo" doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP








Avatar
cb60
Bonjour
Voici deux petites procédures,

Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Worksheets("feuil1").Range("A1")
reponse = Left(choix, 3)
MsgBox reponse
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
End Sub

Elles sont similaires à : gauche ("a1",3)



Bonjour,

Merci.
Oui, mais ce n'est pas du vba !
Supposons que la valeur "toto" (issue d'une "Function" qui la met sous la
forme xx Mo) soit en A1 :

toto = Feuil1.[a1].value

Comment transformer ta formule en code en VBA pour que je vois (dans Msgbox
toto) "xx" et non "xx Mo" ?

@+ ?

JP

"cb60" a écrit dans le message de news:

Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50
Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP











Avatar
cb60
peut être mieux avec un click souris droit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target > 0 Then
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
Else
Cancel = False
Exit Sub
End If
End Sub


Bonjour
Voici deux petites procédures,

Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Worksheets("feuil1").Range("A1")
reponse = Left(choix, 3)
MsgBox reponse
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
End Sub

Elles sont similaires à : gauche ("a1",3)



Bonjour,

Merci.
Oui, mais ce n'est pas du vba !
Supposons que la valeur "toto" (issue d'une "Function" qui la met sous la
forme xx Mo) soit en A1 :

toto = Feuil1.[a1].value

Comment transformer ta formule en code en VBA pour que je vois (dans Msgbox
toto) "xx" et non "xx Mo" ?

@+ ?

JP

"cb60" a écrit dans le message de news:

Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une "Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50
Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP













Avatar
j-pascal
Merci.

JP

"cb60" a écrit dans le message de news:

Bonjour
Voici deux petites procédures,

Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Worksheets("feuil1").Range("A1")
reponse = Left(choix, 3)
MsgBox reponse
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
End Sub

Elles sont similaires à : gauche ("a1",3)



Bonjour,

Merci.
Oui, mais ce n'est pas du vba !
Supposons que la valeur "toto" (issue d'une "Function" qui la met sous la
forme xx Mo) soit en A1 :

toto = Feuil1.[a1].value

Comment transformer ta formule en code en VBA pour que je vois (dans
Msgbox
toto) "xx" et non "xx Mo" ?

@+ ?

JP

"cb60" a écrit dans le message de news:

Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une
"Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex : "50
Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP













Avatar
j-pascal
Bonsoir,

Merci pour cette proposition que je vais garder pour une autre application.

Cordialement,

JP

"cb60" a écrit dans le message de news:

peut être mieux avec un click souris droit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target > 0 Then
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
Else
Cancel = False
Exit Sub
End If
End Sub


Bonjour
Voici deux petites procédures,

Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Worksheets("feuil1").Range("A1")
reponse = Left(choix, 3)
MsgBox reponse
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set choix = Target
reponse = Left(choix, 3)
MsgBox reponse
End Sub

Elles sont similaires à : gauche ("a1",3)



Bonjour,

Merci.
Oui, mais ce n'est pas du vba !
Supposons que la valeur "toto" (issue d'une "Function" qui la met sous
la
forme xx Mo) soit en A1 :

toto = Feuil1.[a1].value

Comment transformer ta formule en code en VBA pour que je vois (dans
Msgbox
toto) "xx" et non "xx Mo" ?

@+ ?

JP

"cb60" a écrit dans le message de
news:

Bonjour
la valeur en "A1" si tu a un espace:
=STXT(a1;1;TROUVE(" "; a1; 1)-1)
si tu n'a pas d'espace:
=GAUCHE(a1;3)




Bonsoir,

J'ai une variable dont la valeur est "xxx Mo" (issue d'une
"Function").
Comme je dois utiliser cette valeur dans une fraction, je voudrais
supprimer
les 3 caractères situés à droite de ladite valeur, çàd "_Mo". Ex :
"50
Mo"
doit devenir "50".

Merci d'avance pour votre aide,

Cordialement,

JP