Microsoft 365 Enregistrement des notes prises dans un fichier

Créer une discussion
Répondre
  • 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 !

S'inscrire
P

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

Trier par date Trier par votes
pelerin65 à dit:
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
Cliquez pour agrandir...
Parce que j'ai oublié de le modifier comme pour la sub Private Sub CmbAjouter_Click:
VB: 
'**********************************************************************************************************************************
'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
 
Vote positif 0 Vote négatif
ChTi160 à dit:
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
pelerin65 à dit:
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.
Cliquez pour agrandir...
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 ...
 
Vote positif 0 Vote négatif
pelerin65 à dit:
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
Cliquez pour agrandir...
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 ) ....
 
Vote positif 0 Vote négatif
fanch55 à dit:
Parce que j'ai oublié de le modifier comme pour la sub Private Sub CmbAjouter_Click:
VB: 
'**********************************************************************************************************************************
'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
Cliquez pour agrandir...
Re,
je viens de mettre ce code a la place de l ancien
voila ce que ça me dis maintenant

1.png


et le code d'Ajouter

2.png

Cordialement
JL
 
Vote positif 0 Vote négatif
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.
Cliquez pour agrandir...
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 :
VB: 
.ForeColor=Color_Lvw
et dans l'autre
Code: 
.ForeColor=Color_Lvw (Me.CmB_Categories.Text)
Voir la procédure
Color_Lvw
merci par avance
Jean marie
 
Vote positif 0 Vote négatif
ChTi160 à dit:
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 :
VB: 
.ForeColor=Color_Lvw
et dans l'autre
Code: 
.ForeColor=Color_Lvw (Me.CmB_Categories.Text)
Voir la procédure
Color_Lvw
merci par avance
Jean marie
Cliquez pour agrandir...
Re
Merci, ca fonctionne bien maintenant.
Cordialement.
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...

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
 
Dernière édition:
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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"
0.png

cordialement
JL
 
Vote positif 0 Vote négatif
pelerin65 à dit:
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
Cliquez pour agrandir...
Sub à remplacer dans PREPARATION :
VB: 
'******************************************************************************************************************************
'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
 
Vote positif 0 Vote négatif
pelerin65 à dit:
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
Cliquez pour agrandir...

fanch55 à dit:
Sub à remplacer dans PREPARATION :
VB: 
'******************************************************************************************************************************
'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
Cliquez pour agrandir...
Re Fanch55

Je te remercie beaucoup pour cette amélioration de mon fichier
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Question Question
Microsoft 365 plusieurs textbox pour remplis 4 Listview selon criteres
2 3 4
Réponses
50
Affichages
3 K
pelerin65
P
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
M
  • Question Question
XL 2021 Aide pour sauvegarde des données dans un calendrier automatique Excel
Réponses
2
Affichages
157
mimednejma
M
yaka
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
619
TooFatBoy
TooFatBoy
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
371
Noymie
N
BenHarber
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
799
Marc Vanlindt
M
D
  • Question Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
811
job75
job75
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
649
patricktoulon
patricktoulon
N
  • Question Question
Microsoft 365 PB enregistrement fichier partagé
Réponses
0
Affichages
499
Nounours4173
N
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
349
Dégé59
D
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
942
Helios77
H
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
872
ali591
A
S
  • Question Question
Microsoft 365 Enregistrer les images dans un dossier
Réponses
5
Affichages
543
Jouxte
Jouxte
K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
355
dysorthographie
dysorthographie
patricktoulon
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
499
patricktoulon
patricktoulon
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
485
picc
P
S
  • Question Question
Microsoft 365 Problème chrono dans un fichier excel lorsque 2 fichiers sont ouverts
2
Réponses
15
Affichages
997
steph67
S
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
438
patricktoulon
patricktoulon
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
353
Dranreb
Dranreb
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
522
job75
job75
Retour