Gestion des dates de CB différée dans cette application

Re : Gestion des dates de CB différée dans cette application

Bonsoir Webperegrino

Je ne pense pas avoir compris exactement le probléme,mais je fais parvenir un exemple de transfert de données entre col 8 et 4 en fonction de la date de fin de mois.

regarde et dis nous les modif eventuelles.

A+

Re : Gestion des dates de CB différée dans cette application

je replace un autre fichier , je n'avais pas tenu compte des dates de la col M


A+

Re : Gestion des dates de CB différée dans cette application

Bonsoir Le Forumn Néné06,
J'ai observé ta proposition et l'ai adaptée à mes besoins selon ceci :

- si cellule D est seulement "CB différée" et que
cellule H n'est pas déjà vidée car transférée en cellule F et que
Fin de mois de Cellule C < Date
ALORS
Cellule F prend la valeur de cellule H et par la même occasion cellule H sera ensuite vidée
puis on passe pour observer la ligne 'CB Différée' suivante
entre la ligne 8 et la ligne 28 pour notre exemple (sinon l'apllication tourne en rond)

J'ai trouvé ceci mais ça bloque sur Next ' (Next sans For alors qu'il y a bien un FOR)

As-tu une solution ? Voici le code que j'ai complété.
Merci pour ton attention
Webperegrino


Private Sub Workbook_Open()
Dim c As Date
Application.ScreenUpdating = False
Sheets("Compte").Select
For x = 8 To 28
Do While Cells(x, 3).Value <> ""
If Cells(x, 3).Value = "CB Différée" And Cells(x, 8).Value <> "" Then
c = DateSerial(Year(Cells(x, 3).Value), Month(Cells(x, 3).Value) + 1, 0) 'c=dernier jour du mois
If c < Date Then
Cells(x, 6).Value = Cells(x, 8).Value 'ecrit en col 6 la cellule col 8
Cells(x, 8).Value = ""
Next
'x = x + 1
End If
End If

Loop
End Sub

Re : Gestion des dates de CB différée dans cette application

Je suis sur tel portable
Attention a do until puis for puis loop puis NeXT. FAUX

Re : Gestion des dates de CB différée dans cette application

Attention
For Do NeXT loop. FAUX
A plus

Re : Gestion des dates de CB différée dans cette application

Bonjour Le Forum,
Bonjour Néné06,

Je n'avais pas vu ta dernière proposition de rectification.

Je men suis inspiré pour arriver à ce que je désirais : ne pas avoir à créer la colonne 13, faire le transfert de la cellule 8 vers la cellule 6 et libérer la cellule 8 à la date d'échéance atteinte.

Tout fonctionne maintenant avec ta formule de calcul de date fin de mois en VBA, directement à partir du contenu en cellule n° 3.

Merci à toi et au Forum toujours excellent ( et excel-rapide !).

Ci-joint la rectification pour ceux qui seraient intéressés.

Il me reste toutefois à éliminer la colonne intermédiaire 12 pour alléger mon fichier :
- quelle formule mettre en C5 pour trouver le bon résultat non plus à partir d'une colonne 12 mais du contenu de la colonne 8 : obtenir le sous-total des CB Différée non arrivées à échéance.

Si quelqu'un a une solution qui fonctionne ... car avec SOMMEPROD ça donne # VALEUR !

Bonne journée.

Webperegrino

Re : Gestion des dates de CB différée dans cette application

Bonjour le Forum,Webperegrino
le -3 de la fin de formule indique le nb de jours avant la fin du mois (pour info)
c = DateSerial(Year(Cells(x, 3).Value), Month(Cells(x, 3).Value) + 1, -3)

A+

Re : Gestion des dates de CB différée dans cette application

regarde ce fichier, Si je ne me suis pas trompé sur ta recherche?
A+

Re : Gestion des dates de CB différée dans cette application

Le Forum,
Néné06,

C'est parfait !
C'est excellent !

J'ai posé tes derniers codes dans le vrai fichier de 35 Mo.
La macro fonctionne à merveille, la mise à jour des CB différées se fait maintenant automatiquement à trois jours avant la fin de chaque mois (à l'arrivée des traitements-salaires).

Encore un grand merci.
Bien cordialement,
Webperegrino