Affichage textbox en cliquant sur une cellule

[maval]

Bonjour

J'ai un userform qui s'ouvre en cliquant sur une des cellules "B" avec une image correspondant à la cellule jusqu'ici tous fonctionne très bien, j'aimerai que les 4 textbox qui se trouve sur l'Userform se remplisse en fonction de la cellule concerner
Je vous remercie d'avance

Mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 2 And Target.Count = 1 Then
   If Target <> "" Then
  
     répertoireImage = ThisWorkbook.Path
     NomImage = Target
     If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
       UserForm3.Image1.PictureSizeMode = fmPictureSizeModeStretch
       UserForm3.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
       UserForm3.Show
     End If
   End If
 End If
End Sub

 

[laetitia90]

Re : Affichage textbox en cliquant sur une cellule

bonjour tous

code brut

Private Sub UserForm_Activate()
 For i = 1 To 4
 Me("TextBox" & i) = Cells(ActiveCell.Row, i + 1)
 Next i
End Sub

 

[maval]

Re : Affichage textbox en cliquant sur une cellule

Bonjour Laetitia

Je te remercie Nickel

@+

 

[BOISGONTIER]

Re : Affichage textbox en cliquant sur une cellule

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 2 And Target.Count = 1 Then
   If Target <> "" Then
  
     répertoireImage = ThisWorkbook.Path
     NomImage = Target
     If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
       UserForm3.Image1.PictureSizeMode = fmPictureSizeModeStretch
       UserForm3.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
       For i = 1 To 4
         UserForm3.Controls("textbox" & i) = Target.Offset(, i - 1)
       Next i
       UserForm3.Show
     End If
   End If
 End If
End Sub

JB

 

[maval]

Re : Affichage textbox en cliquant sur une cellule

Bonjour JB

Je te remercie, le premier code viens de ton site ou je vais régulièrement prendre des infos.

Je te souhaite une bonne journée

 

[BOISGONTIER]

Re : Affichage textbox en cliquant sur une cellule

Je ne sais pas exactement ce que tu veux faire.
Dans le pgm ci dessous, en cliquant dans la colonne A sur un titre de film, on affiche un formulaire avec toutes les infos de la ligne

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCascadeDVD.xls

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([a2:A1000], Target) Is Nothing And Target.Count = 1 Then
   UserForm1.ComboBox1 = Target
   UserForm1.Show
  End If
End Sub

JB

 

[maval]

Re : Affichage textbox en cliquant sur une cellule

Re,

Oui c'est exactement se que j'était en train de faire

Tu as était plus vite que moi Je te remercie

@+