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".
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".
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%237M3gMwKIHA.2268@TK2MSFTNGP02.phx.gbl...
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".
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
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
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".
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
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
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" <cb60@discussions.microsoft.com> a écrit dans le message de news:
5FF10AD6-D9A0-4955-A1F8-4A8E2F34FCC5@microsoft.com...
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. 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
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: %
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
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" <tissot.emmanuel@free.fr> a écrit dans le message de news:
%23S54doxKIHA.3992@TK2MSFTNGP03.phx.gbl...
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%237M3gMwKIHA.2268@TK2MSFTNGP02.phx.gbl...
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".
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: %
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
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
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" <cb60@discussions.microsoft.com> a écrit dans le message de news:
5FF10AD6-D9A0-4955-A1F8-4A8E2F34FCC5@microsoft.com...
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".
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
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
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" <cb60@discussions.microsoft.com> a écrit dans le message de news:
5FF10AD6-D9A0-4955-A1F8-4A8E2F34FCC5@microsoft.com...
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".
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
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
Merci.
JP
"cb60" <cb60@discussions.microsoft.com> a écrit dans le message de news:
876FF1BD-DDFF-4B91-8C10-CBEBC87A284B@microsoft.com...
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" <cb60@discussions.microsoft.com> a écrit dans le message de news:
5FF10AD6-D9A0-4955-A1F8-4A8E2F34FCC5@microsoft.com...
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".
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
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
Bonsoir,
Merci pour cette proposition que je vais garder pour une autre application.
Cordialement,
JP
"cb60" <cb60@discussions.microsoft.com> a écrit dans le message de news:
F0F7498C-E8D6-40F8-B05B-22D448228330@microsoft.com...
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" <cb60@discussions.microsoft.com> a écrit dans le message de
news:
5FF10AD6-D9A0-4955-A1F8-4A8E2F34FCC5@microsoft.com...
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 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".