Userform modal interactif

aubelix · 16 Mars 2008

Bonjour à tout le forum.

J'ai essayé d'afficher un userform avec les données des 4 cellules à gauche du nom.
Ca marche bien. Mais est-il possible en se plaçant sur un autre nom, d'afficher les
données liées à ce nom. Interactif comme l'xemple de la macro bouton orange.

Dans l'attente de votre aide, bo dimanche à tous et par avance merci

Cousinhub · 16 Mars 2008

Re : Userform modal interactif

Bonjour,
plutôt que d'utiliser une sélection sur ta feuille, tu peux mettre tous tes noms dans une combobox, et sélectionner le nom qui va bien.
regarde le fichier joint

skoobi · 16 Mars 2008

Re : Userform modal interactif

Bonjour,

Il faut modifier le code "Worksheet_SelectionChange" comme cela:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    USF1.Label1 = "Nom: " & vbTab & Cells(ActiveCell.Row, 1).Value & vbCrLf & "Prenom: " & vbTab & Cells(ActiveCell.Row, 2).Value & vbCrLf & "Tel: " & vbTab & Cells(ActiveCell.Row, 5).Value
[COLOR=Blue][B]With UserForm3
    .TextBox15.Value = Cells(ActiveCell.Row, 2).Value
    .TextBox16.Value = Cells(ActiveCell.Row, 3).Value
    .TextBox17.Value = Cells(ActiveCell.Row, 4).Value
    .TextBox18.Value = Cells(ActiveCell.Row, 5).Value
End With[/B][/COLOR]
End Sub

Edit: salut bhbh 🙂

aubelix · 16 Mars 2008

Re : Userform modal interactif

Bonjour à tous.
Un grand merci à toi bhbh et skoobi ainsi qu'à tous les bénévoles du forum.
Une fois de plus, votre aide m'a été précieuse et me fait avancer dans le VBA.
Vos solutions me conviennent et pourront être adaptées à des cas spécifiques

Bon dimanche à tous.

Userform modal interactif

aubelix

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

skoobi

XLDnaute Barbatruc

aubelix

XLDnaute Impliqué

Discussions similaires

Userform modal interactif

aubelix

XLDnaute Impliqué

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

skoobi

XLDnaute Barbatruc

aubelix

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency