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

 

[Phil69970]

Jean Marie a fait la version courte

 

[Mate59]

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

Oui, mais je ne m'y retrouve pas

Après c'est bien que si la case n'est pas coché on ne peut pas ajouter de commentaire.
Par contre, on peut faire marche arrière et je ne la souhaite pas (décocher et enlever commentaire)

 

[ChTi160]

re
Je n'ai pas utilisé la Propriété Change des TextBox Commentaire !
Reste à voir ce que Mate59 va faire Lol
Bonne Fin de Journée
Jean marie

 

[ChTi160]

Re
tu dis :

Après c'est bien que si la case n'est pas coché on ne peut pas ajouter de commentaire.
Par contre, on peut faire marche arrière et je ne la souhaite pas (décocher et enlever commentaire)

Pour empêcher la modification des données, il suffit à l'affichage de rendre les Controls ayant des Données " Enabled "
À voir donc
Jean marie

 

[Phil69970]

Avec la version courte j'entendais par supprimer tout le code Change des TextBox Commentaire et l’intégrer comme Jean Marie à fait dans la validation par le bouton OK

Donc avoir une dizaine/vingtaine de ligne de codes pour tout faire au lieu des 750 lignes de @Mate59

 

[ChTi160]

re
ce que j'ai modifié en fonction de ce que j'ai compris Lol

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
    Me.Controls("J" & i - 2).Enabled = IIf(Me.Controls("J" & i - 2) = True, False, 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
         Me.Controls("T" & i - 2).Enabled = Me.Controls("J" & i - 2).Enabled
Next i
End Sub

Une petite vidéo du rendu Lol
jean marie

 

[Phil69970]

Oui j'ai vu et en fonction de ce que veut le demandeur on peut facilement adapter
Et si il veut mettre les mains dans le cambouis avec tout ce qu'on lui a donné il devrait pouvoir y arriver.

 

[Mate59]

Merci à tous de votre aide, c'est exactement ça!
C'est incroyable

 

[ChTi160]

Re

C'est incroyable !

Mais Vrai !
Jean marie

 

[ChTi160]

Re
Pour imager ce que je proposais #4 et #6
Bonne fin de Soirée.
Jean Marie

 

[Mate59]

Re
Pour imager ce que je proposais #4 et #6
Bonne fin de Soirée.
Jean Marie

Bonjour,

A vrai dire, je suis preneur de ton fichier pour moi observer les codes afin de m'en servir pour d'autres potentiellement.

 

[ChTi160]

Bonjour le Fil
Je mets des commentaires dans le code et je dépose le fichier des que possible.
Question : pourquoi ne pas pouvoir modifier ce qui a été enregistré ?
Bonne journée
Jean marie

 

[Mate59]

Bonjour le Fil
Je mets des commentaires dans le code et je dépose le fichier des que possible.
Question : pourquoi ne pas pouvoir modifier ce qui a été enregistré ?
Bonne journée
Jean marie

Puisque je ne suis pas le seul à avoir accès à ce fichier et que pour certaines personnes, je suis celle qui va attribuer cette prime.
Pour d'autres, c'est la personne à qui je vais l'attribuer, qui va l'attribuer à son tour à d'autres membres du personnel.

 

[ChTi160]

Re
tu dis

Puisque je ne suis pas le seul à avoir accès à ce fichier et que pour certaines personnes, je suis celle qui va attribuer cette prime.
Pour d'autres, c'est la personne à qui je vais l'attribuer, qui va l'attribuer à son tour à d'autres membres du personnel.

tu as beaucoup de membres ?
Tu pourrais Contrôler accès par Un mot de pass en fonction des Droits ! Enfin .....
Le Fichier avec Commentaires
Bonne Journée
Jean marie

 

[Mate59]

Re
tu dis

tu as beaucoup de membres ?
Tu pourrais Contrôler accès par Un mot de pass en fonction des Droits ! Enfin .....
Le Fichier avec Commentaires
Bonne Journée
Jean marie

Merci beaucoup pour le fichier!
J'ai une personne donc la, comme le code est fait, cela me convient