If you want

Le 07/07/2010 à 10:46

Bonjour a tous !

J'ai quelque chose a vous avouer...

Ces jours, le principal interet n'est plus d'aller manger, aller au WC, ou meme dormir...

Ces jours la révolution commence a voir le jour.

Ces jours, ma nécessité, c'est ICI, maintenant.

Ces jours, ce forum sera pour moi plus(+) qu'une simple page internet.

Ce forum sera ma bible, mon eau, ma foi.

J'AI BESOIN DE VOUS TOUS ! Un simple mot, une petite phrase, un signe (ou un lien internet) m'aidera a aller de l'avant et continuer les tourments de ce fichier excel tant attendu ! (qui devient de plus en plus complet chaque jours grâce a vous !).

Je commence donc par un petit problème

Private Sub BtnSave_Click()

If Not TbxPStock Is Nothing Then
    TbxStock.Text = TbxStock.Text - TbxPStock.Text
End If

    Sheets("BDDChemicals").Cells(LaLigne, 2).Value = Me.TbxName.Value
    Sheets("BDDChemicals").Cells(LaLigne, 3).Value = Me.TbxCAS.Value
    Sheets("BDDChemicals").Cells(LaLigne, 4).Value = Me.TbxBC.Value
    Sheets("BDDChemicals").Cells(LaLigne, 5).Value = Me.TbxSupplier.Value
    Sheets("BDDChemicals").Cells(LaLigne, 6).Value = Me.TbxNSupplier.Value
    Sheets("BDDChemicals").Cells(LaLigne, 7).Value = Me.TbxStoPlace.Value
    Sheets("BDDChemicals").Cells(LaLigne, 8).Value = Me.TbxStock.Value
    Sheets("BDDChemicals").Cells(LaLigne, 9).Value = Me.TbxURL.Value

        Dim DerCel As Range
    With Sheets("Movements")
     Set DerCel = .Range("B65536").End(xlUp)(2)
     .Cells(DerCel.Row, 2).Value = Date
     .Cells(DerCel.Row, 3).Value = Time
     .Cells(DerCel.Row, 4).Value = Me.TbxName
     .Cells(DerCel.Row, 8).Value = Me.TbxStock
     .Cells(DerCel.Row, 9).Value = Me.TbxBC
     .Cells(DerCel.Row, 10).Value = Me.TbxStoPlace
     .Cells(DerCel.Row, 11).Value = Me.TbxURL
     'Personal informations (Juste for a product movements)
     .Cells(DerCel.Row, 12).Value = Me.TbxTName
     .Cells(DerCel.Row, 16).Value = Me.TbxNewStoPlace
     .Cells(DerCel.Row, 17).Value = Me.TbxPStock
    End With

If Not TbxNewStoPlace Is Nothing Then
        Set Sale = Sheets("Sale").Range("B65536").End(xlUp)(2)
        Sheets("Sale").Cells(Sale.Row, 2).Value = Date
        Sheets("Sale").Cells(Sale.Row, 3).Value = Time
        Sheets("Sale").Cells(Sale.Row, 4).Value = Me.TbxName
        Sheets("Sale").Cells(Sale.Row, 8).Value = Me.TbxStock
        Sheets("Sale").Cells(Sale.Row, 9).Value = Me.TbxBC
        Sheets("Sale").Cells(Sale.Row, 10).Value = Me.TbxStoPlace
        Sheets("Sale").Cells(Sale.Row, 11).Value = Me.TbxURL
        'Personal informations (Juste for a product movements)
        Sheets("Sale").Cells(Sale.Row, 12).Value = Me.TbxTName
        Sheets("sale").Cells(Sale.Row, 17).Value = Me.TbxPStock
End If
Unload Me
SearchDialog.Show
End Sub

Les premières lignes de ma fonction "click" fonctionne totalement dans le form. si vous remarquez elle sert juste a "décrementer" le tbxStock d'origine lorsque l'on insert un stock dans tbxPStock.

Part contre si je ne fais que de modifier quelque chose dans mon form, il me met une erreur dans ce code...

je penses que ça doit être "simple" mais je ne vois pas ce que j'ai fais de faux...

SO PLEASE EXCEL-FORUM, PIMP MY BDD !

Le 07/07/2010 à 10:58

Bonjour rimback,

Il faudrait pas que tu deviennes "excelo-dépendant" rimback !

Concernant ton problème :

RimBack a écrit :

Les premières lignes de ma fonction "click" fonctionne totalement dans le form.

Jusqu'où est-ce que ça marche ? Car j'avoue que sans fichier, difficile de voir ce qu'il en est...
RimBack a écrit :

Part contre si je ne fais que de modifier quelque chose dans mon form, il me met une erreur dans ce code...

Ç'aurait été bien de dire au moins quelle erreur est retournée ! Et à quelle ligne ?! Car on ne peut pas tester.

En attendant les infos complémentaires...

Cordialement

Le 07/07/2010 à 11:07

ca joue ! laisse moi le temps de faire un sample et je l'envois !

Le 07/07/2010 à 12:04

C'est bizarre, je n'arrive pas à extraire le fichier excel !

Ça me met "Méthode inconnue dans export_F.xls"

"Aucun fichier à extraire"

Le 07/07/2010 à 12:52

j'ai eu quelques problèmes avec le fichier étant donné que compressé il arrive a 121ko, j'ai dû procedé autrement, je refais une tentative.

-- 07 Juil 2010, 13:16 --

Voili voilà voilou !

-- 07 Juil 2010, 13:55 --

Si vous allez dans "Research & modify", choisissez un produit puis double cliquez dessus. c'est dans cette form que j'ai ce problème (son nom est "Corrections")

4export-f.zip (116.44 Ko)
Le 07/07/2010 à 15:38

Essaie en remplaçant :

If Not TbxPStock Is Nothing Then
    TbxStock.Text = TbxStock.Text - TbxPStock.Text
End If

par

If TbxPStock <> "" Then
    TbxStock.Text = TbxStock.Text - TbxPStock.Text
End If

Je ne sais pas si c'est de cette erreur dont tu parlais mais tu ne dis pas sur quelle erreur toi tu tombes.

Le 07/07/2010 à 16:26
vba-new a écrit :

Je ne sais pas si c'est de cette erreur dont tu parlais mais tu ne dis pas sur quelle erreur toi tu tombes.

RimBack a écrit :

Les premières lignes de ma fonction "click" fonctionne totalement dans le form. si vous remarquez elle sert juste a "décrementer" le tbxStock d'origine lorsque l'on insert un stock dans tbxPStock.

Part contre si je ne fais que de modifier quelque chose dans mon form, il me met une erreur dans ce code...

je penses que ça doit être "simple" mais je ne vois pas ce que j'ai fais de faux...

quand je parlais du form je pensais au form "corrections".

Run-time error '13':

type mismatch

Et donc oui c'était bien de cette erreur que je parlais, maintenant tout fonctionne ! merci vba-new !