Ouvrir et remplir un textBox dans un UserForm

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mai 2015

• #2

Re : Ouvrir et remplir un textBox dans un UserForm

Bonjour Myst,

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

VB:

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

 

Dernière édition: 19 Mai 2015

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2015

• #3

Re : Ouvrir et remplir un textBox dans un UserForm

Bonsoir à tous

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

Code:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mai 2015

• #4

Re : Ouvrir et remplir un textBox dans un UserForm

Bonsoir Staple1600 🙂,

Staple1600 à dit:

Bonsoir à tous

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

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 19 Mai 2015

• #5

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

 

Pièces jointes

• V4.xlsm

  38.4 KB · Affichages: 41
• V4.xlsm

  38.4 KB · Affichages: 54

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mai 2015

• #6

Re : Ouvrir et remplir un textBox dans un UserForm

(re),

Voir le fichier joint.

Code 1 :

VB:

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) :

VB:

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

 

Pièces jointes

• Myst-V4a.xlsm

  39.1 KB · Affichages: 53

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2015

• #7

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 😉

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mai 2015

• #8

Re : Ouvrir et remplir un textBox dans un UserForm

re,

Staple1600 à dit:

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 😉

Cliquez pour agrandir...

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 😉.

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 20 Mai 2015

• #9

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

 

Vote positif 0 Vote négatif