Ouvrir et remplir un textBox dans un UserForm

[Myst]

Bonjour le forum
J’ai dans la colonne ( H ) de la feuil ( Base ) des cellule qui contiennent le texte ( OUI ) et je voudrais ouvrir l’UserForm2 en cliquant dans l’une de c’est cellules
Exemple 1: Je clique dans ( H3 ) et l’Userform2 s’ouvre avec le texte de la cellule ( G3 ) copié dans le TextBox8
Exemple 2: Je clique dans ( H6 ) et l’Userform2 s’ouvre avec le texte de la cellule ( G6 ) copié dans le TextBox8
Petit fichier joint
merci

 

[mapomme]

Re : Ouvrir et remplir un textBox dans un UserForm

Bonjour Myst,

Essayez ce code à placer dans le module de code de la feuille "Base" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 And Target.Column = Range("h1").Column And Target(1, 1) = "Oui" Then
    UserForm2.TextBox8 = Cells(Target.Row, "g")
    UserForm2.Show
  End If
End Sub

 

[Staple1600]

Re : Ouvrir et remplir un textBox dans un UserForm

Bonsoir à tous

mapomme
Pourquoi pas juste : =Target(1,0) ? 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count = 1 And T.Column = Range("h1").Column And T(1, 1) = "Oui" Then
UserForm2.TextBox8 = T(1, 0)
UserForm2.Show
End If
End Sub

 

[mapomme]

Re : Ouvrir et remplir un textBox dans un UserForm

Bonsoir Staple1600 🙂,

Bonsoir à tous

mapomme
Pourquoi pas juste : =Target(1,0) ? 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count = 1 And T.Column = Range("h1").Column And T(1, 1) = "Oui" Then
UserForm2.TextBox8 = T(1, 0)
UserForm2.Show
End If
End Sub

Parce que non seulement j'ai tout plein d'inavouables défauts mais qu'en plus j'ai aussi de nombreuses mauvaises petites habitudes 😱

 

[Myst]

Re : Ouvrir et remplir un textBox dans un UserForm

Bonsoir, mapomme, Staple1600,le forum
Merci pour le code mapomme c'est parfait et j'ai insérer aussi la petite modif de Staple1600
J'ai modifié l'Userform2 en ajoutant un TextBox9
Comment peut on copier dans la colonne "I" de la feuill "Base" le texte écrit dans le TextBox9
Exemple 1: je clique dans la case "H3" l'UserForm2 s'ouvre je remplis le TextBox9 ,je clique sur "Valider" et le texte du TextBox9 est copié en "I3"
Exemple 2: je clique dans la case "H6" l'UserForm2 s'ouvre je remplis le TextBox9 ,je clique sur "Valider" et le texte du TextBox9 est copié en "I6"
Encore merci a vous deux 😎
Myst

 

[mapomme]

Re : Ouvrir et remplir un textBox dans un UserForm

(re),

Voir le fichier joint.

Code 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Worksheets("Base").Protect UserInterfaceOnly:=True
  If Target.Count = 1 And Target.Column = Range("h1").Column And Target(1, 1) = "Oui" Then
    With UserForm2
      .TextBox8 = Target(1, 0)
      .TextBox9 = Target(1, 2)
      .Tag = Target.Row
      .Show
    End With
  End If
End Sub

Code 2 (bouton valider de userform2) :

Private Sub CommandButton3_Click()
  Worksheets("Base").Range("i" & Me.Tag) = TextBox9
  Me.Hide
End Sub

 

[Staple1600]

Re : Ouvrir et remplir un textBox dans un UserForm

Re


mapomme
Je te faisais cette amicale remarque parce que tu avais utilisé cette syntaxe plus haut, non ?
And Target(1, 1) = "Oui"
et je comprenais pas pourquoi tu ne l'utilisais plus ensuite 😉

 

[mapomme]

Re : Ouvrir et remplir un textBox dans un UserForm

re,

Re


mapomme
Je te faisais cette amicale remarque parce que tu avais utilisé cette syntaxe plus haut, non ?
And Target(1, 1) = "Oui"
et je comprenais pas pourquoi tu ne l'utilisais plus ensuite 😉

Je l'ai pris pour une une amicale remarque. En fait, je crois que naturellement j'arrive bien à concevoir les sens vers la droite et vers la gauche mais j'ai plus de mal de mal à "aller en arrière" ou à gauche avec cette notation. J'ai une tendance naturelle (mais erronée) à associer le 0 à la cellule (tout comme le 1) et non pas à la cellule précédente. Mais je me soigne 😉.

 

[Myst]

Re : Ouvrir et remplir un textBox dans un UserForm

Bonjour, mapomme, le forum
Un grand merci a toi et a l'ensemble du forum
Angers c'est tout a coté ,je ne te fait pas un bisou mais presque
Encore merci
A+
Myst