Microsoft 365 Enregistrement des notes prises dans un fichier

  • Initiateur de la discussion Initiateur de la discussion pelerin65
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pelerin65

XLDnaute Occasionnel
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.

3.png
 

Pièces jointes

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
 
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
 
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
 
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
 
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
1.png


2.png

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)
3.png
 
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
1.png



2.png


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)
3.png
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
298
Réponses
35
Affichages
2 K
Retour