Discussion :

[Ardiden31]

Bonjour à tous,
Je sollicite votre aide pour m’aider à rendre une manipulation plus simple.

Dans mon tableau je sélectionne des Oui/Non via un UserForm.
A chaque fois que j’ai un Non je dois saisir un commentaire pour expliquer le Non.



Pour une ligne je peux donc avoir plusieurs commentaires à saisir.

Quand la case « Non » est cochée j’ai un userform avec textbox qui apparait.

Je souhaite que tous mes commentaires se retrouvent dans la cellule Q.

Sauf que j’ai mis en place 7 userform (userform1 à userform7) pour pouvoir saisir chaque commentaire.
Par exemple pour la ligne A5 j’ai mon com1 qui se met en AA5, mon com2 en AB5 et, s’il y a 7 commentaires j’aurai un com. de AA5 à AG5.

Dans ma cellule Q je fais donc un concaténer qui reprend toutes les données de AA5:AG5.

Je voulais savoir s’il existait un moyen plus rapide qui ne permet de créer qu’un seul userform et, de pouvoir rajouter du texte dans une cellule qui contient déjà du texte sans l’écraser.

Merci à vous désolé pour la longueur


[unparia]

Bonjour
Sur la seule base de ton exposé , je dirais :
- un seul userform
- la boucle dans ce userform
- une variable range (dont la valeur change dans la boucle)
- insertion du commentaire dans la cellule concernée
Montre-nous ce que tu tentes sur ces bases.

EDIT : ah oui : on ajoute du texte à une propriété en concaténant ce qu'elle contient déjà avec ce que l'on veut ajouter (B.A.BA) ...

[Ardiden31]

Ok merci à vous je vais tenter quelque chose et si c'est pas bon je reviens vers vous

[riaolle]

Bonjour
Tu peux peut-être lancer ton UserForm q'une fois que tu as changé ton dernier Oui/Non. Ensuite, dans le code d'intialisation du Userform, tu rends visible seulement les cases qui correspondent à des non.
Par exemple :
Tu créé un UserForm avec 7 texteBox correspondants aux 7 éventuels "non". Puis dans ton code, tu mets qqs comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Range("I2").Value = "Non" Then
txtBxOrigineCEE.Visible = False
End If

Adapter le nom de la cellule (avec une variable, en utilisant le numero de la ligne). Et faire éventuellement une boucle sur les texteBox, en les nommant intelligemment pour qu'ils correspondent aux bonnes colonnes.

[Ardiden31]

Tu peux peut-être lancer ton UserForm q'une fois que tu as changé ton dernier Oui/Non.

En fait la saisie doit se faire après chaque Non sélectionner pour éviter d'oublié le com.

J'ai fais un début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub TextBoxCom_Change()
a = ActiveCell.Row
 
If OptionButtonNonOrigine.Value = True Then
    Range("AA" & a) = TextBoxCom
        ElseIf OptionButtonNonJustif.Value = True Then
            Range("AB" & a) = TextBoxCom
        ElseIf OptionButtonNonMTP.Value = True Then
            Range("AC" & a) = TextBoxCom
        ElseIf OptionButtonNonAvis.Value = True Then
            Range("AD" & a) = TextBoxCom
        ElseIf OptionButtonNonHabilitation.Value = True Then
            Range("AE" & a) = TextBoxCom
        ElseIf OptionButtonNonTickets.Value = True Then
            Range("AF" & a) = TextBoxCom
        ElseIf OptionButtonNonMobile.Value = True Then
            Range("AG" & a) = TextBoxCom
End If
End Sub

Sauf que j'ai l'erreur 424 avec objet requis comme commentaire.

[Daranc]

le commentaire s'ajoute assez facilement si tu prends déjà le texte écrit . il te faudra juste faire attention à la limitation du nombre de caractère dans la cellule.

[Ardiden31]

le commentaire s'ajoute assez facilement si tu prends déjà le texte écrit . il te faudra juste faire attention à la limitation du nombre de caractère dans la cellule.

Je peux le faire en cachant le formulaire ?

[Ardiden31]

Finalement c'est bon en gardant le UserForm caché il me conserve toutes les données saisies et donc en cellule Q je retrouve tous mes commentaires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ButtonOK_Click()
Me.Hide
End Sub

Merci à vous tous pour vos suggestions et votre aide