Microsoft 365 Modification contenu d'une Textbox

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2019

• #2

Bonjour @Gaiaman

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

 

Vote positif 0 Vote négatif

G

Gaiaman

XLDnaute Nouveau

• 28 Juillet 2019

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Juillet 2019

• #4

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2019

• #5

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 :

VB:

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

 

Dernière édition: 28 Juillet 2019

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2019

• #6

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

 

Dernière édition: 28 Juillet 2019

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2019

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2019

• #8

Re
on peut aussi mettre .

VB:

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

jean marie

 

Vote positif 0 Vote négatif

G

Gaiaman

XLDnaute Nouveau

• 28 Juillet 2019

• #9

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2019

• #10

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）

VB:

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

 

Dernière édition: 28 Juillet 2019

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Juillet 2019

• #11

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2019

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Juillet 2019

• #13

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)

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Juillet 2019

• #14

Re
Mdr
jm

 

Vote positif 0 Vote négatif

G

Gaiaman

XLDnaute Nouveau

• 28 Juillet 2019

• #15

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

 

Pièces jointes

• Test 1.xlsm

  87.4 KB · Affichages: 3

Vote positif 0 Vote négatif