Microsoft 365 Enregistrement des notes prises dans un fichier

[pelerin65]

Bonjour le forum,

J'ai un userform avec une frame "PRISE DE NOTES DU PARCOURS3 ET 2 boutons "Ajouter" et "Modifier"

je n'ai pas trouvé de solutions sur les forums.

j'aimerais lors du clic sur "Ajouter", qu'il enregistre dans une feuille du fichier afin d'éviter de perdre les données.

 

[pelerin65]

Ce code charge ce qui est dans la feuille Journal dans le listview de l'userform Journal .
As-tu QQ chose dans cette feuille ?

oui,

 

[fanch55]

Il semblerait que @ChTi160 se soit retiré de la discussion.
C'est dommage car il me semble qu'il avait dit que le code pour le Journal fonctionnait de son coté .
De mon coté cela fonctionne :

Tu as toujours un listview vide ?
Et avec le classeur joint ?

 

[ChTi160]

Bonsoir
Effectivement çà fonctionnait chez Moi !
et ton dernier fichier fonctionne aussi ,affichage des données dans la Listview du Userform "JOURNAL"
oupssss !
Bonne Continuation
Jean marie

 

[pelerin65]

Code à placer dans l'userform JOURNAL :

Option Explicit
Private Sub UserForm_Initialize()
Dim Cel As Range, Data As Range, Line As Range, It As ListItem
    With ThisWorkbook.Sheets("Journal")
        Set Data = .Range("A1").CurrentRegion
        For Each Line In Data.Rows
            With Me.ListView1
                If Line.Row = 1 Then
                    .ListItems.Clear
                    With .ColumnHeaders
                        .Clear
                        For Each Cel In Line.Cells
                            .Add , , Cel, Cel.Width
                        Next
                    End With
                Else
                    Set It = Nothing
                    For Each Cel In Line.Cells
                        If It Is Nothing Then
                            Set It = .ListItems.Add(, , Cel)
                        Else
                            It.ListSubItems.Add , , Cel
                        End If
                    Next
                End If
            End With
        Next
        Me.ListView1.ListItems(Me.ListView1.ListItems.Count).EnsureVisible
    End With
End Sub

C'est ok maintenant mon erreur, j'avais renommé la listview en journal. j'ai trouve mon erreur

 

[pelerin65]

Bonjour Fanch55
1er question
l'userfrom "Journal" fonctionne correctement
Comment je peux pour avoir les lignes avec des couleurs suivantes dans l'userform Journal
Vert pour mesure
Bleu pour Ach
Rouge pour PROG EIC LOC
Marron pour LTV
2éme
mettre la date du jour dans le le tableau journée sur chaque ligne ou sur 1 ligne

Cordialement

 

[fanch55]

Le classeur ci-joint traite les couleurs pour la listview de JOURNAL et la listview1 de PREPARATION ( code commun )

mettre la date du jour dans le le tableau journée sur chaque ligne ou sur 1 ligne

J'ai pas compris ....

 

[pelerin65]

Le classeur ci-joint traite les couleurs pour la listview de JOURNAL et la listview1 de PREPARATION ( code commun )

J'ai pas compris ....

Re Fanch55
Merci beaucoup de ton aide
Pour cette partie à mes yeux très très compliqué.

Est-il possible de cliquer sur le bouton Afficher au lieu du label pour la création du fichier avec le N° tournée.

et j'aimerai savoir un truc peut-on renommer un userform en le créant??

merci merci encore beaucoup
JL

 

[pelerin65]

Bonjour Fanch55

je viens d avoir un soucis
étant donne que le fichier doit être vierge comme le journal
lorsque le journal est vierge
il me mets comme erreur

désolé de t 'embêter encore avec mes soucis de vba
Cordialement
JL

 

[fanch55]

Code à remplacer dans l'userform JOURNAL :

Option Explicit
Option Compare Text
Private Sub UserForm_Initialize()
Dim Cel As Range, Data As Range, Line As Range, It As ListItem, color
    With ThisWorkbook.Sheets("Journal")
        Set Data = .Range("A1").CurrentRegion
        For Each Line In Data.Rows
            With Me.ListView1
                If Line.Row = 1 Then
                    .ListItems.Clear
                    With .ColumnHeaders
                        .Clear
                        For Each Cel In Line.Cells
                            .Add , , Cel, Cel.Width
                        Next
                    End With
                Else
                    color = Color_Lvw(Line.Cells(1))
                    Set It = Nothing
                    For Each Cel In Line.Cells
                        If It Is Nothing Then
                            Set It = .ListItems.Add(, , Cel)
                            It.ForeColor = Color_Lvw(Cel.Text)
                        Else
                            It.ListSubItems.Add(, , Cel).ForeColor = It.ForeColor
                        End If
                    Next
                End If
            End With
        Next
        If Me.ListView1.ListItems.Count > 0 _
        Then Me.ListView1.ListItems(Me.ListView1.ListItems.Count).EnsureVisible
    End With
End Sub

 

[pelerin65]

Bonjour Fanch55

Désolé, je comprends pas mais j'ai un bug avec le Bouton Journal
Lorsque je clique dessus,
J'ai ce message suivant

et deuxième, j ai remarqué lorsque je supprime une ligne de la listview2, cette ligne n'est pas supprimé de la feuille Journal, vu que je voudrais me servir de la feuille journal comme archives pour les prochaines tournées. (j ai 73 tournées donc beaucoup de notes afin de se rappeler des particularités des lignes mesurées)

 

[pelerin65]

oups!!!! j ai oublier de joindre le fichier
cordialement JL

 

[fanch55]

Je suis loin de chez moi aujourd'hui, à un anniversaire. Réponse demain

 

[pelerin65]

Bonjour Fanch55

Désolé, je comprends pas mais j'ai un bug avec le Bouton Journal
Lorsque je clique dessus,
J'ai ce message suivant

et deuxième, j ai remarqué lorsque je supprime une ligne de la listview2, cette ligne n'est pas supprimé de la feuille Journal, vu que je voudrais me servir de la feuille journal comme archives pour les prochaines tournées. (j ai 73 tournées donc beaucoup de notes afin de se rappeler des particularités des lignes mesurées)

 

[pelerin65]

Bonjour Fanch55

Honnêtement je comprends le problème ci dessus j ai comparé avec le fichier dans le fil les codes sont pareils
pourquoi ca Bug???
mystère
Cordialement
JL

 

[ChTi160]

Bonjour le Fil
Tu dis :

J'ai remarqué lorsque je supprime une ligne de la listview2, cette ligne n'est pas supprimé de la feuille Journal.

Normal puisque ça n'a pas été stipulé

Vu que je voudrais me servir de la feuille journal comme archives pour les prochaines tournées. (j ai 73 tournées donc beaucoup de notes afin de se rappeler des particularités des lignes mesurées)

Donc la feuille "Journal" restera toujours pleine de tournées ?
A quoi doivent servir les "Fiches" (N°Tournée et Date que tu crées, je crois !)ce ne sont pas des archives ?
Tu comptes utiliser comment les données de la feuille "Journal" ?
Tu n'es pas obligé de me répondre !
Bonne journé à vous
Jean marie