problème UserForm

[Goldorak]

Bonjour à tous,
Je bloque depuis plusieurs jour sur ce code appartenant à un UseForm,
Je précise que je suis relativement débutant,
Merci vous

Option Explicit

Private Sub Contact_Change()
Contact.Value = UCase(Contact.Value)
End Sub
Private Sub Societe_Change()
Societe.Value = Application.WorksheetFunction.Proper(Societe.Value)
End Sub
Private Sub Rue_Change()
Rue.Text = Application.WorksheetFunction.Proper(RueText)
End Sub
Private Sub CPVille_Change()
CP.Value = Format(CP.Value, "00"" ""000")
End Sub
Private Sub Mail_AfterUpdate()
Mail = UCase(Mail)
End Sub
Private Sub Tel_AfterUpdate()
Tel.Value = Format(Tel.Value, "00"" ""00"" ""00"" ""00"" ""00")
End Sub

Private Sub CommandButton1_Click() ' VALIDER
Dim ligne As Integer
Sheets("CLIENTS").Select
ligne = Range("C200").End(xlUp).Row + 1
.Range("C" & ligne).Value = Contact.Value
.Range("D" & ligne).Value = Societe.Value
.Range("E" & ligne).Value = Rue.Value
.Range("F" & ligne).Value = CPVille.Value
.Range("G" & ligne).Value = Mail.Value
.Range("H" & ligne).Value = Tel.Value

Unload Me
Range("C10:H" & Range("C65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("C10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1").Select
UserForm.Show

End Sub

Private Sub CommandButton2_Click()
Unload Me
Sheets("CLIENTS").Select
End Sub

 

[CHALET53]

Re : problème UserForm

Bonjour et Bienvenue,

Si tu joignais ton fichier avec le userform en question, quelqu'un pourra plus facilement te dépanner

a+

 

[Goldorak]

Re : problème UserForm

Bonsoir et merci pour ta réponse,
Mon fichier alléger au minimum est légèrement trop lourd!
Je l'ai pourtant réduit à l'UserForm qui me pose problème,
Une idée...?

Merci

 

[Calvus]

Re : problème UserForm

Bonsoir,

Si vraiment tu ne peux charger ton fichier, tu peux le faire sur ci-joint. Mais le fichier ne restera pas éternellement.
A+

 

[Staple1600]

Re : problème UserForm

Bonsoir à tous [edit=bonsoir calvus[/edit]

une idée?

Oui plusieurs...

Zippes ton fichier Excel avant de le joindre

ou

Exportes ton projet VBA (puis zippes tous les fichiers obtenus en un seul *.zip, et joins ce zip)

ou pour finir:
Supprimes images, couleurs, formats
Ne gardes qu'une feuille + (code vba: module + userform)

(tu peux mixer ces 3 conseils pour alléger ton fichier 😉 )

 

[Goldorak]

Re : problème UserForm

Je crois avoir trouvé une solution pour uploader mon fichier
Merci

 

[Staple1600]

Re : problème UserForm

Re,

Sauf erreur de ma part, tes contrôles ne sont pas nommés (alors que le code VBA, ils le sont)

TextBox6 et dans le code VBA: Contact
idem .. pour les autres controles

du coup ca marche tout de suite moins bien 😉

 

[Gelinotte]

Re : problème UserForm

Bonsoir

Ceci devrait fonctionner ...

Option Explicit
 
Private Sub Contact_Change()
Contact.Value = UCase(Contact.Value)
 End Sub
 Private Sub Societe_Change()
 Societe.Value = Application.WorksheetFunction.Proper(Societe.Value)
 End Sub
 Private Sub Rue_Change()
 Rue.Text = Application.WorksheetFunction.Proper(Rue.Value)
 End Sub
 Private Sub CPVille_Change()
 CPVille.Value = Format(CPVille.Value, "00"" ""000")
 End Sub
 Private Sub Mail_AfterUpdate()
 Mail = LCase(Mail)
 End Sub
 Private Sub Tel_AfterUpdate()
 Tel.Value = Format(Tel.Value, "00"" ""00"" ""00"" ""00"" ""00")
 End Sub
 
Private Sub CommandButton1_Click() ' VALIDER
 Dim ligne As Integer
Sheets("CLIENTS").Select
 ligne = Range("C200").End(xlUp).Row + 1
 Range("C" & ligne).Value = Contact.Value
 Range("D" & ligne).Value = Societe.Value
 Range("E" & ligne).Value = Rue.Value
 Range("F" & ligne).Value = CPVille.Value
 Range("G" & ligne).Value = Mail.Value
 Range("H" & ligne).Value = Tel.Value
 
Unload Me
 Range("C10:H" & Range("C65536").End(xlUp).Row).Select
 Selection.Sort Key1:=Range("C10"), Order1:=xlAscending, Header:=xlGuess, _
 OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
 DataOption1:=xlSortNormal

 Range("A1").Select
 UserForm.Show
 
End Sub
 
Private Sub CommandButton2_Click()
 Unload Me
 Sheets("CLIENTS").Select
 End Sub

G

 

[Staple1600]

Re : problème UserForm

Bonsoir Gelinotte

Chez toi, les contrôles de l'userform sont nommés ???

Pas chez moi (avec le fichier joint par le demandeur)

 

[Gelinotte]

Re : problème UserForm

Bonsoir,

Non, je n'ai pas utilisé son fichier, il semble corrompu, je ne peux pas l'ouvrir.

J'ai créé un bout de fichier pour valider le fonctionnement.


G

 

[Goldorak]

Re : problème UserForm

MILLE MERCI!!!!
Effectivement je n'avais pas nommer les TexBox partout, j'avais rajouter des "." devant Range et pour finir mon " UserForm.Show " à la fin devait être " NOUVEAU_CLIENT.Show
Visiblement ma route s'annonce longue sur mon projet!
Mille merci pour votre perspicacité et votre rapidité à tous,
Alex

 

[Gelinotte]

Re : problème UserForm

Bonsoir,

😎

G