Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource = Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lStephRebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lSteph
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lStephRebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Voila un extrait de ma table.
http://cjoint.com/?jwrc0WcnwT
"LSteph" a écrit dans le message de
news:OnqvUVS$Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lStephRebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avezpassé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource > Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produitsen feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichierd'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nomde la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
jesuis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Voila un extrait de ma table.
http://cjoint.com/?jwrc0WcnwT
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:OnqvUVS$HHA.4656@TK2MSFTNGP04.phx.gbl...
Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lSteph
Rebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avez
passé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource > Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produits
en feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichier
d'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nom
de la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
je
suis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Voila un extrait de ma table.
http://cjoint.com/?jwrc0WcnwT
"LSteph" a écrit dans le message de
news:OnqvUVS$Bonjour,
Si je vois ce que tu as fait, je peux regarder mais
le fichier joint est celui que je t'ai envoyé, il n'y a pas de feuil6
dedans...
@+
lStephRebonjour;
Je suis actuellement en train de travailler sur l'userForm que vous
n'avezpassé (ci joint http://cjoint.com/?jvsvliaSfc) en l'adaptant à ma
situation.
Toute fois l'userforme bug sur la ligne "ComboBox1.RowSource > Feuil6.Name &
"!" & .Range("a3", .[b65536].End(3)).Address".
Le message d'erreur est: "erreur d'exétion 380 impossible de définir la
propriété Rowsource"... .
En bas de mail le code de l'userForm retouché.
Dans ma situation la table des lots est en feuil2 et la table des
produitsen feuil6. D'autre part je dispose de nombreuses plage nommé sur mon
fichierd'ou l'origine du bug je pense!!!
N'est-il pas possible (dans la ligne bugante) de remplacer "Name" par le
nomde la plage nommée?
Voila; je ne sais pas si le problème vient de là mais dans tous les cas
jesuis absolument incapable de debuger cette ligne.
Le code:
Private Sub Annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1
TextBox3.Value = Feuil6.Range("b3", Feuil6.[b65536].End(3)) _
.Cells(ComboBox1.ListIndex + 1)
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Feuil2.Activate
With Feuil6
ComboBox1.RowSource = Feuil6.Name & "!" & .Range("a3",
.[b65536].End(3)).Address
End With
End Sub
Private Sub Validation_Click()
Dim last As Long, NumLot As Long
last = [a65536].End(xlUp)(2).Row
If Len(ComboBox1) = 0 Then
MsgBox "saisie incomplète"
ComboBox1.SetFocus: Exit Sub
End If
On Error Resume Next
NumLot = CLng(TextBox1)
On Error GoTo 0
If NumLot = 0 Then
MsgBox "saisie non conforme N° Lot "
TextBox1.SetFocus: Exit Sub
End If
Cells(last, 1) = TextBox2
Cells(last, 2) = TextBox3
Cells(last, 3) = NumLot
Unload Me: Call TriTable
End Sub
Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et
embrume
la tête.
Tous marche bien à priorie.
Merci beaucoup te n'enlève une gros épine du pied; j'allai abandonné.Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
marché! Et comme la création de l'userform ne crée dans de code je ne suis
bien pas de soucis.Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
En effet j'ai essayé plein de version différentes... .
Avec l' explication de cette ligne de code, je comprends bien mieux commant
marche cette ligne et quoi le "!".cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
pour cjoint) d'ou ces #ref... . Mais pas de soucis pour ca.
Seul les lignes produit, ref et lot sont importantes.
Pour le module1(module de trie) je vais le remplacer par un trie a partir
d'une selection (plage A3:P1000 par exemple)... afin de conserver la
cohérence de la table en cas de ligne vide dans d'autre colonnes.Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
renseignées et trés souvant bien après la création du lot (le renseignement
se fera en manuelle).
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et embrume
la tête.
Bonne journée
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et
embrume
la tête.
Tous marche bien à priorie.
Merci beaucoup te n'enlève une gros épine du pied; j'allai abandonné.
Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
marché! Et comme la création de l'userform ne crée dans de code je ne suis
bien pas de soucis.
Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
En effet j'ai essayé plein de version différentes... .
Avec l' explication de cette ligne de code, je comprends bien mieux commant
marche cette ligne et quoi le "!".
cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
pour cjoint) d'ou ces #ref... . Mais pas de soucis pour ca.
Seul les lignes produit, ref et lot sont importantes.
Pour le module1(module de trie) je vais le remplacer par un trie a partir
d'une selection (plage A3:P1000 par exemple)... afin de conserver la
cohérence de la table en cas de ligne vide dans d'autre colonnes.
Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
renseignées et trés souvant bien après la création du lot (le renseignement
se fera en manuelle).
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et embrume
la tête.
Bonne journée
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et
embrume
la tête.
Tous marche bien à priorie.
Merci beaucoup te n'enlève une gros épine du pied; j'allai abandonné.Essentiellement, tu as dû vouloir copier le userform directement d'un
projet à l'autre.
En effet. j'ai bien essayé l'expot-import mais l'import ne voullait pas
marché! Et comme la création de l'userform ne crée dans de code je ne suis
bien pas de soucis.Pour le principal, attention tu avais modifié ceci: "ComboBox1.RowSource
=..."
En effet j'ai essayé plein de version différentes... .
Avec l' explication de cette ligne de code, je comprends bien mieux commant
marche cette ligne et quoi le "!".cette table est bien plus grande que ce que supposait ta demande...
En effet; le fichier approche en réalité les 5 Mo (j'ai du le faire maigrir
pour cjoint) d'ou ces #ref... . Mais pas de soucis pour ca.
Seul les lignes produit, ref et lot sont importantes.
Pour le module1(module de trie) je vais le remplacer par un trie a partir
d'une selection (plage A3:P1000 par exemple)... afin de conserver la
cohérence de la table en cas de ligne vide dans d'autre colonnes.Dernière précision: Il faudra étendre la mefc à raison du nombre de
lignes à occuper par les lots.
C'est pas nécessaire puisque de toute façon ces lignes sont pas toujours
renseignées et trés souvant bien après la création du lot (le renseignement
se fera en manuelle).
Voilà; je vais approfondir tous ça après ma petite séance de sport
dominical; toute la journée devant le PC ca arrondie les formes et embrume
la tête.
Bonne journée