XL 2016 Aide macro

michokette

XLDnaute Nouveau
Bonjour à tous
je me suis inspiré d'une macro prise sur le site de Jacque BOISGONTIER, mais n'arrive pas à l'adapter à mon cas.
Ainsi quand je double clique sur la cellule E14 de l'onglet Fiche, un Userform s'affiche et je choisie un salarié dans la liste, puis je clique sur ok
et c'est la que mon problème commence
si je clique sur OK les éléments vont venir s'afficher dans ma feuille les uns aprés les autres soit respectivements dans les cellules I14, j14, et k14
Normal me diriez vous puisque cela ne fait suivre que les instructions donné par la macro :
Private Sub ComboBox1_Click()
Set result = Rng.Find(what:=Me.ComboBox1)
If Not result Is Nothing Then
Me.TextBox1 = result.Offset(, 1)
Me.TextBox2 = result.Offset(, 2)
Me.TextBox3 = result.Offset(, 3)
End If
End Sub
Private Sub B_ok_Click()
ActiveCell = Me.ComboBox1
ActiveCell.Offset(, 1) = Me.TextBox1
ActiveCell.Offset(, 2) = Me.TextBox2
ActiveCell.Offset(, 3) = Me.TextBox3
Unload Me
End Sub

Il faudrait donc modifier le code de la macro pour que:
la dénomination sociale qui apparait sur l'userform s'affiche en F8
le prénom qui apparait sur l'userform s'affiche en E16
le SIRET qui apparait sur l'userform s'affiche en F10

En vous remerciant par avance de vos réponses
 

Pièces jointes

  • FICHE Absence test.xlsm
    46.5 KB · Affichages: 6

chris

XLDnaute Barbatruc
Bonjour

J'ai
  • mis ta base de données sous forme de tableau structuré
  • corrigé la formule en M14
  • modifié le code : l'offset n'était pas bon et n'est pas applicable avec des cellules fusionnées
 

Pièces jointes

  • FICHE Absence test2.xlsm
    44 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
312 928
Messages
2 093 697
Membres
105 787
dernier inscrit
BABOU79