Control dans Userforme

Question

J'ai créer un userform avec différents contrôles 35 environs et sur Texbox "appelé commentaires" dont le controlsource et :données!em5 je n'arrive pas à retrouver mon commentaire dans cette cellule.Ai-je fais un oubli dans la fenêtre des propriétés? Merci de votre aide Cordialement Gérard...

Math · Answer

Qu'est-ce que tu cherches à faire au juste, clairement...

Math · Answer

A quoi fait référence "TEXT" dans ton exemple? Si c'est une variable contenant le texte à copier dans la cellule, ça va. Tu peux toujours vérifier si la variable contient du texte.

Tu peux aussi écrire

Sheets("données").Range("em5").Value = NomDuTextBox.Text

si ça ne fonctionne pas post nous ton code ou un fichier

Math · Answer

-Pour la note qui ne s'écrivait pas en EM5, change Sheets("données").Range("em5").Value = Text pour Sheets("données").Range("em5").Value = Commentaires.Text -Pour simplifier le code, tu n'es pas obligé de faire des If pour chaques OptionButton, car tu gardes toutes les possibilité de réponses de toutes façon. Alors tu pourrais faire: 'PISCINES Sheets("données").Range("i5").Value = CInt(Piscines_TS.Value) * -1 Sheets("données").Range("j5").Value = CInt(Piscines_S.Value) * -1 Sheets("données").Range("k5").Value = CInt(Piscines_PS.Value) * -1 Sheets("données").Range("l5").Value = CInt(Piscines_D.Value) * -1 Sheets("données").Range("m5").Value = CInt(Piscines_NR.Value) * -1 La valeur des OptionButton est vrai ou faux. Je la convertis en nombre avec CInt( ... ) , ça me donne -1 pour vrai et 0 pour faux. Ensuite on multiplie par -1 pour avoir 1 pour vrai et encore 0 pour faux. -Si tu veux qu'un groupe d'option se coche NR automatiquement, Private Sub Infrastructure_Non_Click() Piscines_NR.Value = True Tennis_NR.Value = True R_Forme_NR.Value = True Terrains_Sports_NR.Value = True Mini_Golf_NR.Value = True Practice_Golf_NR.Value = True Salle_TV_NR.Value = True End Sub un exemple quand tu cliques sur Infrastructure_Non. - Au lieu de tout remettre les controles à vide un à un, tu peu faire: Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "OptionButton" c.Value = False End Select Next c C'est une boucle qui prend les controles un à un. Si c'est de type Textbox, le controle est égale à "" et si c'est un optionbutton, c'est égale à false Si tu as d'autres questions hésite pas...

Dan · Answer

Je m'incruste dans ce fil pour ton erreur en rouge. Enlève les espaces (ou retrait) devant toutes les instructions de ton code. Lorsque tu postes un code, n'oublie pas d'utiliser les balises en sélectionnant ton code puis en cliquant sur le bouton "code" dans la barre d'outils. Amicalement...

Math · Answer

Je m'excuse, je t'ai envoyé les codes sans t'expliquer où les mettres. la première partie Private Sub Infrastructure_Non_Click() Piscines_NR.Value = True Tennis_NR.Value = True R_Forme_NR.Value = True Terrains_Sports_NR.Value = True Mini_Golf_NR.Value = True Practice_Golf_NR.Value = True Salle_TV_NR.Value = True End Sub est une procédure qui ce déclenche quand on clique sur l'Option Infrastructure_Non. Copie le code à la toute fin. L'autre code est à intégré dans ta procédure Valider_Click pour remplacer la section où tu remets tout à zéro Nom_Prénom.Value = "" Organismes.Value = "" Date_Début.Value = "" Date_fin.Value = "" Infrastructure_Oui.Value = 0 Infrastructure_Non.Value = 0 Infrastructure_NR.Value = 0 Piscines_TS.Value = 0 Piscines_S.Value = 0 Piscines_PS.Value = 0 Piscines_D.Value = 0 Piscines_NR.Value = 0 etc ... pour ta question sur la case Organisme, est-ce que tu veux que quand on inscrit quelque chose dans cette case et qu'on clique sur Valider, la valeur vienne s'écrire dans dans feuille organisme...

Dan · Answer

Re, Je voulais dire d'enlever les espaces dans le code pour avoir ceci : Private Sub Infrastructure_Non_Click() Piscines_NR.Value = True Tennis_NR.Value = True R_Forme_NR.Value = True Terrains_Sports_NR.Value = True Mini_Golf_NR.Value = True Practice_Golf_NR.Value = True Salle_TV_NR.Value = True End Sub Tu comprends ...

Math · Answer

Voici une petite procédure pour ajouter sans doublons des organismes: 'La procedure sert à ajouter un organisme en évitant les doublons. Private Sub AjoutOrganisme() 'Avec la feuille Organisme With Sheets("organisme") 'On utilise la fonction find pour trouver l'occurence de la valeur 'du combobox organisme. Set c = .Range("A:A").Find(Organismes.Text, LookIn:=xlValues) 'Si on ne trouve rien, C sera égale à Nothing, 'donc il faut l'ajouter dans la liste If c Is Nothing Then 'Détermine la ligne où ajouter la nouvelle entrée Dim DerLign As Integer DerLign = .Range("A65536").End(xlUp).Row + 1 'Ajoute l'information .Range("A" &amp; DerLign).Value = Organismes.Text 'Rafraichis le combobox Organismes Organismes.RowSource = "organisme!" &amp; .Range("A2:A" &amp; DerLign).Address End If End With End Sub je te retourne ton fichier, j'ai pris la liberté de l'alléger un peu...