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

Mate59

XLDnaute Junior
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
 

Pièces jointes

  • test macro avec formulaire.xlsm
    38.5 KB · Affichages: 14
Dernière édition:
Solution
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

ChTi160

XLDnaute Barbatruc
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
 

ChTi160

XLDnaute Barbatruc
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
 

Pièces jointes

  • Mate59-1.gif
    Mate59-1.gif
    169.5 KB · Affichages: 17

Mate59

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • note dans cellule Chti160-Test.xlsm
    53.4 KB · Affichages: 2

Discussions similaires

Réponses
5
Affichages
581

Statistiques des forums

Discussions
312 886
Messages
2 093 275
Membres
105 667
dernier inscrit
maxmichel