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

Mate59 · 29 Octobre 2023

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

ChTi160 · 30 Octobre 2023

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

VB:

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 · 30 Octobre 2023

Jean Marie a fait la version courte

Mate59 · 30 Octobre 2023

ChTi160 à dit:
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 · 30 Octobre 2023

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 · 30 Octobre 2023

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 · 30 Octobre 2023

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 · 30 Octobre 2023

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

VB:

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 · 30 Octobre 2023

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 · 30 Octobre 2023

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

ChTi160 · 30 Octobre 2023

Re

C'est incroyable !

Mais Vrai !
Jean marie

ChTi160 · 30 Octobre 2023

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

Mate59 · 31 Octobre 2023

ChTi160 à dit:
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 · 31 Octobre 2023

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 · 31 Octobre 2023

ChTi160 à dit:
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 · 31 Octobre 2023

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 · 31 Octobre 2023

ChTi160 à dit:
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

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

Mate59

XLDnaute Junior

Pièces jointes

ChTi160

Phil69970

XLDnaute Barbatruc

Mate59

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Mate59

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Mate59

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Mate59

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Pièces jointes

Mate59

XLDnaute Junior

Discussions similaires