Bonjour
J'ai dans une cellule 1 nom en majuscule et 1 prénom avec la 1ère lettre en
minuscule ex :
DURAND Patrick
je souhaite dans 2 textbox avec l'initialize du userform
dans le textbox1 avoir le nom en majuscule
dans le textbox2 avoir le prénom avec la 1ère lettre en minuscule
Comment écrire cela ?
Merci pour votre aide
Didier
Puisque t'es si bon en matricielles (et c'est vrai & sincère en plus), tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions différentes, mais portant sur la même fonction SOMMEPROD ? ;oD
Mais bon faut quand même respecter certaines contraintes (maj/min/espace..) AV
Slt AV,
Puisque t'es si bon en matricielles (et c'est vrai & sincère en plus),
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions différentes,
mais portant sur la même fonction SOMMEPROD ? ;oD
Cordialement
Rai
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news: O4UKSJR5EHA.2608@TK2MSFTNGP10.phx.gbl...
Puisque t'es si bon en matricielles (et c'est vrai & sincère en plus), tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions différentes, mais portant sur la même fonction SOMMEPROD ? ;oD
Mais bon faut quand même respecter certaines contraintes (maj/min/espace..) AV
Didier
Bonjour Rai ta procédure est vraiment formidable elle fonctionne à merveille avec Ucase et Lcase afin d'obliger l'utilisateur à saisir en Maj et min Merci et bravo pour toutes ces choses. Tu es un génie ! Didier
initial = ActiveCell.Offset(0, 8) For i = 1 To Len(initial) If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then TextBox2 = Right(initial, Len(initial) - i + 2) TextBox1 = Left(initial, i - 3) Exit For End If Next i
"Rai" a écrit dans le message de news: Odi%23O$ re-,
Un peut plus simple :
initial = [A1] For i = 1 To Len([A1]) If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then PNom = Right(initial, Len(initial) - i + 2) Nom = Left(initial, i - 3) Exit For End If Next i
Ca fonctionne pour les noms composés, prénoms composés avec une seule restriction : la 2nde lettre du prénom doit être en minuscule ...
Rai
"Rai" a écrit dans le message de news:
Bonjour,
1 solution :
initial = [A1] For i = 1 To Len(initial) If Mid(initial, i, 1) = UCase(Mid(initial, i, 1)) Then Nom = Nom + Mid(initial, i, 1) Else PNom = Right(initial, Len(initial) - i + 2) Nom = Left(Nom, i - 3) Exit For End If Next i
Bonne continuation,
Rai
Bonjour Rai
ta procédure est vraiment formidable elle fonctionne à merveille
avec Ucase et Lcase afin d'obliger l'utilisateur à saisir en Maj et min
Merci et bravo pour toutes ces choses.
Tu es un génie !
Didier
initial = ActiveCell.Offset(0, 8)
For i = 1 To Len(initial)
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
TextBox2 = Right(initial, Len(initial) - i + 2)
TextBox1 = Left(initial, i - 3)
Exit For
End If
Next i
"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de news:
Odi%23O$Q5EHA.1392@tk2msftngp13.phx.gbl...
re-,
Un peut plus simple :
initial = [A1]
For i = 1 To Len([A1])
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
PNom = Right(initial, Len(initial) - i + 2)
Nom = Left(initial, i - 3)
Exit For
End If
Next i
Ca fonctionne pour les noms composés, prénoms composés avec une seule
restriction : la 2nde lettre du prénom doit être en minuscule ...
Rai
"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de news:
elqXo7Q5EHA.1264@TK2MSFTNGP12.phx.gbl...
Bonjour,
1 solution :
initial = [A1]
For i = 1 To Len(initial)
If Mid(initial, i, 1) = UCase(Mid(initial, i, 1)) Then
Nom = Nom + Mid(initial, i, 1)
Else
PNom = Right(initial, Len(initial) - i + 2)
Nom = Left(Nom, i - 3)
Exit For
End If
Next i
Bonjour Rai ta procédure est vraiment formidable elle fonctionne à merveille avec Ucase et Lcase afin d'obliger l'utilisateur à saisir en Maj et min Merci et bravo pour toutes ces choses. Tu es un génie ! Didier
initial = ActiveCell.Offset(0, 8) For i = 1 To Len(initial) If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then TextBox2 = Right(initial, Len(initial) - i + 2) TextBox1 = Left(initial, i - 3) Exit For End If Next i
"Rai" a écrit dans le message de news: Odi%23O$ re-,
Un peut plus simple :
initial = [A1] For i = 1 To Len([A1]) If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then PNom = Right(initial, Len(initial) - i + 2) Nom = Left(initial, i - 3) Exit For End If Next i
Ca fonctionne pour les noms composés, prénoms composés avec une seule restriction : la 2nde lettre du prénom doit être en minuscule ...
Rai
"Rai" a écrit dans le message de news:
Bonjour,
1 solution :
initial = [A1] For i = 1 To Len(initial) If Mid(initial, i, 1) = UCase(Mid(initial, i, 1)) Then Nom = Nom + Mid(initial, i, 1) Else PNom = Right(initial, Len(initial) - i + 2) Nom = Left(Nom, i - 3) Exit For End If Next i
Bonne continuation,
Rai
Didier
Merci AV Je conserve celle-ci aussi Bonne journée Didier
Mais bon faut quand même respecter certaines contraintes (maj/min/espace..) AV
AV
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions différentes,
Je crois deviner de qui il s'agit.... Je me suis définitivement privé du plaisir de voir afficher ses "questions" en faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes de discussion > ...lorsque la ligne De contient........
;-) AV
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions
différentes,
Je crois deviner de qui il s'agit....
Je me suis définitivement privé du plaisir de voir afficher ses "questions" en
faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes
de discussion > ...lorsque la ligne De contient........
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions différentes,
Je crois deviner de qui il s'agit.... Je me suis définitivement privé du plaisir de voir afficher ses "questions" en faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes de discussion > ...lorsque la ligne De contient........
;-) AV
JièL Goubert
Bonjoir(c) AV
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/ *** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES *** http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
Le 18/12/2004 16:19 vous avez écrit ceci :
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions
différentes,
Je crois deviner de qui il s'agit.... Je me suis définitivement privé du plaisir de voir afficher ses "questions" en faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes de discussion > ...lorsque la ligne De contient........
;-) AV
Bonjoir(c) AV
plus rapide avec OE : clic sur un message, menu Message, Bloquer
l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
Le 18/12/2004 16:19 vous avez écrit ceci :
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions
différentes,
Je crois deviner de qui il s'agit....
Je me suis définitivement privé du plaisir de voir afficher ses "questions" en
faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes
de discussion > ...lorsque la ligne De contient........
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/ *** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES *** http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
Le 18/12/2004 16:19 vous avez écrit ceci :
tu veux pas répondre au gars qui nous bassine avec sa question en 5-6 versions
différentes,
Je crois deviner de qui il s'agit.... Je me suis définitivement privé du plaisir de voir afficher ses "questions" en faisant à partir d'OE ...Outils > Règles de messages > News > Règles des groupes de discussion > ...lorsque la ligne De contient........
;-) AV
AV
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun prix ! ;-) Tant que je te tiens... Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie d'une chaîne Me tromp'je ?
AV
plus rapide avec OE : clic sur un message, menu Message, Bloquer
l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun
prix !
;-)
Tant que je te tiens...
Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie
d'une chaîne
Me tromp'je ?
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun prix ! ;-) Tant que je te tiens... Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie d'une chaîne Me tromp'je ?
AV
JièL Goubert
Bonjoir(c) AV
Le 18/12/2004 17:30 vous avez écrit ceci :
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun prix ! ;-)
;-))))) nan, tu continueras de recevoir sa prose sans pb... Dans Outils, Règles de message, Expéditeurs bloqués, tu as 2 cas à cocher pour savoir ce que tu acceptes... ou refuses.
Tant que je te tiens... Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie d'une chaîne Me tromp'je ?
Tu ne te tromp'je pas, pas de différence entre maj/min, et plus grave, tout ce que tu met comme texte dans les règles est considéré comme partie d'un mot, pas comme un mot seul... exemple : "for" dans une régle sur l'objet, s'appliquera a "formation", "informatique", "forte", "uniforme" etc etc. La solution est de modifier directement dans la BdR afin d'ajouter des espaces de part et d'autres, ce que fait la règle antispam de la FAQOE http://www.faqoe.com/index.php?bas=/antispam.htm
PS : y'a aussi un gestionnaire des expéditeurs bloqués dans la partie téléchargement http://www.faqoe.com/index.php?bas=/telechargement.htm des fois que tu n'ai plus rien a lire sur le forum ;-)))))))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/ *** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES *** http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
Bonjoir(c) AV
Le 18/12/2004 17:30 vous avez écrit ceci :
plus rapide avec OE : clic sur un message, menu Message, Bloquer
l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun
prix !
;-)
;-))))) nan, tu continueras de recevoir sa prose sans pb...
Dans Outils, Règles de message, Expéditeurs bloqués, tu as 2 cas à cocher
pour savoir ce que tu acceptes... ou refuses.
Tant que je te tiens...
Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie
d'une chaîne
Me tromp'je ?
Tu ne te tromp'je pas, pas de différence entre maj/min, et plus grave,
tout ce que tu met comme texte dans les règles est considéré comme partie
d'un mot, pas comme un mot seul...
exemple : "for" dans une régle sur l'objet, s'appliquera a "formation",
"informatique", "forte", "uniforme" etc etc. La solution est de modifier
directement dans la BdR afin d'ajouter des espaces de part et d'autres, ce
que fait la règle antispam de la FAQOE
http://www.faqoe.com/index.php?bas=/antispam.htm
PS : y'a aussi un gestionnaire des expéditeurs bloqués dans la partie
téléchargement http://www.faqoe.com/index.php?bas=/telechargement.htm des
fois que tu n'ai plus rien a lire sur le forum ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
plus rapide avec OE : clic sur un message, menu Message, Bloquer l'expéditeur !!! efficace à 100% et même plus des fois ;-)))))
Ben ça va me priver de son courrier dans ma bal et ça, je ne le voudrais à aucun prix ! ;-)
;-))))) nan, tu continueras de recevoir sa prose sans pb... Dans Outils, Règles de message, Expéditeurs bloqués, tu as 2 cas à cocher pour savoir ce que tu acceptes... ou refuses.
Tant que je te tiens... Me semble que OE se fiche pas mal de la casse et/ou de l'intégralité ou partie d'une chaîne Me tromp'je ?
Tu ne te tromp'je pas, pas de différence entre maj/min, et plus grave, tout ce que tu met comme texte dans les règles est considéré comme partie d'un mot, pas comme un mot seul... exemple : "for" dans une régle sur l'objet, s'appliquera a "formation", "informatique", "forte", "uniforme" etc etc. La solution est de modifier directement dans la BdR afin d'ajouter des espaces de part et d'autres, ce que fait la règle antispam de la FAQOE http://www.faqoe.com/index.php?bas=/antispam.htm
PS : y'a aussi un gestionnaire des expéditeurs bloqués dans la partie téléchargement http://www.faqoe.com/index.php?bas=/telechargement.htm des fois que tu n'ai plus rien a lire sur le forum ;-)))))))
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/ *** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES *** http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/
