Texte couper en 2 [Résolu]

culie3 141 Messages postés lundi 3 octobre 2005Date d'inscription 17 mai 2014 Dernière intervention - 27 juil. 2007 à 00:08 - Dernière réponse : culie3 141 Messages postés lundi 3 octobre 2005Date d'inscription 17 mai 2014 Dernière intervention
- 27 juil. 2007 à 18:35
Bonsoir, j'aurai besoin de votre aide car je souhaiterai couper une phrase en deux. Oui c'est pas tres precis voila un exemple:

Bonsoir moi c'est culie3

dans cette phrase il y a 22 caractères et je voudrai que la moitié du texte soit couper est soit mise dans un autre textbox mais que la moitié transferée ne soit plus apparante dans le premier textbox (phrase de depart text1 et moitié coupée text2). Mais je n'est aucune idée de comment proceder :( vous pouvez m'aider?

merci
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 27 juil. 2007 à 02:17
3
Merci
salut

Private Sub Form_Load()
    Text1.Text = "Bonsoir moi c'est
culie3"
End Sub

Private Sub Command1_Click()
    Call TextCut(Text1, Text2)
End Sub

Private Function TextCut(oTB1 As TextBox, oTb2 As TextBox) As Boolean
    Dim iPos As Integer, sStr As String
    sStr = oTB1.Text
    iPos = Len(sStr) \ 2
    If iPos Then
        oTB1.Text = Left$(sStr, iPos)
        oTb2.Text = Right$(sStr, Len(sStr) - iPos)
        TextCut = True
    Else
        TextCut = False
    End If
End Function

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Merci PCPT 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de PCPT
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 27 juil. 2007 à 00:45
0
Merci
Salut,

exemple simple :

Sub blabla()
    Dim MaChaine As String: MaChaine =  "Bonsoir moi c'est culie3"
    Dim LongueurChaineDiviseParDeux As Long

LongueurChaineDiviseParDeux = Len(MaChaine) \ 2
MsgBox Mid(MaChaine, LongueurChaineDiviseParDeux + 1, Len(MaChaine) - LongueurChaineDiviseParDeux)

End Sub

~ <small> Mortalino ~ Colorisation automatique </small>

@++

<hr width ="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>
Commenter la réponse de mortalino
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 27 juil. 2007 à 00:47
0
Merci
Ps : Bonsoir moi c'est culie3 ça fait 24 caractères (et pas 22) 

@++

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>
Commenter la réponse de mortalino
culie3 141 Messages postés lundi 3 octobre 2005Date d'inscription 17 mai 2014 Dernière intervention - 27 juil. 2007 à 01:07
0
Merci
je sais pas ou le mettre tu pourrais m'espliquer un peu mieu?

merci
Commenter la réponse de culie3
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 27 juil. 2007 à 01:10
0
Merci
Tu remplaces MaChaine par Text1.Text, et au lieu de MsgBox, c'est Text2.Text =

Fonction Len -> retourne le Nb de caractères de la chaine passée en paramètre
"  "             Mid -> Extraire du texte dans une chaine de caractères

@++

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>
Commenter la réponse de mortalino
culie3 141 Messages postés lundi 3 octobre 2005Date d'inscription 17 mai 2014 Dernière intervention - 27 juil. 2007 à 01:19
0
Merci
ça ne marche pas!

Private Sub Command1_Click()
  Dim MaChaine As String: Text1.Text = "Bonsoir moi c'est culie3"
    Dim LongueurChaineDiviseParDeux As Long

LongueurChaineDiviseParDeux = Len(MaChaine) \ 2
Text2.Text = Mid(MaChaine, LongueurChaineDiviseParDeux + 1, Len(MaChaine) - LongueurChaineDiviseParDeux)
End Sub

 ça me met bien bonsoir c'est culie3 dans text1 mais nada dans text2. J'ai fait une erreur non?
Commenter la réponse de culie3
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 27 juil. 2007 à 01:27
0
Merci
soit la phrase à couper est déjà dans le Text1 :
Private Sub Command1_Click()
<strike>  Dim MaChaine As String: Text1.Text = "Bonsoir moi c'est culie3"</strike>
    Dim LongueurChaineDiviseParDeux As Long

LongueurChaineDiviseParDeux = Len(Text1.Text) \ 2
Text2.Text = Mid(Text1.Text, LongueurChaineDiviseParDeux + 1, Len(Text1.Text) - LongueurChaineDiviseParDeux)
End Sub

sinon :
Private Sub Command1_Click()
    Dim MaChaine As String: MaChaine = "Bonsoir moi c'est culie3"
    Dim LongueurChaineDiviseParDeux As Long

Text1.Text = MaChaine
LongueurChaineDiviseParDeux = Len(MaChaine) \ 2
Text2.Text = Mid(MaChaine, LongueurChaineDiviseParDeux + 1, Len(MaChaine) - LongueurChaineDiviseParDeux)
End Sub
@++

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>
Commenter la réponse de mortalino
culie3 141 Messages postés lundi 3 octobre 2005Date d'inscription 17 mai 2014 Dernière intervention - 27 juil. 2007 à 18:35
0
Merci
Merci mortalino et pcpt!
Commenter la réponse de culie3

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.