Microsoft 365 Enchaînement textbox pour ajouter une note à une cellule

[Mate59]

Bonjour à tous!

Je rencontre un problème sur l'enchainement des notes...

Actuellement j'ai un userform avec plusieurs textbox, les cases à cocher sont OK, elles fonctionnent.

Le problèmes actuellement avec ce code des textbox à la toute fin, je ne peux, par exemple, pas ajouter de note via le textbox2 (T2) si je n'ai pas rempli le textbox1(T1) et ainsi de suite.

Voici le tableau pour que vous compreniez

 

[Eric KERGRESSE]

Bonjour,

A tester. Pour lancer la macro, clic-droit sur la personne en colonne A.

 

[Mate59]

J'aimerai garder le système du bouton si ça ne vous dérange pas.
Etant débutant, j'aimerai garder les codes comme j'avais pu les faire (case par case, textbox par textbox & case à cocher par case à cocher) même si cela fait lourd à vos yeux. C'est pour moi m'y retrouver facilement et m'aider à comprendre.

J'ai testé et malheureusement, les données peuvent être retirées et je souhaite qu'une fois les données enregistrées alors on les retrouve dans l'userform mais elles ne sont plus modifiables.
Et je suis également obligé de remplir la case à cocher pour qu'il y ait la note et j'aimerai que cela soit séparé, d'avoir 2 choses distinctes

 

[ChTi160]

Bonjour le Fil
à première vue, tu n'as que des mois de 31 jours, il n'y a pas de Choix de mois à faire ni de Base de Données ?
Bonne journée
Jean marie

 

[Mate59]

Pour le moment j'ai fait une unique page et seulement après je vais créé les autres mois.
Le choix du mois n'est donc pas à faire, lorsque j'ai copié la feuille, la macro fonctionne sur toutes les pages.

 

[ChTi160]

Re
Ok donc pas de base de données, qui pourrait permettre l'utilisation que d'une seule page !
Bonne continuation
Jean marie

 

[Phil69970]

Bonjour à tous

@Mate59
Juste en passant et perso :

Pour le moment j'ai fait une unique page et seulement après je vais créé les autres mois.
Le choix du mois n'est donc pas à faire, lorsque j'ai copié la feuille, la macro fonctionne sur toutes les pages.

Je pense que c'est pas le meilleur choix (Version soft pour dire que c'est un mauvais choix)
La Ma logique c'est une feuille :
==> Mois voir si possible seulement une feuille juste du mois en cours avec un feuille modèle ou si 12 feuilles (1 par mois)
==>BDD
==>Paramètre avec par exemple liste des mois/année, jours fériés, liste des primes et montants etc....
==>Liste des personnes et encore cette liste peut être avec les paramètres

Après il peut y avoir d'autres variantes d'organisation du fichier

Normalement à la création on réfléchit au cahier des charges à ce que l'on veut faire, pourquoi, but et moyen, comment je vais m'en servir, ergonomie, ordre de grandeur de la/les BDD etc....

Bonne lecture

 

[Mate59]

Je sais que vous auriez pratiqué d'une autre manière.
Mais à force de m'acharner sur des codes basiques j'ai quand même trouvé la solution est la voici dans le fichier ci-contre.

 

[Phil69970]

Re

4 lignes de codes et 2 lignes de commentaires suffisent au lieu de 290 lignes et tu ajoutes au début
Option Compare Text comme cela si tu mets x ou X en majuscule ou en minuscule cela fonctionnera

Option Compare Text

Private Sub UserForm_initialize()
For i = 3 To 33
    'Garder la case cochée dans userform si case égal X & la note dans le textbox
    If Cells(4, i) = "X" Then Me.Controls("J" & i - 2) = True
    'Si une cellule contient une note alors on la récupère dans le formulaire
    If Not Cells(4, i).Comment Is Nothing Then Me.Controls("T" & i - 2) = Cells(4, i).Comment.Text
Next i
End Sub

et idem pour 4 lignes au lieu de 220 lignes

Private Sub OK1_Click()
Application.ScreenUpdating = False
Dim i&
For i = 3 To 33
    'Ajoute valeur à une cellule après cochage ou non d'une case à cocher
    If Me.Controls("J" & i - 2) = True Then Cells(4, i) = "X" Else: Cells(4, i) = ""
Next i
Unload Me 'fermeture de la fenêtre après appui Ok
End Sub

De plus ton code ne permet pas d'enlever des croix mais seulement d'en rajouter
J'ai rectifié cela dans mon le code

Si tu ne veux pas cette amélioration tu remplaces

'Ajoute valeur à une cellule après cochage ou non d'une case à cocher
If Me.Controls("J" & i - 2) = True Then Cells(4, i) = "X" Else: Cells(4, i) = ""

Par

'Ajoute valeur à une cellule après cochage ou non d'une case à cocher
If Me.Controls("J" & i - 2) = True Then Cells(4, i) = "X"

ainsi tu ne pourras pas enlever des X par USF

Tu viens de gagner près de 510 lignes de codes

 

[Mate59]

Re

4 lignes de codes et 2 lignes de commentaires suffisent au lieu de 290 lignes et tu ajoutes au début
Option Compare Text comme cela si tu mets x ou X en majuscule ou en minuscule cela fonctionnera

Option Compare Text

Private Sub UserForm_initialize()
For i = 3 To 33
    'Garder la case cochée dans userform si case égal X & la note dans le textbox
    If Cells(4, i) = "X" Then Me.Controls("J" & i - 2) = True
    'Si une cellule contient une note alors on la récupère dans le formulaire
    If Not Cells(4, i).Comment Is Nothing Then Me.Controls("T" & i - 2) = Cells(4, i).Comment.Text
Next i
End Sub

et idem pour 4 lignes au lieu de 220 lignes

Private Sub OK1_Click()
Application.ScreenUpdating = False
Dim i&
For i = 3 To 33
    'Ajoute valeur à une cellule après cochage ou non d'une case à cocher
    If Me.Controls("J" & i - 2) = True Then Cells(4, i) = "X" Else: Cells(4, i) = ""
Next i
Unload Me 'fermeture de la fenêtre après appui Ok
End Sub

De plus ton code ne permet pas d'enlever des croix mais seulement d'en rajouter
J'ai rectifié cela dans mon le code

Si tu ne veux pas cette amélioration tu remplaces

Par

ainsi tu ne pourras pas enlever des X par USF

Tu viens de gagner près de 510 lignes de codes

Wow super! vous avez appris comment les codes? Sur la tas? formation? bouquin?


Merci beaucoup à tous pour les réponses

 

[Phil69970]

Wow super! vous avez appris comment les codes? Sur la tas? formation? bouquin?

Sur le tas et bouquin et internet

Et tu as aussi un pb dans TON code sur les commentaires je te laisse regarder si tu trouves le pb

 

[Mate59]

Sur le tas et bouquin et internet

Et tu as aussi un pb dans TON code sur les commentaires je te laisse regarder si tu trouves le pb

La validation... je suis dessus depuis tout à l'heure ^^'

 

[Phil69970]

Essaye ceci
Fais les tests UNIQUEMENT sur le jour 1

Private Sub T1_Change()
'Ajoute en note le commentaire mit dans un textbox et ne pas le modifier une fois ajouté
If T1.Value = "" Then Range("C4").Comment.Delete: Exit Sub 'Si T est vide on supprime le commentaire et on sort
    If Not Range("C4").Comment Is Nothing Then
    'Si je change d'avis la nouvelle note sera enregistré
        OldComment = Range("D4").Comment.Text
        NewComment = T1.Value 'Commentaire modifié
        Range("C4").Comment.Delete
        Range("C4").AddComment (NewComment)
        Range("C4").Comment.Visible = True
    Else
        Range("C4").AddComment T1.Value
        Range("C4").Comment.Visible = True
    End If
End Sub

Et regarde les modifs des commentaires se font en live
Après on va essayer de faire une version courte .......

 

[ChTi160]

Bonjour le Fil
ce que j'ai modifié pour ajouter et supprimer les Commentaires § à voir !
jean marie
Oups pas vu le post #13 de Phil Lol

 

[Mate59]

Essaye ceci
Fais les tests UNIQUEMENT sur le jour 1

Private Sub T1_Change()
'Ajoute en note le commentaire mit dans un textbox et ne pas le modifier une fois ajouté
If T1.Value = "" Then Range("C4").Comment.Delete: Exit Sub 'Si T est vide on supprime le commentaire et on sort
    If Not Range("C4").Comment Is Nothing Then
    'Si je change d'avis la nouvelle note sera enregistré
        OldComment = Range("D4").Comment.Text
        NewComment = T1.Value 'Commentaire modifié
        Range("C4").Comment.Delete
        Range("C4").AddComment (NewComment)
        Range("C4").Comment.Visible = True
    Else
        Range("C4").AddComment T1.Value
        Range("C4").Comment.Visible = True
    End If
End Sub

Et regarde les modifs des commentaires se font en live
Après on va essayer de faire une version courte .......

C'est ce que j'ai observé...