VBA : Traitements d'informations entrées dans une TextBox

Version imprimable

13/07/2016, 14h47
Roms95

VBA : Traitements d'informations entrées dans une TextBox

Bonjour,

je cherche a traiter des infos entrées dans une TextBox.
je m’explique, les donnés entrées dans ma TextBox sont de cette forme :

.Af

.T0001

.T0012

.A3

.Af

.T0012

.T0001

.T0003

.A3

De quelle manière serait-il possible de sortir les infos suivantes : 0012, 0001 et 0003 puis de les afficher dans une colonne d'une de mes pages excel tout en gérant les doublons. (je ne veux pas que 0001 et 0012 apparaissant deux fois dans la colonne).
J'ai eu quelques idées comme passer par un tableau de string, supprimer les caractères inutiles puis de comparer chaque données du tableau pour supprimer les doublons pour enfin afficher les données traitées dans la colonne mais je ne m'en sors pas avec la syntaxe.

Merci d'avance a tous ceux qui pourront m'aider à résoudre cela.
13/07/2016, 15h04
parmi

Bonjour,

Je ne sais pas exactement ce que tu veux faire de ces données, mais tu pourrais utiliser le filtre avancé avec la mention "sans doublons" que tu copies dans une colonne vide à côté.
Tu remplaces (Ctrl-H) alors les caractères ".T" par ""

C'est assez rapide, en principe et tu peux aisément avoir ton code avec l'enregistreur.
13/07/2016, 15h10
Roms95

Merci pour la rapidité :D.
Je n'avais pas pensé à l'enregistreur, Je vais tester cela.

Vive l'enregistreur !!:P:P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub MEF()
 
    Columns("J:J").Select
    Selection.Replace What:=".T", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".Af", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".A3", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Range("$J$1:$J$285").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Encore merci pour votre conseil !

et en évitant les "Select"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub MEF()
 
  With Columns("J:J")
    .Replace What:=".T", Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
    .Replace What:=".Af", Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
    .Replace What:=".A3", Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
    ActiveSheet.Range("$J$1:$J$285").RemoveDuplicates Columns:=1, Header:=xlNo
  End With
End Sub