Ajuster les mois et les données en fonction du mois

[ascal44]

Bonjour ,

j'ai un fichier sur lequel je voudrais ajuster les mois d'une listview par rapport à un Textdate.
En fonction de ces dates actualiser les données à afficher dans la listeview.

Voici le lien du fichier réduit mais déjà trop important :http://cjoint.com/?bdkpVx1Dtx

 

[bqtr]

Re : Ajuster les mois et les données en fonction du mois

Bonjour ascal44,

si je comprends bien ce que tu veux :

Le code de tes boutons ( + et - ) comportes deux problèmes :
- l'espace en trop dans le format des dates ( " mmmm yyyy").
- le lancement de la macro remplirlistv

Il faut :

Private Sub CmdPlus_Click()
Txtdate = Format(DateAdd("m", 1, Txtdate.Value), "mmmm yyyy")
End Sub


Private Sub CmdMoins_Click()
Txtdate = Format(DateAdd("m", -1, Txtdate.Value), "mmmm yyyy")
End Sub

Pour avoir le mois en entier dans les dates de la 1ère colonne de la listview il faut :

- Modifier la largeur de la 1 ère colonne dans la macro remplirlistv comme ceci en sachant que la date sera obligatoirement alignée sur la gauche:

'.../...
' correspondance entre les Colonne(i)s de la base de données et la listview
Colonne(i) = "c" 'Colonne(i) de la listview : 0
largeur(i) = [B]75[/B] ' largeur  Colonne(i)
position(i) = 0 ' 0 gauche 1 droite 2 centré
'.../...

- Modifier cette ligne dans la macro ajouteruneligne :

.ListItems.Add , "K" & £Lig, Format(Sheets(£nomfeuil).Range(£Colonne(LBound(£Colonne())) & £Lig), "dd-mmmm-yyyy")

Bien de code de JP14 😉

A+

 

[ascal44]

Re : Ajuster les mois et les données en fonction du mois

Merci pour les ajustements de mois cela marche bien.

Mais comment actualiser les données à afficher en fonction des "x" ?

 

[Bebere]

Re : Ajuster les mois et les données en fonction du mois

bonjour Ascal,Bqtr
mis une ligne en commentaires dans +,-
changer le code textbox
Cijoint.fr - Service gratuit de dépôt de fichiers
à bientôt

 

[bqtr]

Re : Ajuster les mois et les données en fonction du mois

Re,

A l'ouverture du USF tu as toutes les données de la feuille "Echéances"

Les données s'actualisent en fonction du mois de la date quand tu click sur le bouton + ou -.

Si tu as une date c'est que forcément tu as un "x" dans une des colonnes de Q à AC non ? donc il n'est pas nécessaire de tester la présence des "x".
Ou alors je ne vois pas ce que tu souhaites.

A+

Edit Bonjour Bebere

 

[ascal44]

Re : Ajuster les mois et les données en fonction du mois

En fait , je veux reprendre les lignes qui ont des "x" en correspondance avec le mois du TextDate.

Ceci afin de filtrer les échéances correspondantes aux mois auquels elles sont affectées.

Tout cela pour les saisir dans un tableau de comptes

 

[bqtr]

Re : Ajuster les mois et les données en fonction du mois

Re,

Essaye comme ceci alors :

Private Sub Txtdate_Change()

Dim date1 As String, k As Byte

If flag = True Then Exit Sub
If Txtdate <> "" Then

  With ListView1
     .CheckBoxes = False
     .ListItems.Clear
  End With
  
  For i = 3 To Sheets("Echéances").Range("a65536").End(xlUp).Row
    date1 = CStr(Format(Sheets("Echéances").Range("c" & i), "mmmm yyyy"))
    If date1 = Txtdate Then
       If Sheets("Echéances").Cells(i, 17) = "x" Then
          Call ajouteruneligne("Echéances", i, 1, Colonne())
       Else
          For k = 18 To 29
            If Sheets("Echéances").Cells(i, k) = "x" Then Call ajouteruneligne("Echéances", i, 1, Colonne())
          Next
       End If
    End If
  Next i
  
End If

End Sub

A+