Discussion :

[cimbra55]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,

Une première proposition,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Une deuxième propo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cimbra55]

Une deuxième propo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

essaies ça,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cimbra55]

effectivement la garantie n'est pas bonne ça ne fonctionne pas aucun message et debogage

[casefayere]

je viens de tester, normalement ça marche, marche à suivre

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 +

[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


cimbra55