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.

 

[fanch55]

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

Parce que j'ai oublié de le modifier comme pour la sub Private Sub CmbAjouter_Click:

'**********************************************************************************************************************************
'Bouton MODIFIER
'**********************************************************************************************************************************
Private Sub CmbRemplacerLigne_Click()
    If Not ListView2.SelectedItem Is Nothing And Not IsVide Then
        'On modifie la ligne sélectionnée
        With Me.ListView2.SelectedItem
            .ListSubItems.Clear
            .ForeColor = Color_Lvw(Me.CmB_Categories.Text)  'On la colore
            .ListSubItems.Add(, , Me.CmB_Type.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxLIGNE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxVOIE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxDU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxAU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextboxCAUSES.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.CmB_Categories).ForeColor = .ForeColor
        End With
        Effacer
    End If
End Sub

 

[pelerin65]

Bonjour le Fil
Tu dis :

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


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

Re ChTi160
Voilà pourquoi ,j'aimerais pouvoir renommer la nouvelle tournée lors de sa création.
Comme ca, tous les 8 semaines en moyenne, on refait cette tournée, ca permets aux équipes qui peuvent être différentes d'avoir une base pour la tournée.
Je ne sais pas si je suis clair dans mon explication,
Cordialement
JL

 

[fanch55]

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.

Le journal s'enrichit des données de la Frame "PRISE DE NOTES DU PARCOURS" lors des ajouts.
Il n'a rien à voir avec la listview2 .
Le journal n'est pas une base de données et risque de faire planter ton classeur s'il y a trop de lignes .

Je pense que j'ai donnée une solution (et plus) à ta demande initiale dans ce post .

Si tu penses à d'autres développements, il faut te prendre en main car il faudra bien que tu analyses et maintiennes le code.

Ouvres un autre post si tu ne t'en sors pas ...

 

[fanch55]

Re ChTi160
Voilà pourquoi ,j'aimerais pouvoir renommer la nouvelle tournée lors de sa création.
Comme ca, tous les 8 semaines en moyenne, on refait cette tournée, ca permets aux équipes qui peuvent être différentes d'avoir une base pour la tournée.
Je ne sais pas si je suis clair dans mon explication,
Cordialement
JL

Il faudrait fusionner les 2 posts pour une bonne articulation .
Mais je n'ai pas compris qui est qui entre les 3 fichiers ( ce classeur, la fiche modèle et la fiche tournée ) ....

 

[pelerin65]

Parce que j'ai oublié de le modifier comme pour la sub Private Sub CmbAjouter_Click:

'**********************************************************************************************************************************
'Bouton MODIFIER
'**********************************************************************************************************************************
Private Sub CmbRemplacerLigne_Click()
    If Not ListView2.SelectedItem Is Nothing And Not IsVide Then
        'On modifie la ligne sélectionnée
        With Me.ListView2.SelectedItem
            .ListSubItems.Clear
            .ForeColor = Color_Lvw(Me.CmB_Categories.Text)  'On la colore
            .ListSubItems.Add(, , Me.CmB_Type.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxLIGNE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxVOIE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxDU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxAU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextboxCAUSES.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.CmB_Categories).ForeColor = .ForeColor
        End With
        Effacer
    End If
End Sub

Re,
je viens de mettre ce code a la place de l ancien
voila ce que ça me dis maintenant

et le code d'Ajouter

Cordialement
JL

 

[ChTi160]

Re
par exemple peux tu mettre un exemple de ce que veux dire :

Voilà pourquoi ,j'aimerais pouvoir renommer la nouvelle tournée lors de sa création.
Comme ca, tous les 8 semaines en moyenne, on refait cette tournée, ca permets aux équipes qui peuvent être différentes d'avoir une base pour la tournée.

Je pense que pour toi , c'est clair comme de l'eau de Roche Lol
je pense que tu as remarqué que dans l'une des procédures tu as :

.ForeColor=Color_Lvw

et dans l'autre

.ForeColor=Color_Lvw (Me.CmB_Categories.Text)

Voir la procédure
Color_Lvw
merci par avance
Jean marie

 

[pelerin65]

Re
par exemple peux tu mettre un exemple de ce que veux dire :

Je pense que pour toi , c'est clair comme de l'eau de Roche Lol
je pense que tu as remarqué que dans l'une des procédures tu as :

.ForeColor=Color_Lvw

et dans l'autre

.ForeColor=Color_Lvw (Me.CmB_Categories.Text)

Voir la procédure
Color_Lvw
merci par avance
Jean marie

Re
Merci, ca fonctionne bien maintenant.
Cordialement.

 

[pelerin65]

Bonsoir le forum, ChTi160, Fanch55,

Pour la partie "supprimer" dans la Listview2 ceci fonctionne bien,

'******************************************************************************************************************************
'Bouton Supprimer ligne "Listview2"
'******************************************************************************************************************************
Private Sub CmbSupprimerLigne_Click()
'Supprime la ligne active
If Not ListView2.SelectedItem Is Nothing Then
ListView2.ListItems.Remove (ListView2.SelectedItem.Index)
MsgBox "suppression effectuée"
End If
Effacer
End Sub

J'aimerai qu'en même temps, elle se supprime dans La Feuille Journal.
Etant donné que le JOURNAL ne serviras d'archive pour les futures Tournées.
Cordialement
JL

 

[pelerin65]

Bonjour le forum, ChTI160, Fanch55

pour le code Supprimer qui fonctionne bien.

'******************************************************************************************************************************
'Bouton Supprimer ligne "Listview2"
'******************************************************************************************************************************
Private Sub CmbSupprimerLigne_Click()
'Supprime la ligne active
If Not ListView2.SelectedItem Is Nothing Then
ListView2.ListItems.Remove (ListView2.SelectedItem.Index)
MsgBox "suppression effectuée"
End If
Effacer
End Sub

Le problème est que je veux utilisé le journal comme archive.
Lors que je supprime une Ligne dans la Listview2, cette ligne ne se supprime pas dans la feuille "JOURNAL"

j4aimerai bien que se soit possible
Cordialement

 

[pelerin65]

Bonjour le forum,

voila, dans la partie prise de notes le bouton "Ajouter", il y a le problème lorsqu'on clique dessus er que les combobox et textbox sont vides
une ligne s'ajoute sans informations juste la date du jour
J aimerai que lorsque les deux combobox sont vides, il se passe rien si on appuie sur le Bouton "Ajouter"

cordialement
JL

 

[fanch55]

Bonjour le forum,

voila, dans la partie prise de notes le bouton "Ajouter", il y a le problème lorsqu'on clique dessus er que les combobox et textbox sont vides
une ligne s'ajoute sans informations juste la date du jour
J aimerai que lorsque les deux combobox sont vides, il se passe rien si on appuie sur le Bouton "Ajouter"Regarde la pièce jointe 1196727
cordialement
JL

Sub à remplacer dans PREPARATION :

'******************************************************************************************************************************
'Ajout des données dans la listview2
'******************************************************************************************************************************
Private Sub CmbAjouter_Click()
    
    ThisWorkbook.Activate
    
    If Not IsVide Then
       'on crée une ligne dans le Journal
        With [t_Journal].ListObject.ListRows.Add.Range
            .Resize(, 8) = Array(CmB_Categories, CmB_Type, TextBoxLIGNE, TextBoxVOIE, _
                                 TextBoxDU_PK, TextBoxAU_PK, TextboxCAUSES, Date)
            .Parent.Columns.AutoFit
        End With
        'On crée une Nouvelle Ligne, on met la valeur dans la première colonne de cette Ligne
        With Me.ListView2.ListItems.Add(, , "")
            .ForeColor = Color_Lvw(Me.CmB_Categories.Text)  'On détermine la couleur
            .ListSubItems.Add(, , Me.CmB_Type.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxLIGNE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxVOIE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxDU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxAU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextboxCAUSES.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.CmB_Categories).ForeColor = .ForeColor
            .Selected = True
        End With
        Effacer
    End If
    
End Sub

 

[pelerin65]

Bonjour le forum,

voila, dans la partie prise de notes le bouton "Ajouter", il y a le problème lorsqu'on clique dessus er que les combobox et textbox sont vides
une ligne s'ajoute sans informations juste la date du jour
J aimerai que lorsque les deux combobox sont vides, il se passe rien si on appuie sur le Bouton "Ajouter"Regarde la pièce jointe 1196727
cordialement
JL

Sub à remplacer dans PREPARATION :

'******************************************************************************************************************************
'Ajout des données dans la listview2
'******************************************************************************************************************************
Private Sub CmbAjouter_Click()
   
    ThisWorkbook.Activate
   
    If Not IsVide Then
       'on crée une ligne dans le Journal
        With [t_Journal].ListObject.ListRows.Add.Range
            .Resize(, 8) = Array(CmB_Categories, CmB_Type, TextBoxLIGNE, TextBoxVOIE, _
                                 TextBoxDU_PK, TextBoxAU_PK, TextboxCAUSES, Date)
            .Parent.Columns.AutoFit
        End With
        'On crée une Nouvelle Ligne, on met la valeur dans la première colonne de cette Ligne
        With Me.ListView2.ListItems.Add(, , "")
            .ForeColor = Color_Lvw(Me.CmB_Categories.Text)  'On détermine la couleur
            .ListSubItems.Add(, , Me.CmB_Type.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxLIGNE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxVOIE.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxDU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextBoxAU_PK.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.TextboxCAUSES.Value).ForeColor = .ForeColor
            .ListSubItems.Add(, , Me.CmB_Categories).ForeColor = .ForeColor
            .Selected = True
        End With
        Effacer
    End If
   
End Sub

Re Fanch55

Je te remercie beaucoup pour cette amélioration de mon fichier