Microsoft 365 Aide fonction tant que vba

lusano · 14 Mars 2023

Bonsoir à tous,

Je vous joint 2 fichiers un qui contient le code vba à optimiser et l'autre je pense le début de code pour optimiser

J'ai besoin de votre aide car comme vous le verrez dans le code il faut que je teste tous les lignes et au moment ou il n'y a plus de sous il s'arrête et met la valeur en couleur mais j'en suis pas encore à là et ca je peux le faire.
En fait je cherche à l'optimiser avec un tant que je pense mais je bloque à un endroit au moment de faire le calcul et de le mettre dans la case parce que j'arrive très bien à le mettre en message box
s= salaire ; f= forecast=prevision ; r= ce qui a pu être attribuer
Et en rest il faut que j'ai s-f

Comptant sur vous,
Merci d'avance

sylvanu · 14 Mars 2023

Bonsoir Lusane,
Vraiment pas tout compris.
While "s" > "f" c'est à dire tant que January salary sera > à un forecast.
C'est toujours le cas non ? En plus je n'ai pas compris vos valeurs en F6:F9. A quoi correspondent elles ?

Ce que j'ai tenté de comprendre :
On a un apport de salaire, tant que le reste est >0 on défalque les dépenses et on stoppe quand tout le salaire est dépensé.
Un essai en PJ avec calcul du reste à dépenser. Quand le reste est <0 on stoppe.

VB:

Sub Test2()
    Application.ScreenUpdating = False
    DL = Range("D65500").End(xlUp).Row
    JanuarySalary = Range("D2")
    For L = 6 To DL
        If Cells(L, "D") <> "" Then
            If Cells(L, "D") < JanuarySalary Then Cells(L, "E") = Cells(L, "D")
            If Cells(L, "E") = Cells(L, "D") Then Cells(L, "F") = JanuarySalary - Application.Sum(Range("D6:D" & L))
            If Cells(L, "F") < 0 Then
                Cells(L, "E") = ""
                Cells(L, "F") = ""
                Exit For
            End If
        End If
    Next L
End Sub

Sinon expliquez clairement le but.

lusano · 15 Mars 2023

sylvanu à dit:
Bonsoir Lusane,
Vraiment pas tout compris.
While "s" > "f" c'est à dire tant que January salary sera > à un forecast.
C'est toujours le cas non ? En plus je n'ai pas compris vos valeurs en F6:F9. A quoi correspondent elles ?

Ce que j'ai tenté de comprendre :
On a un apport de salaire, tant que le reste est >0 on défalque les dépenses et on stoppe quand tout le salaire est dépensé.
Un essai en PJ avec calcul du reste à dépenser. Quand le reste est <0 on stoppe.

VB:

Sub Test2() Application.ScreenUpdating = False DL = Range("D65500").End(xlUp).Row JanuarySalary = Range("D2") For L = 6 To DL If Cells(L, "D") <> "" Then If Cells(L, "D") < JanuarySalary Then Cells(L, "E") = Cells(L, "D") If Cells(L, "E") = Cells(L, "D") Then Cells(L, "F") = JanuarySalary - Application.Sum(Range("D6:D" & L)) If Cells(L, "F") < 0 Then Cells(L, "E") = "" Cells(L, "F") = "" Exit For End If End If Next L End Sub

Sinon expliquez clairement le but.

Super merci !!
Je vais essayer de fignoler par moi même ☻

sylvanu · 15 Mars 2023

Bonjour Lusano,

sylvanu à dit:
Sinon expliquez clairement le but.

Si le but n'est pas atteint, peut être qu'une explication précise permettrait de rendre plus clair le problème.

lusano à dit:
Je vais essayer de fignoler par moi même

Ca peut vouloir dire :
- Ca marche à peu près, je vais finaliser.
- Ca marche pas du tout, je vais me débrouillais seul.

lusano · 15 Mars 2023

sylvanu à dit:
Bonjour Lusano,

Si le but n'est pas atteint, peut être qu'une explication précise permettrait de rendre plus clair le problème.

Ca peut vouloir dire :
- Ca marche à peu près, je vais finaliser.
- Ca marche pas du tout, je vais me débrouillais seul.

nn ca marche et je vais essayer de rajouter des choses par moi meme

lusano · 15 Mars 2023

J'ai besoin de votre j'ai un soucis d'incompatibilité et je ne comprends pas d'ou il vient

sylvanu à dit:
Bonjour Lusano,

Si le but n'est pas atteint, peut être qu'une explication précise permettrait de rendre plus clair le problème.

Ca peut vouloir dire :
- Ca marche à peu près, je vais finaliser.
- Ca marche pas du tout, je vais me débrouillais seul.

J'ai un soucis d'incompatibilité et je ne comprends pas d'où il vient
Merci d'avance ☺

sylvanu · 15 Mars 2023

Bonjour,
Rien compris à votre code.
Vous faites :

VB:

DernL = Cells(Rows.Count, "F").End(xlUp).Row

donc cela donne dernière ligne occupée de la colonne F, soit 5
( qui est le titre puisque la colonne F est vide )
Déjà l'erreur est pour "Interger" pour "Integer". Mais même en rectifiant, vous faites ensuite :

Code:

Dim dernR As Integer
dernR = Cells(DernL, "F").Value

comme DernL vaut 5, et qu'en F5 vous avez "Rest" alors dernR vaut "Rest" donc pas un integer. D'où l'erreur de compatibilité.

Donc si le but est d'avoir la dernière valeur de la colonne F, en numérique alors essayez :

Code:

Dim dernR As Integer
If DernL > 5 Then dernR = Cells(DernL, "F") Else dernR = 0

Ensuite je n'ai pas analysé, mais au moins ça ne bogue plus.

lusano · 15 Mars 2023

c'est compliquer a expliquer parce que c'est le bazard ce code permet de renseigner la msg box qui apparait

sylvanu · 15 Mars 2023

lusano à dit:
c'est le bazard ce code

C'est bien ce que je disais.

sylvanu à dit:
Si le but n'est pas atteint, peut être qu'une explication précise permettrait de rendre plus clair le problème.

sylvanu à dit:
Sinon expliquez clairement le but.

J'ai demandé deux fois sans réponse.
Je pense que si vous écriviez clairement ce que vous voulez alors ensuite vous trouverez le code sans problème.

sylvanu · 15 Mars 2023

La PJ ci jointe donne bien un Msgbox, reste à savoir si c'est bien ce que vous vouliez.

lusano · 15 Mars 2023

sylvanu à dit:
La PJ ci jointe donne bien un Msgbox, reste à savoir si c'est bien ce que vous vouliez.

dans attributed il y a le assigned et missing correspond au reste

lusano · 15 Mars 2023

lusano à dit:
dans attributed il y a le assigned et missing correspond au reste

la msgbox était bonne à la base mais je ne sais pas pourquoi il m'a affiché une erreur au bout d'un moment

sylvanu · 15 Mars 2023

lusano à dit:
la msgbox était bonne à la base mais je ne sais pas pourquoi il m'a affiché une erreur au bout d'un moment

Et donc ? Ca marche ou pas ? Et si ça marche pas quelle est l'erreur du msgbox que vous relevez ?

lusano · 15 Mars 2023

sylvanu à dit:
Et donc ? Ca marche ou pas ? Et si ça marche pas quelle est l'erreur du msgbox que vous relevez ?

ca ne marche plus puisque les 2 valeurs sont zero

lusano · 15 Mars 2023

sylvanu à dit:
Et donc ? Ca marche ou pas ? Et si ça marche pas quelle est l'erreur du msgbox que vous relevez ?

j'essaierai de vous mettre le fichier plus simple et compréhensible...

Microsoft 365 Aide fonction tant que vba

lusano

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

lusano

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

lusano

XLDnaute Junior

lusano

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

lusano

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

lusano

XLDnaute Junior

lusano

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

lusano

XLDnaute Junior

lusano

XLDnaute Junior

Discussions similaires