Voil=E0 un nouveau pb : je r=E9cup=E9re des donn=E9es=20
alphanum=E9riques sous la forme: 1200 EUR ,
je copie ce type de donn=E9es dans des cellules et je=20
d=E9sire grace =E0 une macro, supprimer les =E9l=E9ments=20
alphab=E9tiques ( en l'occurence je souhaite supprimer EUR)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Si tu as toujours EUR dans tes cellules.
Sub SupAlphaFix() MsgBox Left$([A1], Len([A1]) - 4&) End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix() Dim I&, J&, K&, Txt$ Txt = [A1] I = Len(Txt) On Error Resume Next For J = I To 0 Step -1& K = CLng(Left$(Txt, J)) If Err.Number = 0& Then Exit For Err.Clear Next J MsgBox K End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John Walkenbach.
"coffee" a écrit dans le message de news: 34d301c40100$69f1ab50$ Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous
Bonjour.
Si tu as toujours EUR dans tes cellules.
Sub SupAlphaFix()
MsgBox Left$([A1], Len([A1]) - 4&)
End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix()
Dim I&, J&, K&, Txt$
Txt = [A1]
I = Len(Txt)
On Error Resume Next
For J = I To 0 Step -1&
K = CLng(Left$(Txt, J))
If Err.Number = 0& Then Exit For
Err.Clear
Next J
MsgBox K
End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John Walkenbach.
"coffee" <rcorso@free.fr> a écrit dans le message de news: 34d301c40100$69f1ab50$a601280a@phx.gbl...
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données
alphanumériques sous la forme: 1200 EUR ,
je copie ce type de données dans des cellules et je
désire grace à une macro, supprimer les éléments
alphabétiques ( en l'occurence je souhaite supprimer EUR)
Sub SupAlphaFix() MsgBox Left$([A1], Len([A1]) - 4&) End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix() Dim I&, J&, K&, Txt$ Txt = [A1] I = Len(Txt) On Error Resume Next For J = I To 0 Step -1& K = CLng(Left$(Txt, J)) If Err.Number = 0& Then Exit For Err.Clear Next J MsgBox K End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John Walkenbach.
"coffee" a écrit dans le message de news: 34d301c40100$69f1ab50$ Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous
papou
Bonjour Sub coffee() For Each c In Selection c.Value = Left(c, Len(c) - 4) Next c End Sub Cordialement Pascal
"coffee" a écrit dans le message de news:34d301c40100$69f1ab50$ Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous
Bonjour
Sub coffee()
For Each c In Selection
c.Value = Left(c, Len(c) - 4)
Next c
End Sub
Cordialement
Pascal
"coffee" <rcorso@free.fr> a écrit dans le message de
news:34d301c40100$69f1ab50$a601280a@phx.gbl...
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données
alphanumériques sous la forme: 1200 EUR ,
je copie ce type de données dans des cellules et je
désire grace à une macro, supprimer les éléments
alphabétiques ( en l'occurence je souhaite supprimer EUR)
Bonjour Sub coffee() For Each c In Selection c.Value = Left(c, Len(c) - 4) Next c End Sub Cordialement Pascal
"coffee" a écrit dans le message de news:34d301c40100$69f1ab50$ Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous
Modeste
bonjour,
Function CalculExp(Expression) For i = 1 To Len(Expression.Value) '-----ci dessous une seule ligne if then If InStr(1, ",()+*-/^0123456789", Mid(Expression, i, 1)) Then sExp = sExp + Mid(Expression, i, 1)
Next CalculExp = Evaluate(sExp) End Function
@+
-----Message d'origine----- Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous .
bonjour,
Function CalculExp(Expression)
For i = 1 To Len(Expression.Value)
'-----ci dessous une seule ligne if then
If InStr(1, ",()+*-/^0123456789", Mid(Expression, i,
1)) Then sExp = sExp + Mid(Expression, i, 1)
Next
CalculExp = Evaluate(sExp)
End Function
@+
-----Message d'origine-----
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données
alphanumériques sous la forme: 1200 EUR ,
je copie ce type de données dans des cellules et je
désire grace à une macro, supprimer les éléments
alphabétiques ( en l'occurence je souhaite supprimer EUR)
Function CalculExp(Expression) For i = 1 To Len(Expression.Value) '-----ci dessous une seule ligne if then If InStr(1, ",()+*-/^0123456789", Mid(Expression, i, 1)) Then sExp = sExp + Mid(Expression, i, 1)
Next CalculExp = Evaluate(sExp) End Function
@+
-----Message d'origine----- Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous .
figwer Philippe
salut sinon tous simplement ctrl+H remplacer EUR par rien ....et cliquer sur remplacer tout... enregistre une macro au cas ou.
"Alain CROS" a écrit dans le message de news:
Bonjour.
Si tu as toujours EUR dans tes cellules.
Sub SupAlphaFix() MsgBox Left$([A1], Len([A1]) - 4&) End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix() Dim I&, J&, K&, Txt$ Txt = [A1] I = Len(Txt) On Error Resume Next For J = I To 0 Step -1& K = CLng(Left$(Txt, J)) If Err.Number = 0& Then Exit For Err.Clear Next J MsgBox K End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John Walkenbach.
"coffee" a écrit dans le message de news: 34d301c40100$69f1ab50$
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
Merci à vous
salut
sinon tous simplement
ctrl+H
remplacer EUR par rien ....et cliquer sur remplacer tout...
enregistre une macro au cas ou.
"Alain CROS" <Personne@ICI> a écrit dans le message de
news:eZfgY6RAEHA.1468@tk2msftngp13.phx.gbl...
Bonjour.
Si tu as toujours EUR dans tes cellules.
Sub SupAlphaFix()
MsgBox Left$([A1], Len([A1]) - 4&)
End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix()
Dim I&, J&, K&, Txt$
Txt = [A1]
I = Len(Txt)
On Error Resume Next
For J = I To 0 Step -1&
K = CLng(Left$(Txt, J))
If Err.Number = 0& Then Exit For
Err.Clear
Next J
MsgBox K
End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John
Walkenbach.
"coffee" <rcorso@free.fr> a écrit dans le message de news:
34d301c40100$69f1ab50$a601280a@phx.gbl...
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données
alphanumériques sous la forme: 1200 EUR ,
je copie ce type de données dans des cellules et je
désire grace à une macro, supprimer les éléments
alphabétiques ( en l'occurence je souhaite supprimer EUR)
salut sinon tous simplement ctrl+H remplacer EUR par rien ....et cliquer sur remplacer tout... enregistre une macro au cas ou.
"Alain CROS" a écrit dans le message de news:
Bonjour.
Si tu as toujours EUR dans tes cellules.
Sub SupAlphaFix() MsgBox Left$([A1], Len([A1]) - 4&) End Sub
Si tu peux avoir différentes devises.
Sub SupAlphaNonFix() Dim I&, J&, K&, Txt$ Txt = [A1] I = Len(Txt) On Error Resume Next For J = I To 0 Step -1& K = CLng(Left$(Txt, J)) If Err.Number = 0& Then Exit For Err.Clear Next J MsgBox K End Sub
Si tu veux faire ça sans vba, une petite formule matricielle de John Walkenbach.
"coffee" a écrit dans le message de news: 34d301c40100$69f1ab50$
Re-bonjour à vous tous,
Voilà un nouveau pb : je récupére des données alphanumériques sous la forme: 1200 EUR , je copie ce type de données dans des cellules et je désire grace à une macro, supprimer les éléments alphabétiques ( en l'occurence je souhaite supprimer EUR)
