Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel erreur de code

erreur de code

6 réponses
Avatar
croky23
Bonjour le forum
J'ai un soucis avec mon code
au premier essai (saisie)cela ne fonctionne pas si je recommence cela
fonctionne si je ferme et recommence cela bug tjrs au premier essai
Comment faire pour mettre au format telephone mon texbox?
merci de votre aide
http://cjoint.com/?kzqAFZZhy4
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
RGI
Bonjour

Comme ceci
Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub

salutations

RGI

Bonjour le forum
J'ai un soucis avec mon code
au premier essai (saisie)cela ne fonctionne pas si je recommence cela
fonctionne si je ferme et recommence cela bug tjrs au premier essai
Comment faire pour mettre au format telephone mon texbox?
merci de votre aide
http://cjoint.com/?kzqAFZZhy4



Avatar
croky23
Merci pour le format telephone
mais pour le reste j'ai tjrs un probleme
ci dessus les codes

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
[A3:A1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheets("Saisie").[c3], Unique:=True
[C3:C1000].Sort Key1:=Range("C3")
Application.EnableEvents = True
End If
End Sub

Private Sub B_ok_Click()
If Me.Nom = "" Then
MsgBox "saisir un nom!"
Me.Nom.SetFocus
Exit Sub
End If
If Me.Objet = "" Then
MsgBox "saisir un nom d'objet!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Panne = "" Then
MsgBox "saisir la panne!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Telephone = "" Then
MsgBox "saisir une info!"
Me.ChoixClient.SetFocus
Exit Sub
End If
'-- transfert
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset.Value = Application.Proper(Me!Nom)
ActiveCell.Offset(0, 0) = Me.ChoixClient
ActiveCell.Offset(0, 1) = Me.Objet
ActiveCell.Offset(0, 3) = Me.Panne
ActiveCell.Offset(0, 4) = CVDate(Me.DateReception)
ActiveCell.Offset(0, 5) = Me.Telephone

Sheets("Fiche").Range("D1") = DateReception.Text
Sheets("Fiche").Range("B3") = Objet.Text
Sheets("Fiche").Range("B5") = Panne.Text
End Sub


Private Sub ChoixClient_Change()
Me.Nom = Me.ChoixClient
End Sub

Private Sub F_FERMER_Click()
Unload Me
End Sub

Private Sub Imprimer_Click()
Sheets("fiche").Select
Range("A1").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Private Sub Nom_Change()

Sheets("Fiche").Range("B1") = Me.Nom.Text
End Sub


Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub


Private Sub UserForm_Initialize()
'Date du jour au format Jour/Mois'Année
'TextBox1.Text = Format(Now, "dd/ mm/ yy")

Me.DateReception = Date


Sheets("Fiche").Range("B1") = ""
Sheets("Fiche").Range("D1") = ""
Sheets("Fiche").Range("B3") = ""
Sheets("Fiche").Range("B5") = ""
End Sub


Bonjour

Comme ceci
Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub

salutations

RGI

Bonjour le forum
J'ai un soucis avec mon code
au premier essai (saisie)cela ne fonctionne pas si je recommence cela
fonctionne si je ferme et recommence cela bug tjrs au premier essai
Comment faire pour mettre au format telephone mon texbox?
merci de votre aide
http://cjoint.com/?kzqAFZZhy4






Avatar
RGI
mettre en remarque

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
' [A3:A1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheets("Saisie").[c3], Unique:=True
' [C3:C1000].Sort Key1:=Range("c3")
Application.EnableEvents = True
End If
End Sub

salutations

RGI



Merci pour le format telephone
mais pour le reste j'ai tjrs un probleme
ci dessus les codes

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
[A3:A1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheets("Saisie").[c3], Unique:=True
[C3:C1000].Sort Key1:=Range("C3")
Application.EnableEvents = True
End If
End Sub

Private Sub B_ok_Click()
If Me.Nom = "" Then
MsgBox "saisir un nom!"
Me.Nom.SetFocus
Exit Sub
End If
If Me.Objet = "" Then
MsgBox "saisir un nom d'objet!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Panne = "" Then
MsgBox "saisir la panne!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Telephone = "" Then
MsgBox "saisir une info!"
Me.ChoixClient.SetFocus
Exit Sub
End If
'-- transfert
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset.Value = Application.Proper(Me!Nom)
ActiveCell.Offset(0, 0) = Me.ChoixClient
ActiveCell.Offset(0, 1) = Me.Objet
ActiveCell.Offset(0, 3) = Me.Panne
ActiveCell.Offset(0, 4) = CVDate(Me.DateReception)
ActiveCell.Offset(0, 5) = Me.Telephone

Sheets("Fiche").Range("D1") = DateReception.Text
Sheets("Fiche").Range("B3") = Objet.Text
Sheets("Fiche").Range("B5") = Panne.Text
End Sub


Private Sub ChoixClient_Change()
Me.Nom = Me.ChoixClient
End Sub

Private Sub F_FERMER_Click()
Unload Me
End Sub

Private Sub Imprimer_Click()
Sheets("fiche").Select
Range("A1").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Private Sub Nom_Change()

Sheets("Fiche").Range("B1") = Me.Nom.Text
End Sub


Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub


Private Sub UserForm_Initialize()
'Date du jour au format Jour/Mois'Année
'TextBox1.Text = Format(Now, "dd/ mm/ yy")

Me.DateReception = Date


Sheets("Fiche").Range("B1") = ""
Sheets("Fiche").Range("D1") = ""
Sheets("Fiche").Range("B3") = ""
Sheets("Fiche").Range("B5") = ""
End Sub



Bonjour

Comme ceci
Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub

salutations

RGI


Bonjour le forum
J'ai un soucis avec mon code
au premier essai (saisie)cela ne fonctionne pas si je recommence cela
fonctionne si je ferme et recommence cela bug tjrs au premier essai
Comment faire pour mettre au format telephone mon texbox?
merci de votre aide
http://cjoint.com/?kzqAFZZhy4








Avatar
croky23
mERCI BEAUCOUP
POURQUOI LE 1° 0 DU NUMERO DE TELEPHONE NE VEUT PAS S'AFFICHER,


mettre en remarque

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
' [A3:A1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheets("Saisie").[c3], Unique:=True
' [C3:C1000].Sort Key1:=Range("c3")
Application.EnableEvents = True
End If
End Sub

salutations

RGI



Merci pour le format telephone
mais pour le reste j'ai tjrs un probleme
ci dessus les codes

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
[A3:A1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Sheets("Saisie").[c3], Unique:=True
[C3:C1000].Sort Key1:=Range("C3")
Application.EnableEvents = True
End If
End Sub

Private Sub B_ok_Click()
If Me.Nom = "" Then
MsgBox "saisir un nom!"
Me.Nom.SetFocus
Exit Sub
End If
If Me.Objet = "" Then
MsgBox "saisir un nom d'objet!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Panne = "" Then
MsgBox "saisir la panne!"
Me.ChoixClient.SetFocus
Exit Sub
End If
If Me.Telephone = "" Then
MsgBox "saisir une info!"
Me.ChoixClient.SetFocus
Exit Sub
End If
'-- transfert
[A65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Offset.Value = Application.Proper(Me!Nom)
ActiveCell.Offset(0, 0) = Me.ChoixClient
ActiveCell.Offset(0, 1) = Me.Objet
ActiveCell.Offset(0, 3) = Me.Panne
ActiveCell.Offset(0, 4) = CVDate(Me.DateReception)
ActiveCell.Offset(0, 5) = Me.Telephone

Sheets("Fiche").Range("D1") = DateReception.Text
Sheets("Fiche").Range("B3") = Objet.Text
Sheets("Fiche").Range("B5") = Panne.Text
End Sub


Private Sub ChoixClient_Change()
Me.Nom = Me.ChoixClient
End Sub

Private Sub F_FERMER_Click()
Unload Me
End Sub

Private Sub Imprimer_Click()
Sheets("fiche").Select
Range("A1").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Private Sub Nom_Change()

Sheets("Fiche").Range("B1") = Me.Nom.Text
End Sub


Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub


Private Sub UserForm_Initialize()
'Date du jour au format Jour/Mois'Année
'TextBox1.Text = Format(Now, "dd/ mm/ yy")

Me.DateReception = Date


Sheets("Fiche").Range("B1") = ""
Sheets("Fiche").Range("D1") = ""
Sheets("Fiche").Range("B3") = ""
Sheets("Fiche").Range("B5") = ""
End Sub



Bonjour

Comme ceci
Private Sub Telephone_Change()
lg = Len(Telephone.Text)
If lg > 10 Then Exit Sub
If lg < 10 Then
Exit Sub
Else
Telephone.Text = Format(Telephone.Text, "## ## ## ## ##")
End If
End Sub

salutations

RGI


Bonjour le forum
J'ai un soucis avec mon code
au premier essai (saisie)cela ne fonctionne pas si je recommence cela
fonctionne si je ferme et recommence cela bug tjrs au premier essai
Comment faire pour mettre au format telephone mon texbox?
merci de votre aide
http://cjoint.com/?kzqAFZZhy4











Avatar
RGI
Bonjour
Mettre ce format

Telephone.Text = Format(Telephone.Text, " ## ## ## ## ##00 00 00 00 00")

RGI
Avatar
RGI
Bonjour
Mettre ce format

Telephone.Text = Format(Telephone.Text, "00 00 00 00 00")

RGI