Supprimer les 55 premiers caractères d'une ligne MuliLine texbox
Résolu/Fermé
henoireil
-
Modifié par henoireil le 16/07/2015 à 16:51
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 16 juil. 2015 à 19:33
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 16 juil. 2015 à 19:33
A voir également:
- Supprimer les 55 premiers caractères d'une ligne MuliLine texbox
- Supprimer compte instagram - Guide
- Supprimer une page word - Guide
- Supprimer compte facebook - Guide
- Apparaitre hors ligne whatsapp - Guide
- Supprimer les cookies - Guide
3 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
16 juil. 2015 à 18:14
16 juil. 2015 à 18:14
Bonjour,
Mettre un TexBox multiligne dans un UserForm avec ce code:
Mettre un TexBox multiligne dans un UserForm avec ce code:
Option Explicit
Dim chaine As String
Private Sub userForm_Initialize()
With TextBox1
'Autorise les mutilignes dans le TextBox
'Attention: cette propriété est toujours à False par défaut
.MultiLine = True
'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne.
.EnterKeyBehavior = True
End With
End Sub
Private Sub CommandButton1_Click()
Dim DecoupeLigne() As String
'rempli le textbox avec 3 lignes
TextBox1 = "http://image.noelshack.com/fichiers/2015/29/1437052593-1.png " & vbCrLf _
& "http://image.noelshack.com/fichiers/2015/29/1437052593-3.gif " & vbCrLf _
& "http://image.noelshack.com/fichiers/2015/29/1437052593-349.png "
DecoupeLigne = Split(TextBox1, vbNewLine, , vbTextCompare)
chaine = DecoupeLigne(UBound(DecoupeLigne))
extractionMots
chaine = DecoupeLigne(UBound(DecoupeLigne) - 1)
extractionMots
chaine = DecoupeLigne(LBound(DecoupeLigne))
extractionMots
End Sub
'Extraire les données séparées par un tiret dans une chaine de caractères
Sub extractionMots()
Dim Tableau() As String
Dim i As Integer
'découpe la chaine en fonction des tirets "-"
'le résultat de la fonction Split est stocké dans un tableau
Tableau = Split(chaine, "-")
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
Debug.Print Tableau(i)
Next i
MsgBox Tableau(1)
End Sub
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
16 juil. 2015 à 19:33
16 juil. 2015 à 19:33
Si tu veux mettre le résultat des MsgBox dans ta TextBox, il faut utiliser des variables comme ceci:
Option Explicit
Dim chaine As String
Dim result, ligne1, ligne2, ligne3 As String
Private Sub userForm_Initialize()
With TextBox1
'Autorise les mutilignes dans le TextBox
'Attention: cette propriété est toujours à False par défaut
.MultiLine = True
'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne.
.EnterKeyBehavior = True
End With
End Sub
Private Sub CommandButton1_Click()
Dim DecoupeLigne() As String
'rempli le textbox avec 3 lignes
TextBox1 = "http://image.noelshack.com/fichiers/2015/29/1437052593-1.png " & vbCrLf _
& "http://image.noelshack.com/fichiers/2015/29/1437052593-3.gif " & vbCrLf _
& "http://image.noelshack.com/fichiers/2015/29/1437052593-349.png "
DecoupeLigne = Split(TextBox1, vbNewLine, , vbTextCompare)
chaine = DecoupeLigne(UBound(DecoupeLigne))
extractionMots
ligne3 = result
chaine = DecoupeLigne(UBound(DecoupeLigne) - 1)
extractionMots
ligne2 = result
chaine = DecoupeLigne(LBound(DecoupeLigne))
extractionMots
ligne1 = result
TextBox1 = ""
TextBox1 = ligne1 & vbCrLf _
& ligne2 & vbCrLf _
& ligne3
End Sub
'Extraire les données séparées par un tiret dans une chaine de caractères
Sub extractionMots()
Dim Tableau() As String
Dim i As Integer
'découpe la chaine en fonction des tirets "-"
'le résultat de la fonction Split est stocké dans un tableau
Tableau = Split(chaine, "-")
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
Debug.Print Tableau(i)
Next i
result = Tableau(1)
End Sub