J'ai besoin d'aide pour un programme!

[Lele]

Bonjour je suis nouveaux dans ce forum et je dois vous avouer que je ne suis pas un experte avec excel. Mais j'aurai besoin de conseil concernant un fichier excel que je voudrais mettre en place pour mon travail.

voici ce que je veux faire:

je voudrai faire un fichier excel pour gerer un parc a cable. je voudrai qu' a chaque tirage de cable, la longueur final du touret de cable se regenre automatiquement.

Lors de la reception d'un touret de cable, on connait la longueure totale et de plus, la longueur du cable est marquee a tout les metre.
Ensuite lors des tirages, on releve la longueur de debut et la longueur finale qu'on soustrait a la longueur totale.

Exemple: Longueur Total Touret (LTT):300m
1er tirage: 70m -> LTT=300-70=230m
2ieme tirage: 100m-> LTT=230-100=130.....

et ainsi de suite.
Voici comment est mon tableau:
A: Touret de Cable (type); B= longueur de debut; C=Longueur de fin; D=Longueur finat du touret.


En esperant que c'est assez clair.
Merci d'avance pour vos aides.

 

[jeanpierre]

Re : J'ai besoin d'aide pour un programme!

Bonsoir Lele, et Bienvenue sur le forum,

Maintenant, si tu nous joignais un exemple de ta vision des fait avec un premier tirage et le résultat, un deuxième aussi, etc....

Sinon, on peut faire du + - = etc...

A te lire.

Jean-Pierre

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Ok,

Exemple: prenons un Touret de 300m.
Premier tirage: Colonne B: 300m; Colonne C: 200 => Colonne D= 300 -(B-C)=200m
Deuxieme tirage: B=200m; C=150m=> D=200 -(B-C)= 150 m.
ETC....
le truc c'est que je veux mettre les tirages sur la meme ligne. en gros je voudrais reccuperer la valeur finale de la longueur total pour refaire une soustraction par rapport au nouveau tirage.

Merci.

 

[jeanpierre]

Re : J'ai besoin d'aide pour un programme!

Re,

Tu peux mettre ton texte (enfin ton organigramme) en cellule, les unes après les autres. et ce, tel que tu le vois, avec des plus et des moins.

Tout ceci sur une feuille excel que tu joins à ton message, car, et même, si c'est simple il faut que cela puisse correspondre à ce que tu attends.

Pour moi cela semble simple, mais....

 

[Compte Supprimé 979]

Re : J'ai besoin d'aide pour un programme!

Bonsoir à tous,

Lele, nous gerons ce genre de chose ou je bosse 😉

Et sur ce forum il y a tout plein de formule tip-top

le truc c'est que je veux mettre les tirages sur la meme ligne. en gros je voudrais reccuperer la valeur finale de la longueur total pour refaire une soustraction par rapport au nouveau tirage.

Tu n'est pas obligé de mettre tes tirages sur la même ligne pour avoir le total 😉

Voilà une idée de ce que tu peux faire.

A+

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Bonjour a tous,

Tout d'abord merci a vous pour avoir pris le temps de me reprendre.

Voici mon un petit bou de mon fichier excel.

BrunoM45, je suis desole mais je ne comprends pas trop ton tableau. En fait c'est plus la formule qui me gene avec SUMIF.

Merci.
Lele.

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Rebonjour,

BrunoM45. J'ai compris ta formule, en fait moi ce qui m'interrese c'est de savoir la longueur actuelle qui me reste dans le touret a chaque fin de tirage du meme touret.

merci.

Lele.

 

[Compte Supprimé 979]

Re : J'ai besoin d'aide pour un programme!

Bonjour Lele,

J'ai compris ta formule, en fait moi ce qui m'interrese c'est de savoir la longueur actuelle qui me reste dans le touret a chaque fin de tirage du meme touret

Moi, je pense que tu n'as pas compris ma formule 🙂
Car mon tableau fait exactement ce qui t'intéresse

Il est vrai que mon exemple n'était peut-être pas assez explicite 😉

En voilà un 2ème, j'ai renommé la colonne "E" dans la feuille "Tourets", par "Reste" sur le touret

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Excellent BrunoM45!

effectivement c'est moi qui n'as pas trop compris ton tableau, en fait j'avais pas bien regarde et ta formule faisait reference a la deuxieme feuille excel (Debits).

En tout cas, merci beaucoup pour votre aide ainsi que le forum.

 

[Compte Supprimé 979]

Re : J'ai besoin d'aide pour un programme!

Re,

Je ne sais pas si cela te convient comme ça ?

Mais n'hésite pas si tu as besoin, ce forum saura répondre à tes demandes 😉

A+

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Bonjour BrunoM45 ainsi que le forum,

BrunoM45, je voudrai savoir si y a t'il un moyen de faire ca sur une feuille seulement?
voici ce que je cherche exactement, enfin si c'est possible..!
Merci d'avance.

Lele.

 

[Compte Supprimé 979]

Re : J'ai besoin d'aide pour un programme!

Salut Lele,

J'étais certain que tu allais me la faire celle là 🙄

Tu trouveras ci-joint ton fichier modifié.

1) nouvelle formule en "F" qui prends en compte l'historique des quantités à partir de la colonne "K"

2) le code VBA dans ton Sheets1

A+

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

En plein dans le mille!!!
Merci Bcp BrunoM45


Cordialement,

Lele.

 

[Lele]

Re : J'ai besoin d'aide pour un programme!

Bonjour Bruno M45, bonjour le forum,

Je reviens sur ce post car j'ai un souci avec le code VBA de BrunoM45.

Et plus particulieremnt avec le code VBA, celui-ci est base sur le principe suivant:
- les resultats a la colonnes E sont envoye a la suite sur les colonnes K,L,M,N.................
Ensuite, F=H-E-IF(COUNTA(K:IV)>0,SUM(OFFSET(K,,,,COUNTA(K:IV))),0).

Je rappelle que l'objectif est de remplire seulement les colonnes, C & D.

Le hic, c'est lorsque je valide les lignes avec la Touche "ENTRER", le nombre affiche sur la colonne corespondante ( K,L,M,N...) n'est pas la bonne.

Voir Ex plus detailler dans le fichier joint.

Cordialement,
Lele.

 

[Compte Supprimé 979]

Re : J'ai besoin d'aide pour un programme!

Salut Lele,

Remplace tout le code précédent par uniquement celui-ci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim NextCol As Integer, Lig As Long
  If Target.Count > 1 Then Exit Sub
  ' Récupérer le numéro de la ligne de modification
  Lig = Target.Row
  If Not Intersect(Target, Range("D:D")) Is Nothing Then
    ' Trouver la prochaine colonne vide
    NextCol = Cells(Lig, Columns.Count).End(xlToLeft).Column + 1
    ' Si pas de date, colonne vide = 10 alors passer à la suivante
    If NextCol < 11 Then NextCol = 11
    ' Inscrire dans la colonne la quantité sortie
    Application.EnableEvents = False
    Cells(Lig, NextCol).Value = Range("E" & Lig).Value
    ' Inscrire la date
    Range("J" & Lig) = Date
    Application.EnableEvents = True
  End If
End Sub

A tester de fond en comble 😀 😉

A+