deduction

[FREESURF]

Dernier probleme avant de terminer mon projet.
Je voudrais que depuis le feeuille "RECAP", les vetement livrés soit directement déduit de la feuille "stock" colonne "solde"
Merci pour votre aide.

 

[porcinet82]

Re : deduction

Salut Freesurf,

Un essai en pièce jointe par le biais d'une macro evenementielle présente en feuille 2.

@+

 

[FREESURF]

Re : deduction

salut porcinet

un grand merci à toi.Je n'y serais jamais arrivé seul.
Ca marche .......... et c'est terminé........fini les prises de tete pour le moment
encore merci

 

[FREESURF]

Re : deduction

re salut porcinet
La macro fonctionne mais...
apres deux ou trois essai, la collone stock se met en négatif sans aucune raison de plus , la deduction se fait sur n'importe quelle ligne de la colonne solde de la feuille stock......
Ma joie à ete spontannée, mais je sent qu'ont tiens le bon bout

Merci à toi

 

[FREESURF]

Re : deduction

salut porcinet
second probleme,il semble que la maro reprend les valeures de toute la feuille RECAP à chaque ajout de ligne...
A+

 

[porcinet82]

Re : deduction

re,

Je n'avais pas pensé que tu modiefierais ta feuille plusieurs fois, j'ai encore ete trop vite.
Donc 2 possibilitées s'offre a toi, soit tu utilises le code que je t'ai filé mais tu le mets dans un Sub normal et non pas dans un Sub de macro evenementielle, ce qui donnerait :

Sub test()
Dim cel As Range, c As Range
For Each cel In Range("C2:C" & Range("A65536").End(xlUp).Row)
With Sheets("stock")
For Each c In .Range("A8:A" & .Range("A65536").End(xlUp).Row)
If cel.Value = c.Value Then
If cel.Offset(0, 1).Value = c.Offset(0, 1).Value Then
c.Offset(0, 2).Value = c.Offset(0, 2).Value - cel.Offset(0, 2).Value
End If
End If
Next c
End With
Next cel
End Sub

Seulement, il faut que tu mettes un bouton ou que tu appela la macro dans ton code.

Sinon, je te propose a nouveau une macro evenementielle, mais qui va traité seulement la cellule modifiée de la feuille RECAP (j'ai rajouter une condition afin que la macro ne soit executer que si la colonne E de la feuille RECAP est modifiée) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("E2:E" & Range("A65536").End(xlUp).Row)) Is Nothing Then
With Sheets("stock")
For Each c In .Range("A8:A" & .Range("A65536").End(xlUp).Row)
If Cells(Target.Row, 3).Value = c.Value Then
If Cells(Target.Row, 3).Offset(0, 1).Value = c.Offset(0, 1).Value Then
c.Offset(0, 2).Value = c.Offset(0, 2).Value - Cells(Target.Row, 3).Offset(0, 2).Value
End If
End If
Next c
End With
End If
End Sub

Dans tout les cas, supprime la première macro que je t'avais proposé.

@+

 

[FREESURF]

Re : deduction

Je cours faire les essais

Rapide .......

 

[FREESURF]

Re : deduction

Nous y sommes porcinet

avec la nouvelle macro événementielle, cela semble marcher tres bien.
J'ai entre-temps modifié l'userform livraison de maniere à vider les textbox apres chaque validation de commande.

Merci enore pour cette aide tres precieuse
A+