Bonsoir
J'ai une colonne dont les cel sont composée comme suit:
5° sec 3°
7° sec
2° forte pluie
4° humide 3°
Je désire ne garder que le texte, càd: sec, humide, pluie, soleil.... mais
pas les t°
Je vous remercie dès à présent.
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
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
MichD
Bonjour,
Dans un module standard, tu copies la fonction suivante et si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1) et tu recopies la formule sur la colonne B.
'--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, T As Variant Dim P As Double, R As String X = Replace(Rg, "°", "") On Error Resume Next T = Split(X, " ") For a = 0 To UBound(T) P = CDbl(T(a)) If Err <> 0 Then Err.Clear R = R & T(a) & " " End If Next If R <> "" Then R = Left(R, Len(R) - 1) End If Isoler_Texte = R End Function '---------------------------------------------------
Bonjour,
Dans un module standard, tu copies la fonction suivante et
si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1)
et tu recopies la formule sur la colonne B.
'---------------------------------------------------
Function Isoler_Texte(Rg As Range)
Dim X As String, T As Variant
Dim P As Double, R As String
X = Replace(Rg, "°", "")
On Error Resume Next
T = Split(X, " ")
For a = 0 To UBound(T)
P = CDbl(T(a))
If Err <> 0 Then
Err.Clear
R = R & T(a) & " "
End If
Next
If R <> "" Then
R = Left(R, Len(R) - 1)
End If
Isoler_Texte = R
End Function
'---------------------------------------------------
Dans un module standard, tu copies la fonction suivante et si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1) et tu recopies la formule sur la colonne B.
'--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, T As Variant Dim P As Double, R As String X = Replace(Rg, "°", "") On Error Resume Next T = Split(X, " ") For a = 0 To UBound(T) P = CDbl(T(a)) If Err <> 0 Then Err.Clear R = R & T(a) & " " End If Next If R <> "" Then R = Left(R, Len(R) - 1) End If Isoler_Texte = R End Function '---------------------------------------------------
Jacquouille
Bonjour Denis Je viens seulement de tester. Trop de boulot, bien que retraité. -( J'obtiens un #NOM? P = CDbl(T(a)) ...... c'est du 2003, ça ? Keskecèkesa? Au bon plaisir d te lire, mais, déjà, un bon printemps et un bon WE Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lgfnd7$ent$
Bonjour,
Dans un module standard, tu copies la fonction suivante et si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1) et tu recopies la formule sur la colonne B.
'--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, T As Variant Dim P As Double, R As String X = Replace(Rg, "°", "") On Error Resume Next T = Split(X, " ") For a = 0 To UBound(T) P = CDbl(T(a)) If Err <> 0 Then Err.Clear R = R & T(a) & " " End If Next If R <> "" Then R = Left(R, Len(R) - 1) End If Isoler_Texte = R End Function '---------------------------------------------------
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour Denis
Je viens seulement de tester. Trop de boulot, bien que retraité. -(
J'obtiens un #NOM?
P = CDbl(T(a)) ...... c'est du 2003, ça ?
Keskecèkesa?
Au bon plaisir d te lire, mais, déjà, un bon printemps et un bon WE
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
lgfnd7$ent$1@speranza.aioe.org...
Bonjour,
Dans un module standard, tu copies la fonction suivante et
si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1)
et tu recopies la formule sur la colonne B.
'---------------------------------------------------
Function Isoler_Texte(Rg As Range)
Dim X As String, T As Variant
Dim P As Double, R As String
X = Replace(Rg, "°", "")
On Error Resume Next
T = Split(X, " ")
For a = 0 To UBound(T)
P = CDbl(T(a))
If Err <> 0 Then
Err.Clear
R = R & T(a) & " "
End If
Next
If R <> "" Then
R = Left(R, Len(R) - 1)
End If
Isoler_Texte = R
End Function
'---------------------------------------------------
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonjour Denis Je viens seulement de tester. Trop de boulot, bien que retraité. -( J'obtiens un #NOM? P = CDbl(T(a)) ...... c'est du 2003, ça ? Keskecèkesa? Au bon plaisir d te lire, mais, déjà, un bon printemps et un bon WE Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lgfnd7$ent$
Bonjour,
Dans un module standard, tu copies la fonction suivante et si tes données sont en A1:A4, tu écris en B1 =Isoler_Texte(A1) et tu recopies la formule sur la colonne B.
'--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, T As Variant Dim P As Double, R As String X = Replace(Rg, "°", "") On Error Resume Next T = Split(X, " ") For a = 0 To UBound(T) P = CDbl(T(a)) If Err <> 0 Then Err.Clear R = R & T(a) & " " End If Next If R <> "" Then R = Left(R, Len(R) - 1) End If Isoler_Texte = R End Function '---------------------------------------------------
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
MichD
J'ai commencé le message dans le message de la réponse comme ceci et ce n'est pas pour rien!
Dans un MODULE STANDARD
J'ai commencé le message dans le message de la réponse comme ceci
et ce n'est pas pour rien!
"MichD" a écrit dans le message de news: lghf00$q2h$
J'ai commencé le message dans le message de la réponse comme ceci et ce n'est pas pour rien!
Dans un MODULE STANDARD
Jacquouille
Bonjour,
Après avoir séché mes larmes, je reviens sur le sujet. Il semblerait que la fonction .... fonctionne si espace entre les car num et les car texte. Or, il se fait (comme de bien entendu, la Loi de Murphy) qu'il y a des exceptions. Peuvent-elles être traitées facilement?
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lghf00$q2h$
J'ai commencé le message dans le message de la réponse comme ceci et ce n'est pas pour rien!
Dans un MODULE STANDARD
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour,
Après avoir séché mes larmes, je reviens sur le sujet.
Il semblerait que la fonction .... fonctionne si espace entre les car num
et les car texte.
Or, il se fait (comme de bien entendu, la Loi de Murphy) qu'il y a des
exceptions.
Peuvent-elles être traitées facilement?
Après avoir séché mes larmes, je reviens sur le sujet. Il semblerait que la fonction .... fonctionne si espace entre les car num et les car texte. Or, il se fait (comme de bien entendu, la Loi de Murphy) qu'il y a des exceptions. Peuvent-elles être traitées facilement?
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lghf00$q2h$
J'ai commencé le message dans le message de la réponse comme ceci et ce n'est pas pour rien!
Dans un MODULE STANDARD
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
MichD
ceci :
Dans un module standard : '--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, Exp As String, T As String Dim A As Long, C As String, Texte As String
T = Trim(Rg) X = Len(Trim(Rg))
For A = 3 To X Texte = Mid(T, A, 1) C = Asc(Texte) If IsNumeric(Mid(T, A, 1)) Then Exit For Select Case CLng(C) Case 65 To 90, 97 To 122 Exp = Exp & Texte End Select Next Isoler_Texte = Trim(Exp) End Function '---------------------------------------------------
ceci :
Dans un module standard :
'---------------------------------------------------
Function Isoler_Texte(Rg As Range)
Dim X As String, Exp As String, T As String
Dim A As Long, C As String, Texte As String
T = Trim(Rg)
X = Len(Trim(Rg))
For A = 3 To X
Texte = Mid(T, A, 1)
C = Asc(Texte)
If IsNumeric(Mid(T, A, 1)) Then Exit For
Select Case CLng(C)
Case 65 To 90, 97 To 122
Exp = Exp & Texte
End Select
Next
Isoler_Texte = Trim(Exp)
End Function
'---------------------------------------------------
Dans un module standard : '--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, Exp As String, T As String Dim A As Long, C As String, Texte As String
T = Trim(Rg) X = Len(Trim(Rg))
For A = 3 To X Texte = Mid(T, A, 1) C = Asc(Texte) If IsNumeric(Mid(T, A, 1)) Then Exit For Select Case CLng(C) Case 65 To 90, 97 To 122 Exp = Exp & Texte End Select Next Isoler_Texte = Trim(Exp) End Function '---------------------------------------------------
Jacquouille
Bonsoir Denis Finalement, je comprends mieux cette approche. Supprimer tout, sauf les car des lettres minuscules et majuscules. Un grand merci et bonne soirée Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lghq1d$r4v$
ceci :
Dans un module standard : '--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, Exp As String, T As String Dim A As Long, C As String, Texte As String
T = Trim(Rg) X = Len(Trim(Rg))
For A = 3 To X Texte = Mid(T, A, 1) C = Asc(Texte) If IsNumeric(Mid(T, A, 1)) Then Exit For Select Case CLng(C) Case 65 To 90, 97 To 122 Exp = Exp & Texte End Select Next Isoler_Texte = Trim(Exp) End Function '---------------------------------------------------
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonsoir Denis
Finalement, je comprends mieux cette approche.
Supprimer tout, sauf les car des lettres minuscules et majuscules.
Un grand merci et bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
lghq1d$r4v$1@speranza.aioe.org...
ceci :
Dans un module standard :
'---------------------------------------------------
Function Isoler_Texte(Rg As Range)
Dim X As String, Exp As String, T As String
Dim A As Long, C As String, Texte As String
T = Trim(Rg)
X = Len(Trim(Rg))
For A = 3 To X
Texte = Mid(T, A, 1)
C = Asc(Texte)
If IsNumeric(Mid(T, A, 1)) Then Exit For
Select Case CLng(C)
Case 65 To 90, 97 To 122
Exp = Exp & Texte
End Select
Next
Isoler_Texte = Trim(Exp)
End Function
'---------------------------------------------------
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonsoir Denis Finalement, je comprends mieux cette approche. Supprimer tout, sauf les car des lettres minuscules et majuscules. Un grand merci et bonne soirée Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lghq1d$r4v$
ceci :
Dans un module standard : '--------------------------------------------------- Function Isoler_Texte(Rg As Range) Dim X As String, Exp As String, T As String Dim A As Long, C As String, Texte As String
T = Trim(Rg) X = Len(Trim(Rg))
For A = 3 To X Texte = Mid(T, A, 1) C = Asc(Texte) If IsNumeric(Mid(T, A, 1)) Then Exit For Select Case CLng(C) Case 65 To 90, 97 To 122 Exp = Exp & Texte End Select Next Isoler_Texte = Trim(Exp) End Function '---------------------------------------------------
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
