J'ai adapte un code pour creer une fiche creation
mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome.
Je vous donne mon code actuel
Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
[I65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me!Code)
ActiveCell.Offset(0, 1).Value = Me.Reference
ActiveCell.Offset(0, 3).Value = Me.Prix
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
(pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je
voudrais mettre mes nouvelles info)
merci de votre aide
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
JB
Bonjour,
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlVa lues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
Bonjour,
'--- Positionnement dans la base
ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1,
0).Row
'--- Transfert Formulaire dans BD
With Sheets("SaisieFicheCréation")
.Cells(ligne,9) = Application.Proper(Me!Code)
.Cells(ligne,10) = Me.Reference
.Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation
mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome.
Je vous donne mon code actuel
Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlVa lues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
[I65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me!Code)
ActiveCell.Offset(0, 1).Value = Me.Reference
ActiveCell.Offset(0, 3).Value = Me.Prix
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
(pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je
voudrais mettre mes nouvelles info)
merci de votre aide
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlVa lues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
croky23
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichéemerci cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlValues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est
affichéemerci
cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base
ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1,
0).Row
'--- Transfert Formulaire dans BD
With Sheets("SaisieFicheCréation")
.Cells(ligne,9) = Application.Proper(Me!Code)
.Cells(ligne,10) = Me.Reference
.Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation
mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome.
Je vous donne mon code actuel
Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
[I65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me!Code)
ActiveCell.Offset(0, 1).Value = Me.Reference
ActiveCell.Offset(0, 3).Value = Me.Prix
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
(pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je
voudrais mettre mes nouvelles info)
merci de votre aide
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichéemerci cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset(1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:=xlValues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
JB
Voir exemple dans PJ:http://cjoint.com/?llqmwq2H7o
Envoie le fichier dans ma BL.
JB
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichéemerci cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset( 1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:= xlValues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
Voir exemple dans PJ:http://cjoint.com/?llqmwq2H7o
Envoie le fichier dans ma BL.
JB
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est
affichéemerci
cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base
ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset( 1,
0).Row
'--- Transfert Formulaire dans BD
With Sheets("SaisieFicheCréation")
.Cells(ligne,9) = Application.Proper(Me!Code)
.Cells(ligne,10) = Me.Reference
.Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation
mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome.
Je vous donne mon code actuel
Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:= xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
[I65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me!Code)
ActiveCell.Offset(0, 1).Value = Me.Reference
ActiveCell.Offset(0, 3).Value = Me.Prix
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
(pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je
voudrais mettre mes nouvelles info)
merci de votre aide
Voir exemple dans PJ:http://cjoint.com/?llqmwq2H7o
Envoie le fichier dans ma BL.
JB
petit probleme sup quand je veux transferer mes données j'ai ce texte
impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichéemerci cela veut dire quoi?
Bonjour,
'--- Positionnement dans la base ligne = Sheets("SaisieFicheCréation").[I65000].End(xlUp).Offset( 1, 0).Row '--- Transfert Formulaire dans BD With Sheets("SaisieFicheCréation") .Cells(ligne,9) = Application.Proper(Me!Code) .Cells(ligne,10) = Me.Reference .Cells(ligne,11) = cdbl(Me.Prix)
End With
Cordialement JB
Bonjour le forum
J'ai adapte un code pour creer une fiche creation mais ma base se trouve sur une autre feuille que celle ou j'appelle
l'userfome. Je vous donne mon code actuel Private Sub b_validation_Click()
Set result = Range("I2:I10000").Find(what:=Me.Code, LookIn:= xlValues, LookAt:=xlWhole) If Not result Is Nothing Then MsgBox "Existe déjà" Exit Sub End If '--- Positionnement dans la base [I65000].End(xlUp).Offset(1, 0).Select '--- Transfert Formulaire dans BD ActiveCell.Value = Application.Proper(Me!Code) ActiveCell.Offset(0, 1).Value = Me.Reference ActiveCell.Offset(0, 3).Value = Me.Prix End Sub Private Sub b_fin_Click() Unload Me End Sub (pour info ma base se nomme Base_Sama dans feuil1 et c'est la que je voudrais mettre mes nouvelles info) merci de votre aide
MichDenis
| impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichée | cela veut dire quoi?
Si tu as déjà un formulaire à l'écran (ouvert) dans une fenêtre modale (c'est-à-dire que tu as ouvert le formulaire avec une commande du type : Userform1.Show , tu dois masquer ou fermer ce formulaire avant d'en afficher un autre.
Si tu es dans le formulaire 1 et que tu veuilles ouvrir le formulaire2, tu peux utiliser Userform1.Hide Userform2.Show Unload Userform1 -> si tu veux faire disparaître le formulaire 1 de la mémoire vive.
Si tu ouvres tes formulaires dans une fenêtre non-modale, tu pourras afficher plus d'un formulaire à la fois.
| impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichée
| cela veut dire quoi?
Si tu as déjà un formulaire à l'écran (ouvert) dans une fenêtre modale (c'est-à-dire que
tu as ouvert le formulaire avec une commande du type : Userform1.Show , tu dois
masquer ou fermer ce formulaire avant d'en afficher un autre.
Si tu es dans le formulaire 1 et que tu veuilles ouvrir le formulaire2, tu peux utiliser
Userform1.Hide
Userform2.Show
Unload Userform1 -> si tu veux faire disparaître le formulaire 1 de la mémoire vive.
Si tu ouvres tes formulaires dans une fenêtre non-modale, tu pourras afficher plus
d'un formulaire à la fois.
| impossible d'afficher une feuille non modable lorsqu'une feuille modable est affichée | cela veut dire quoi?
Si tu as déjà un formulaire à l'écran (ouvert) dans une fenêtre modale (c'est-à-dire que tu as ouvert le formulaire avec une commande du type : Userform1.Show , tu dois masquer ou fermer ce formulaire avant d'en afficher un autre.
Si tu es dans le formulaire 1 et que tu veuilles ouvrir le formulaire2, tu peux utiliser Userform1.Hide Userform2.Show Unload Userform1 -> si tu veux faire disparaître le formulaire 1 de la mémoire vive.
Si tu ouvres tes formulaires dans une fenêtre non-modale, tu pourras afficher plus d'un formulaire à la fois.
