Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31
Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :
Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de
news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :
Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de
news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
Bonsoir Daniel.C
Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
pas, je me permet de te faire parvenir mon code pour voir si tu peux
m'aider
à l'arranger.Merci encore pour ton aide.
Private Sub CmdEntrerDonnées_Click()
Dim vCar As String
Dim vNombreBarres As Integer
Dim vMessageDate As String
Dim vRéponse As Integer
If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
Then
MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
"Erreur"
Exit Sub
End If
Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
dans
TxtNuméro
vNom = Trim(TxtNom)
vRue = Trim(TxtRue)
vRue2 = Trim(TxtRue2)
vCodePostal = Trim(TxtCodePostal)
vVille = Trim(TxtVille)
vTéléphone = Trim(TxtTéléphone)
vPortable = Trim(TxtPortable)
vCivilités = CmbCivilités
EntréeDonnées
TxtNuméro = ""
TxtNom = ""
TxtRue = ""
TxtRue2 = ""
TxtCodePostal = ""
TxtVille = ""
TxtTéléphone = ""
TxtPortable = ""
CmbCivilités = ""
End Sub
Merci encore
Peponne31
"Daniel.C" a écrit :Bonsoir.
Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir,
>
> je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
> (FichierClients), et je voudrais afficher un N° de client en auto
> dans
> un
> texBox du formulaire. Le N° à afficher ce trouve dans la feuille
> (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
> .Merci
> pour toutes vos sugestions .
> Peponne31
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le message
>> de
>> news:
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 40A6EC54-7D02-471A-9D70-526044C20E93@microsoft.com...
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
>> de
>> news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le message
>> de
>> news:
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
Bonjour DanielC,
j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
toujours
vide, je ne parviens pas à lui faire afficher la valeur de A2.
Re merci encore pour ton aide.
Peponne31
"Daniel.C" a écrit :
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
> fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
> formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le
>> message
>> de
>> news:
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule (
>> > =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
Bonjour DanielC,
j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
toujours
vide, je ne parviens pas à lui faire afficher la valeur de A2.
Re merci encore pour ton aide.
Peponne31
"Daniel.C" a écrit :
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de
news: 40A6EC54-7D02-471A-9D70-526044C20E93@microsoft.com...
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
> fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
> formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
>> message
>> de
>> news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule (
>> > =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
Bonjour DanielC,
j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
toujours
vide, je ne parviens pas à lui faire afficher la valeur de A2.
Re merci encore pour ton aide.
Peponne31
"Daniel.C" a écrit :
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonsoir Daniel.C
>
> Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
> fonctionne
> pas, je me permet de te faire parvenir mon code pour voir si tu peux
> m'aider
> à l'arranger.Merci encore pour ton aide.
>
> Private Sub CmdEntrerDonnées_Click()
> Dim vCar As String
> Dim vNombreBarres As Integer
> Dim vMessageDate As String
> Dim vRéponse As Integer
> If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
> Then
> MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
> "Erreur"
> Exit Sub
> End If
> Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
> formule
> vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
> dans
> TxtNuméro
> vNom = Trim(TxtNom)
> vRue = Trim(TxtRue)
> vRue2 = Trim(TxtRue2)
> vCodePostal = Trim(TxtCodePostal)
> vVille = Trim(TxtVille)
> vTéléphone = Trim(TxtTéléphone)
> vPortable = Trim(TxtPortable)
> vCivilités = CmbCivilités
>
> EntréeDonnées
> TxtNuméro = ""
> TxtNom = ""
> TxtRue = ""
> TxtRue2 = ""
> TxtCodePostal = ""
> TxtVille = ""
> TxtTéléphone = ""
> TxtPortable = ""
> CmbCivilités = ""
> End Sub
>
> Merci encore
> Peponne31
> "Daniel.C" a écrit :
>
>> Bonsoir.
>> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le
>> message
>> de
>> news:
>> > Bonsoir,
>> >
>> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> > (FichierClients), et je voudrais afficher un N° de client en auto
>> > dans
>> > un
>> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> > (FichierClients) en A2, cette cellule a une formule (
>> > =MAX(A5:A10)+1)
>> > .Merci
>> > pour toutes vos sugestions .
>> > Peponne31
>>
>>
>>
Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le message
>> de
>> news:
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: E58EA159-1E5D-4D72-9423-8217152EBB23@microsoft.com...
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
>> de
>> news: 40A6EC54-7D02-471A-9D70-526044C20E93@microsoft.com...
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
>> >> message
>> >> de
>> >> news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message de
news:
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le message
>> de
>> news:
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) = ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Re
Je te remercie pour ta rapidité de réponse, je voudrais préssiser, que
c'est
à l' ouverture de L'UserForm1 que le textbox doit avoir la valeur de (A2),
et
à sa fermeture sur OK il doit m'incrémenter la valeur de (A2) de 1.
Remercie encore une fois pour ton aide.
Peponne31
"Daniel.C" a écrit :Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le
bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le
>> message
>> de
>> news:
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) =
>> > ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai
>> > s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une
>> >> > feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en
>> >> > auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Re
Je te remercie pour ta rapidité de réponse, je voudrais préssiser, que
c'est
à l' ouverture de L'UserForm1 que le textbox doit avoir la valeur de (A2),
et
à sa fermeture sur OK il doit m'incrémenter la valeur de (A2) de 1.
Remercie encore une fois pour ton aide.
Peponne31
"Daniel.C" a écrit :
Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le
bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de
news: E58EA159-1E5D-4D72-9423-8217152EBB23@microsoft.com...
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
>> message
>> de
>> news: 40A6EC54-7D02-471A-9D70-526044C20E93@microsoft.com...
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) =
>> > ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai
>> > s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
>> >> message
>> >> de
>> >> news: C8317D92-1E1C-4DAE-A610-6900A4127C8E@microsoft.com...
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une
>> >> > feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en
>> >> > auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Re
Je te remercie pour ta rapidité de réponse, je voudrais préssiser, que
c'est
à l' ouverture de L'UserForm1 que le textbox doit avoir la valeur de (A2),
et
à sa fermeture sur OK il doit m'incrémenter la valeur de (A2) de 1.
Remercie encore une fois pour ton aide.
Peponne31
"Daniel.C" a écrit :Regarde le classeur à l'adresse :
http://cjoint.com/?jCkYkRBpVl
Clique sur le bouton pour faire apparaître le userform. Clique sur le
bouton
de la forme pour faire apparaître la cellule A2 dans le textbox.
--
Cordialement.
Daniel
"Peponne31" a écrit dans le message
de
news:
> Bonjour DanielC,
>
> j'ai bien suivi tes instructions mais cela ne fonctionne toujours pas.
> Lorsque j'ouvre mon formulaire (UserForm), avec un CommandButton qui se
> trouve dans la feuille(FichierClients), le TextBox (TxtNuméro), est
> toujours
> vide, je ne parviens pas à lui faire afficher la valeur de A2.
> Re merci encore pour ton aide.
> Peponne31
>
> "Daniel.C" a écrit :
>
>>
>>
>> --
>> Cordialement.
>> Daniel
>> "Peponne31" a écrit dans le
>> message
>> de
>> news:
>> > Bonsoir Daniel.C
>> >
>> > Merci pour ta réponse, j'ai essayé de l'intégrer mais cela ne
>> > fonctionne
>> > pas, je me permet de te faire parvenir mon code pour voir si tu peux
>> > m'aider
>> > à l'arranger.Merci encore pour ton aide.
>> >
>> > Private Sub CmdEntrerDonnées_Click()
>> > Dim vCar As String
>> > Dim vNombreBarres As Integer
>> > Dim vMessageDate As String
>> > Dim vRéponse As Integer
>> > If Trim(TxtNuméro) = "" Or Trim(TxtNom) = "" Or Trim(CmbCivilités) =
>> > ""
>> > Then
>> > MsgBox "Complétez le Numéro, les Civilités et le Nom.", vbOKOnly,
>> > "Erreur"
>> > Exit Sub
>> > End If
>> > Me.TextBox1.Text = Sheets("FichierClients").Range("A2") 'Ici ta
>> > formule
>> > vNuméro = Trim(TxtNuméro) ' ici le résultat de A2 qui devrai
>> > s'inscrire
>> > dans
>> > TxtNuméro
>> > vNom = Trim(TxtNom)
>> > vRue = Trim(TxtRue)
>> > vRue2 = Trim(TxtRue2)
>> > vCodePostal = Trim(TxtCodePostal)
>> > vVille = Trim(TxtVille)
>> > vTéléphone = Trim(TxtTéléphone)
>> > vPortable = Trim(TxtPortable)
>> > vCivilités = CmbCivilités
>> >
>> > EntréeDonnées
>> > TxtNuméro = ""
>> > TxtNom = ""
>> > TxtRue = ""
>> > TxtRue2 = ""
>> > TxtCodePostal = ""
>> > TxtVille = ""
>> > TxtTéléphone = ""
>> > TxtPortable = ""
>> > CmbCivilités = ""
>> > End Sub
>> >
>> > Merci encore
>> > Peponne31
>> > "Daniel.C" a écrit :
>> >
>> >> Bonsoir.
>> >> Me.TextBox1.Text = Sheets("FichierClients").Range("A2")
>> >> --
>> >> Cordialement.
>> >> Daniel
>> >> "Peponne31" a écrit dans le
>> >> message
>> >> de
>> >> news:
>> >> > Bonsoir,
>> >> >
>> >> > je suis sous Excel 2003, J'ai réalisé un formulaire dans une
>> >> > feuille
>> >> > (FichierClients), et je voudrais afficher un N° de client en
>> >> > auto
>> >> > dans
>> >> > un
>> >> > texBox du formulaire. Le N° à afficher ce trouve dans la feuille
>> >> > (FichierClients) en A2, cette cellule a une formule (
>> >> > =MAX(A5:A10)+1)
>> >> > .Merci
>> >> > pour toutes vos sugestions .
>> >> > Peponne31
>> >>
>> >>
>> >>
>>
>>
>>
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1) .Merci
pour toutes vos sugestions .
Peponne31
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1) .Merci
pour toutes vos sugestions .
Peponne31
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1) .Merci
pour toutes vos sugestions .
Peponne31
Re et merci encore
Cela fonctionne dans ton exemple mais pas sur ma feuille, je ne sais pas
le
mettre en fonction. je te fais parvenir la feuille du classeur, ce sera
peut-ètre plus facile.
Je te remercie encore de m'accorder un peux de ton temps.
Peponne31
http://cjoint.com/?jCmjw8NTst
"Peponne31" a écrit :Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31
Re et merci encore
Cela fonctionne dans ton exemple mais pas sur ma feuille, je ne sais pas
le
mettre en fonction. je te fais parvenir la feuille du classeur, ce sera
peut-ètre plus facile.
Je te remercie encore de m'accorder un peux de ton temps.
Peponne31
http://cjoint.com/?jCmjw8NTst
"Peponne31" a écrit :
Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31
Re et merci encore
Cela fonctionne dans ton exemple mais pas sur ma feuille, je ne sais pas
le
mettre en fonction. je te fais parvenir la feuille du classeur, ce sera
peut-ètre plus facile.
Je te remercie encore de m'accorder un peux de ton temps.
Peponne31
http://cjoint.com/?jCmjw8NTst
"Peponne31" a écrit :Bonsoir,
je suis sous Excel 2003, J'ai réalisé un formulaire dans une feuille
(FichierClients), et je voudrais afficher un N° de client en auto dans
un
texBox du formulaire. Le N° à afficher ce trouve dans la feuille
(FichierClients) en A2, cette cellule a une formule ( =MAX(A5:A10)+1)
.Merci
pour toutes vos sugestions .
Peponne31