Affichage textbox en cliquant sur une cellule

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

XLDnaute Barbatruc
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:
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
 

Pièces jointes

Re : Affichage textbox en cliquant sur une cellule

Bonjour,

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

Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
348
Réponses
3
Affichages
665
Réponses
4
Affichages
243
  • Question Question
Microsoft 365 VBA insert photos
Réponses
12
Affichages
869
Retour