compteur de caracteres dans 2 textbox

Version imprimable

bonjour a vous tous et toutes
voila je suis debutant et en fouillant dans votre forum j'avais trouvé different code pour creer automatiquement avec les noms de 2 textbox le tbox 2 et le tbox9 de mon userform cree le nom d'une nouvelle feuille portant les 2 noms
jusque la pas de probleme
,mais le nom d'une feuille ou onglet ne doit pas avoir de signe particulier ou dans mon cas ne pas depasser 31 caracteres sinon erreur '1004' quand je clic bouton ok et la plantage
donc est-il possible d'avoir un message box qui pourrais compter les caracteres des DEUX textbox le 2 et le 9 pour ne pas depasser 31 caracteres c'est a dire que dans la procedure enregistrer il s'arrete et avise de L'erreur avant de planter ou une correction dans mon code pour eviter de depasser 31 carac avec avis
exemple du code trouvé et que j'applique
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ' Macro pour creer automatiquement nouvelle feuille avec le nom box2 et box9 Dim Ws As Worksheet Dim i As Integer i = 0 For Each Ws In Worksheets If Ws.Name = TextBox2 & " " & TextBox9.Value Then i = i + 1 Ws.Select 'mettre ce code avec=me.le test box voulu ActiveCell.Offset(0, 1) = Me.TextBox2 & " " & TextBox9 End If Next Ws If i = 0 Then Sheets("Modele").Copy Before:=Sheets(1) ' pour mettre majuscule du textbox nom feuille TextBox2 = Application.WorksheetFunction.Proper(Me.TextBox2.Text) ActiveSheet.Name = TextBox2 & " " & TextBox9.Value End If
merci de bien vouloir aider un novice

cimbra 55

Bonsoir,

Une première proposition,

Code:

1
2
3
4
5
IF Len(budget.TextBox1.Text)>31 then
 
msgbox"attention..." :exit sub
 
end if

Une deuxième propo

Code:

1
2
3
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox2) > 31 Then: MsgBox "attention...": TextBox2.SetFocus: Exit Sub
End Sub

03/04/2009, 01h06
cimbra55
Citation:
Envoyé par casefayere

Une deuxième propo

Code:

1 2 3 Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(TextBox2) > 31 Then: MsgBox "attention...": TextBox2.SetFocus: Exit Sub End Sub
eh oui c'est tres bien mais il avertit seulement a 33 je trouverai bien
par contre ce serais genial si tu pouvais m'aider pour que ce soit le compte de 2 textbox ensemble le 2 et le 9 puisque c'est l'ensemble des 2 qui nomme ma nouvelle feuille
merci de ton aide
cimbra

essaies ça,

Code:

1
2
3
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox2) + len(textbox9) > 31 Then: MsgBox "attention...": TextBox2.SetFocus: Exit Sub
End Sub

pas essayé, sans garantie

bonne nuit

03/04/2009, 01h16
cimbra55

effectivement la garantie n'est pas bonne ça ne fonctionne pas aucun message et debogage
03/04/2009, 01h36
casefayere
je viens de tester, normalement ça marche, marche à suivre

double cliques sur ta textbox9 (dans le vba) et prends l'evenement KeyPress
Code:

1 2 3 If Len(TextBox2) + Len(TextBox9) > 29 Then MsgBox "attention": Exit Sub End If
adaptes, moi ça a fonctionné

dis moi quoi

a +
03/04/2009, 02h17
cimbra55

merci beaucoup a toi
effectivement ça fonctionne tres bien pour code dans textbox9
mais je devrai adapter parce que dans l'ensemble des 2 il y a 4 espaces donc je dois diminuer le total des caracteres un peu plus bas
encore un gros merci pour ton aide
je n'y serais jamais arrive seul c'est la difference entre le débutant et le PRO
merci encore a toi CASEFAYERE
:yaisse2:

cimbra55