slach automatique

[GHISLAIN]

bonjour a tous ,

je suis a la recherche d'une macro qui me separe automatiquement par un slach tous les deux caracteres

exemple: au depart j ai dans un textbox : AdEgTiPm
je souhaiterais que ça devienne Ad/Eg/Ti/Pm automatiquement
les caracteres ne seront pas figés et pourront se trouver dans un ordre autre que celui proposé ainsi que d autre caracteres seront ou pourront etre ajoutés

merci a tous de votre aide

amicalement

ghislain

 

[Paritec]

Re : slach automatique

bonjour ghislain le forum
si tu saisis dans le textbox voilà autrement si tu as déjà une valeur là il faut faire autrement
redis nous
a+
papou🙂

sub textbox1_change()
if len textbox1=2 then textbox1=textbox1 & "/"
if len textbox1=5 then textbox1=textbox1 & "/"
if len textbox1=8 then textbox1=textbox1 & "/"
if len textbox1=11 then textbox1=textbox1 & "/"
end sub

 

[Softmama]

Re : slach automatique

bonjour,

si tu veux mettre les / au cours de la frappe, tous les 2 caractères entrés (hors "/"), tu peux tester ceci :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1 <> "" Then
  If Len(Replace(TextBox1, "/", "")) / 2 = Len(Replace(TextBox1, "/", "")) \ 2 Then TextBox1 = TextBox1 & "/"
End If
End Sub

EDIT ... ou plus simplement 😛 :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If len(TextBox1 ) mod 3 = 2 Then TextBox1 = TextBox1 & "/"
End Sub

 

[GHISLAIN]

Re : slach automatique

bonjour Paritec,

merci de ta disponibilité et rapidité de reponse

je ne saisie pas directement dans le textox , je recupere dans le textbox deux lettres definies lorsque je clique sur un checkbox et j ai 6 checkbox a la suite qui peuvent etre cochés .

merci de ton aide

amicalement

ghislain

 

[kjin]

Re : slach automatique

Bonjour,

x = "AdEgTiPmD"
For i = 1 To Len(x) Step 2
    y = y & Mid(x, i, 2) & "/"
Next
y = Left(y, Len(y) - 1)

 

[kjin]

Re : slach automatique

re, salut zatous 🙂,

je ne saisie pas directement dans le textox , je recupere dans le textbox deux lettres definies lorsque je clique sur un checkbox et j ai 6 checkbox a la suite qui peuvent etre cochés .

Et l'ordre, on s'en contre-fiche ?!
A+
kjin

 

[GHISLAIN]

Re : slach automatique

je vous fait parvenir un bout de fichier ,

merci de votre aide a tous !!!

 

[Softmama]

Re : slach automatique

re,

vois fichier joint... c'est clairement perfectible.

 

[kjin]

Re : slach automatique

Re,
Eh bé je n'aurai pas la réponse
A+
kjin

 

[GHISLAIN]

Re : slach automatique

re,
Genial Softmama reglé en 2 secondes lol

merci a tous de votre collaboration et des solution apportées que je garde sous le coude
Amicalement

Ghislain

 

[GHISLAIN]

Re : slach automatique

re kjin,
dsl nos reponse ont du se croiser et ta solution meme si elle n est pas traitée de la meme façon que Softmama dans le code , elle correspond egalement a mes attentes

merci encore de ton aide

amicalement

ghislain