Discussion :

[azertix]

Bonjour.
Voilà où j'en suis : mon objet spreadsheet a en source ma base dorsale et les données sont filtrées par requête.
Quand je sélectionne une ligne et que je clique sur un bouton, ça valide le dossier sélectionné dans la feuille et je mets à jour le champ correspondant.
Problème : seule la ligne sélectionnée est modifiée alors que d'autres lignes sont aussi concernées par la modification.
Je voudrais donc actualiser ou réinitialiser la connexion avec la BDD afin que toutes les modifs soient apparentes.

Merci d'avance.

[Sefrou]

Si je peux me permettre une suggestion de néophyte... pourquoi pas faire deux zone de listes : une pour les moins de trois mois et une de plus de trois mois en gras, rouge etc... qui pourrait être invisible quand elle est vide...

[azertix]

Bonjour et merci de ta réponse.
Ben le problème c'est que j'ai c'est que j'ai besoin de faire ressortir 5 voire 6 couleurs différentes, or les zones de liste ne permettent pas de mise en forme conditionnelle. Et même si ça le permettait, la mise en forme conditionnelle ne permet de mettre que 3 formats différents.

Toute proposition pour différencier les différents états de mes dossiers est la bienvenue, car je sens que l'objet Spreadsheet est trop limité

[azertix]

Bonjour.
Voilà où j'en suis : mon objet spreadsheet a en source ma base dorsale et les données sont filtrées par requête.
Quand je sélectionne une ligne et que je clique sur un bouton, ça valide le dossier sélectionné dans la feuille et je mets à jour le champ correspondant.
Problème : seule la ligne sélectionnée est modifiée alors que d'autres lignes sont aussi concernées par la modification.
Je voudrais donc actualiser ou réinitialiser la connexion avec la BDD afin que toutes les modifs soient apparentes.

Merci d'avance.

Bon ben j'ai réussi à mettre à jour les modifs en parcourant les lignes de la feuille et en mettant à jour les cellules correspondant au dossier modifié

Mon code, si ça peut servir à quelqu'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub cmdValider_Click()
    Dim valLig As Variant
    Dim numLig As Integer
 
    Set wks = Me.SpreadMFC.Object
    valLig = Nz(wks.ActiveCell.Value) ' Contenu de la cellule active
    numLig = wks.ActiveCell.Row ' Numéro de la ligne active
 
    If (numLig > 1 And Not IsNull(valLig) And valLig <> "") Then
        ' -- Modification du statut du dossier --
        Dim tStat As Recordset
 
        Set bd = CurrentDb
        Set tStat = bd.OpenRecordset("DOSSIER", dbOpenDynaset)
        Dim cStat As String
        cStat = "NumDossier=" & wks.Cells(numLig, 15).Value
        tStat.FindFirst cStat
 
        tStat.Edit
        If tStat![ValideDossier] = False Then
            tStat![ValideDossier] = True
            tStat![DateJustifDossier] = Date
        Else
            tStat![ValideDossier] = False
            tStat![DateJustifDossier] = Null
        End If
        tStat.Update
        Dim i As Integer
        For i = 2 To wks.Range("A2").End(xlDown).Row
            If wks.Range("O" & i).Value = tStat![NumDossier] Then
            ' Modifie toutes les lignes qui concernent le dossier
                wks.Range("J" & i).Value = tStat![ValideDossier]
                wks.Range("K" & i).Value = tStat![DateJustifDossier]
            End If
        Next i
        tStat.MoveLast
        ' -- Fin du traitement --
 
        Call RealisationMFC ' Remet les couleurs en tenant compte des modifs
    End If
 
    Set wks = Nothing
End Sub