Par curiosité (et par flemme pour pas avoir à les recopier à la main :) ),
je cherche depuis tout à l'heure dans l'aide si il existe une formule
(enfin, ce sera surement plutôt une combinaison de formules) qui me
permettrait de renvoyer en B1 les lettres minuscules que j'ai en A1, en
sachant que en A1, j'ai toujours une combinaison dans ce style :
En fait, j'ai toujours des majuscules au début, puis une virgule, et enfin
des minuscules.
Il existe pas quelque chose qui permette de renvoyer tout ce qui se trouve
aprés la virgule (les minuscules)?
Merci!
--
dam-mail2004@ifrance.com
/Enlevez l'année pour répondre.../
Pour les minuscules : =STXT(A1;TROUVE(",";A1)+2;9^9)
AV
Pierre CFI [mvp]
bonjour bon, j'avais pas vu ton histoire de virgule on va donc reformuler sortir les minuscules de Ajjjjj GGGppppp Hll et là Function SnifMaj(x) Dim i As Integer If x = "" Then SnifMaj = "" Exit Function End If For i = 1 To Len(x)
Select Case Asc(Mid(x, i, 1)) Case 65 To 90 Debug.Print Mid(x, i) SnifMaj = Mid(x, i + 1) Case Else
End Select Next End Function
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "AV" a écrit dans le message de news:
Pour les minuscules : =STXT(A1;TROUVE(",";A1)+2;9^9)
AV
bonjour
bon, j'avais pas vu ton histoire de virgule
on va donc reformuler
sortir les minuscules de
Ajjjjj
GGGppppp
Hll
et là
Function SnifMaj(x)
Dim i As Integer
If x = "" Then
SnifMaj = ""
Exit Function
End If
For i = 1 To Len(x)
Select Case Asc(Mid(x, i, 1))
Case 65 To 90
Debug.Print Mid(x, i)
SnifMaj = Mid(x, i + 1)
Case Else
End Select
Next
End Function
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:efHQBPG3EHA.2016@TK2MSFTNGP15.phx.gbl...
Pour les minuscules :
=STXT(A1;TROUVE(",";A1)+2;9^9)
bonjour bon, j'avais pas vu ton histoire de virgule on va donc reformuler sortir les minuscules de Ajjjjj GGGppppp Hll et là Function SnifMaj(x) Dim i As Integer If x = "" Then SnifMaj = "" Exit Function End If For i = 1 To Len(x)
Select Case Asc(Mid(x, i, 1)) Case 65 To 90 Debug.Print Mid(x, i) SnifMaj = Mid(x, i + 1) Case Else
End Select Next End Function
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "AV" a écrit dans le message de news:
Pour les minuscules : =STXT(A1;TROUVE(",";A1)+2;9^9)
AV
géjoun.
De ses petits doigts, AV [] a tapoté:
|| =GAUCHE(A1;TROUVE(",";A1)-1)
Salut,
Ca, en fouinant dans les archives, j'étais arrivé à le faire, mais ça correspondait pas à ce que je voulais faire... :-/
-- Géjoun.
/Enlevez l'année pour répondre.../
De ses petits doigts, AV [alainPFFFvallon@wanadoo.fr] a tapoté:
|| =GAUCHE(A1;TROUVE(",";A1)-1)
Salut,
Ca, en fouinant dans les archives, j'étais arrivé à le faire, mais ça
correspondait pas à ce que je voulais faire... :-/
--
Géjoun.
dam-mail2004@ifrance.com
/Enlevez l'année pour répondre.../
Ca, en fouinant dans les archives, j'étais arrivé à le faire, mais ça correspondait pas à ce que je voulais faire... :-/
-- Géjoun.
/Enlevez l'année pour répondre.../
géjoun.
De ses petits doigts, AV [] a tapoté:
|| Pour les minuscules : || =STXT(A1;TROUVE(",";A1)+2;9^9) || || AV
Ca, par contre, c'est bien ce que je cherchais à faire :-) . Par contre, comment se fait-il que lorsque je tape 'trouve' dans l'aide, ça ne me trouve pas cette fonction justement? Et à quoi correspond la 3ème condition de STXT? c'est juste pour faire renvoyer '9 puissance 9' caractères (vu que j'ai pas précisé la longueur maxi des mots que j'avais)?
Merci!
-- Géjoun.
/Enlevez l'année pour répondre.../
De ses petits doigts, AV [alainPFFFvallon@wanadoo.fr] a tapoté:
|| Pour les minuscules :
|| =STXT(A1;TROUVE(",";A1)+2;9^9)
||
|| AV
Ca, par contre, c'est bien ce que je cherchais à faire :-) .
Par contre, comment se fait-il que lorsque je tape 'trouve' dans l'aide, ça
ne me trouve pas cette fonction justement?
Et à quoi correspond la 3ème condition de STXT? c'est juste pour faire
renvoyer '9 puissance 9' caractères (vu que j'ai pas précisé la longueur
maxi des mots que j'avais)?
Merci!
--
Géjoun.
dam-mail2004@ifrance.com
/Enlevez l'année pour répondre.../
|| Pour les minuscules : || =STXT(A1;TROUVE(",";A1)+2;9^9) || || AV
Ca, par contre, c'est bien ce que je cherchais à faire :-) . Par contre, comment se fait-il que lorsque je tape 'trouve' dans l'aide, ça ne me trouve pas cette fonction justement? Et à quoi correspond la 3ème condition de STXT? c'est juste pour faire renvoyer '9 puissance 9' caractères (vu que j'ai pas précisé la longueur maxi des mots que j'avais)?
Merci!
-- Géjoun.
/Enlevez l'année pour répondre.../
géjoun.
De ses petits doigts, Pierre CFI [mvp] [] a tapoté:
|| bonjour || bon, j'avais pas vu ton histoire de virgule || on va donc reformuler || sortir les minuscules de || Ajjjjj || GGGppppp || Hll || et là || Function SnifMaj(x) || Dim i As Integer || If x = "" Then || SnifMaj = "" || Exit Function || End If || For i = 1 To Len(x) || || Select Case Asc(Mid(x, i, 1)) || Case 65 To 90 || Debug.Print Mid(x, i) || SnifMaj = Mid(x, i + 1) || Case Else || || End Select || Next || End Function
Ok, ça fonctionne aussi bien que la formule d'AV, mais vu que je suis loin d'être un as en vba, je vais commencer par comprendre la formule d'AV avant d'essayer de 'tricoter' en vba. Mais je la garde sous le coude! :)
Merci!
-- Géjoun.
/Enlevez l'année pour répondre.../
De ses petits doigts, Pierre CFI [mvp] [XXX_pierresalaun@aol.com] a tapoté:
|| bonjour
|| bon, j'avais pas vu ton histoire de virgule
|| on va donc reformuler
|| sortir les minuscules de
|| Ajjjjj
|| GGGppppp
|| Hll
|| et là
|| Function SnifMaj(x)
|| Dim i As Integer
|| If x = "" Then
|| SnifMaj = ""
|| Exit Function
|| End If
|| For i = 1 To Len(x)
||
|| Select Case Asc(Mid(x, i, 1))
|| Case 65 To 90
|| Debug.Print Mid(x, i)
|| SnifMaj = Mid(x, i + 1)
|| Case Else
||
|| End Select
|| Next
|| End Function
Ok, ça fonctionne aussi bien que la formule d'AV, mais vu que je suis loin
d'être un as en vba, je vais commencer par comprendre la formule d'AV avant
d'essayer de 'tricoter' en vba.
Mais je la garde sous le coude! :)
Merci!
--
Géjoun.
dam-mail2004@ifrance.com
/Enlevez l'année pour répondre.../
De ses petits doigts, Pierre CFI [mvp] [] a tapoté:
|| bonjour || bon, j'avais pas vu ton histoire de virgule || on va donc reformuler || sortir les minuscules de || Ajjjjj || GGGppppp || Hll || et là || Function SnifMaj(x) || Dim i As Integer || If x = "" Then || SnifMaj = "" || Exit Function || End If || For i = 1 To Len(x) || || Select Case Asc(Mid(x, i, 1)) || Case 65 To 90 || Debug.Print Mid(x, i) || SnifMaj = Mid(x, i + 1) || Case Else || || End Select || Next || End Function
Ok, ça fonctionne aussi bien que la formule d'AV, mais vu que je suis loin d'être un as en vba, je vais commencer par comprendre la formule d'AV avant d'essayer de 'tricoter' en vba. Mais je la garde sous le coude! :)
Merci!
-- Géjoun.
/Enlevez l'année pour répondre.../
AV
Par contre, comment se fait-il que lorsque je tape 'trouve' dans l'aide, ça ne me trouve pas cette fonction justement?
Clique sur le bouton Fx >> regarde la liste des fonctions (Texte)
Et à quoi correspond la 3ème condition de STXT? Voir remarque précédente
Avec 9^9 on est sur que l'on couvre(dépasse) très largement les possibilités(1024) de longueur de chaînes à l'intérieur d'une cellule
AV
Par contre, comment se fait-il que lorsque je tape 'trouve' dans l'aide, ça
ne me trouve pas cette fonction justement?
Clique sur le bouton Fx >> regarde la liste des fonctions (Texte)
Et à quoi correspond la 3ème condition de STXT?
Voir remarque précédente
Avec 9^9 on est sur que l'on couvre(dépasse) très largement les
possibilités(1024) de longueur de chaînes à l'intérieur d'une cellule