Microsoft 365 Enregistrement des notes prises dans un fichier

pelerin65 · 3 Mai 2024

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 · 7 Mai 2024

fanch55 à dit:
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 · 8 Mai 2024

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 · 8 Mai 2024

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 · 8 Mai 2024

fanch55 à dit:

Code à placer dans l'userform JOURNAL :

VB:

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 · 8 Mai 2024

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 · 8 Mai 2024

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

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

J'ai pas compris ....

pelerin65 · 8 Mai 2024

fanch55 à dit:
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 · 9 Mai 2024

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 · 9 Mai 2024

Code à remplacer dans l'userform JOURNAL :

VB:

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 · 10 Mai 2024

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 · 10 Mai 2024

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

fanch55 · 10 Mai 2024

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

pelerin65 · 12 Mai 2024

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 · 12 Mai 2024

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 · 12 Mai 2024

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

Microsoft 365 Enregistrement des notes prises dans un fichier

pelerin65

XLDnaute Occasionnel

Pièces jointes

pelerin65

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

pelerin65

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Pièces jointes

pelerin65

XLDnaute Occasionnel

pelerin65

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

pelerin65

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

pelerin65

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Discussions similaires