Microsoft 365 Modification contenu d'une Textbox

[Gaiaman]

Bonjour à tous,

Peut-on mettre "x" dans une cellule d'une feuille excel à la place d'un contenu textbox.

En vous remercient par avance de vos réponses
Gaiaman

 

[mapomme]

Bonjour @Gaiaman

La réponse est très certainement oui. Mais sans plus de précision, comment vous répondre efficacement ?

 

[Gaiaman]

Bonjour mapomme,

je voudrai mettre un"X" dans une cellule lorsque la textbx affiche un resultat. voici le code

'PAGE 1 ENREGISTREMENT DEBUT DE TP Page 1
Private Sub CommandButton3_Click()
If ComboBox1.Value = "" Then MsgBox ("Définir une Classe")
Feuil10.Select
Rows("4:4").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B4").Value = ComboBox2.Value
Range("C4").Value = ComboBox1.Value
Range("D4").Value = ComboBox3.Value
Range("E4").Value = TextBox3.Value
Range("F4").Value = TextBox5.Value
If Me.TextBox97.Value = True Then Cells(4, 7).Value = "X"
If Me.TextBox98.Value = True Then Cells(4, 8).Value = "X"
If Me.TextBox99.Value = True Then Cells(4, 9).Value = "X"
If Me.TextBox100.Value = True Then Cells(4, 10).Value = "X"
If Me.TextBox101.Value = True Then Cells(4, 11).Value = "X"
If Me.TextBox102.Value = True Then Cells(4, 12).Value = "X"
If Me.TextBox103.Value = True Then Cells(4, 13).Value = "X"
If Me.TextBox104.Value = True Then Cells(4, 14).Value = "X"
If Me.TextBox105.Value = True Then Cells(4, 15).Value = "X"
If Me.TextBox106.Value = True Then Cells(4, 16).Value = "X"
If Me.TextBox107.Value = True Then Cells(4, 17).Value = "X"

End Sub

 

[Staple1600]

Bonjour le fil

mapomme
A l'intuition, nous nous dirigeons vers la fameuse piste des "fausses cases à cocher", non ?


@Gaiaman (Bienvenue sur le forum)
Comme le dit mapomme, plus d'infos et/ou un fichier exemple pourraient aider à mieux de te répondre

 

[mapomme]

Re @Gaiaman et (re)salut Staple1600,

On ne sait pas quelles lignes sont en cause. Si ce sont les lignes du type If Me.TextBox97.Value = True Then Cells(4, 7).Value = "X" alors essayez :

 If Trim(Me.TextBox97) <> "" Then Cells(4, 7) = "X"

 

[mapomme]

Re @Gaiaman

Attention! J'avais changé mon fusil d'épaule et ma formule du post précédent est devenue bancale. Je l'ai recalée. Désolé
Attention! une deuxième fois changé mon fusil d'épaule

 

[ChTi160]

Bonjour Gaiaman
Bonjour le Fil ,le Forum
pas evident hein ！ sans fichier . lol
je vois dans le code Le mot ”Classe”
seraient ce des notes qui sont dans les textBox ?
jean marie

 

[ChTi160]

Re
on peut aussi mettre .

For i = 7 To 17
Me.Controls（“TextBox” & 90＋i）.Value = True Then Cells(4, i).Value = "X"
next i

jean marie

 

[Gaiaman]

Bonsoir Jean Marie,
Désolé le code ne fonctionne pas. Indication (Objet spécifié introuvable).

 

[ChTi160]

Re
Voir si tu as bien les TextBox numérotés de 97 à 107 soit
du Me.Controls（"TextBox" & 90＋7）à Me.Controls（“TextBox” & 90＋17）

For i = 7 To 17 ' cela veut dire , je boucle sur la Série de 7 à 17
'que j'ajoute à 90 soit de 97 à 107
Me.Controls（"TextBox" & 90＋i）.Value = True Then Cells(4, i).Value = "X"
next i

Sans fichier ! Pas évident de reproduire Lol
jean marie

 

[mapomme]

Re,

Il faudrait arrêter de nous prendre pour des imbéciles. On propose des solutions. Tout ce qu'on nous répond c'est "ça marche pas". Si le demandeur refuse de nous fournir les éléments, on ne peut rien pour lui.

 

[ChTi160]

Re
D'accord avec toi ! (je note le nom du Gars lol)
j’arrête là Lol
jean marie

 

[Staple1600]

Bonsoir le fil, les anciens (mapomme et JM)

Je viens juste de finir mon 1600ième TextBox pour tester la boucle
(L'autre JM s'est arrété à 107, mais moi le second JM j'ai voulu m'assurer que nos boucles bouclent de manière conforme)

Private Sub CommandButton1_Click()
Dim i
For i = 1598 To 1600
MsgBox Me.Controls("TextBox" & i).Name & Chr(13) & TypeName(Me.Controls("TextBox" & i))
Cells(1 + i - 1598, "A") = Chr(1688 - 1600)
Next
End Sub

Je confirme donc que la boucle du JM 1 et celle du JM 2 fonctionnent

 

[ChTi160]

Re
Mdr
jm

 

[Gaiaman]

Bonsoir le fil,
je vous joins une partie du dossier afin que vous puissiez avoir une idée plus précise de mon problème.
merci pour votre implication
Gaiaman