slach automatique

Paritec

XLDnaute Barbatruc

• 28 Septembre 2011

• #2

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🙂

Code:

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 28 Septembre 2011

• #3

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 :

VB:

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 😛 :

VB:

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

 

Dernière édition: 28 Septembre 2011

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 28 Septembre 2011

• #4

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Septembre 2011

• #5

Re : slach automatique

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Septembre 2011

• #6

Re : slach automatique

re, salut zatous 🙂,

GHISLAIN à dit:

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 .

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 28 Septembre 2011

• #7

Re : slach automatique

je vous fait parvenir un bout de fichier ,

merci de votre aide a tous !!!

 

Pièces jointes

• test1.zip

  8.3 KB · Affichages: 29
• test1.zip

  8.3 KB · Affichages: 32
• test1.zip

  8.3 KB · Affichages: 37

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 28 Septembre 2011

• #8

Re : slach automatique

re,

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

 

Pièces jointes

• Test1.xls

  36 KB · Affichages: 43
• Test1.xls

  36 KB · Affichages: 48
• Test1.xls

  36 KB · Affichages: 43

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Septembre 2011

• #9

Re : slach automatique

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

 

Pièces jointes

• ghislain.xls

  28 KB · Affichages: 37
• ghislain.xls

  28 KB · Affichages: 41
• ghislain.xls

  28 KB · Affichages: 40

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 28 Septembre 2011

• #10

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

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 28 Septembre 2011

• #11

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

 

Vote positif 0 Vote négatif