Usine à gaz XLDnaute Barbatruc Supporter XLD 18 Mai 2018 #1 Bonjour à toutes et à tous, Je butte encore (et toujours) sur un nouveau souci. J’aimerais que mes combobox s’affichent tout près de la cellule cliquée. Malgré mes recherches et tentatives, je n’ai pas trouvé. Mon Cher Roland-M y arrive très bien avec son calendrier mais c’est un UserForm et je n’arrive pas à l’adapter pour une combobox. Si vous aviez la solution, ça m’arrangerait bien et je mets un fichier test en pièce jointe. Un grand merci déjà pour avoir lu mon message. Je vous souhaite à toutes et à tous un beau WE ensoleillé. Amicalement, Arthour973, Pièces jointes position combobox.xlsm 71.5 KB · Affichages: 12
Bonjour à toutes et à tous, Je butte encore (et toujours) sur un nouveau souci. J’aimerais que mes combobox s’affichent tout près de la cellule cliquée. Malgré mes recherches et tentatives, je n’ai pas trouvé. Mon Cher Roland-M y arrive très bien avec son calendrier mais c’est un UserForm et je n’arrive pas à l’adapter pour une combobox. Si vous aviez la solution, ça m’arrangerait bien et je mets un fichier test en pièce jointe. Un grand merci déjà pour avoir lu mon message. Je vous souhaite à toutes et à tous un beau WE ensoleillé. Amicalement, Arthour973,
Lone-wolf XLDnaute Barbatruc 18 Mai 2018 #2 Bonjour Lionel Ce n'est pas des combos, mais un formulaire. VB: Private Sub Worksheet_SelectionChange(ByVal R As Range) If Not Intersect(R, Range("d6:d22")) Is Nothing Then 'présent(s) au RdV nouveau.Show nouveau.Left = R.Offset(0, 1).Left + 32 nouveau.Top = R.Offset(0, 1).Top + 93 End If End Sub Vote positif 0 Vote négatif
Bonjour Lionel Ce n'est pas des combos, mais un formulaire. VB: Private Sub Worksheet_SelectionChange(ByVal R As Range) If Not Intersect(R, Range("d6:d22")) Is Nothing Then 'présent(s) au RdV nouveau.Show nouveau.Left = R.Offset(0, 1).Left + 32 nouveau.Top = R.Offset(0, 1).Top + 93 End If End Sub
pierrejean XLDnaute Barbatruc 18 Mai 2018 #3 Bonjour Arthour Salut lone-Wolf J'ai récupéré la sub de Roland M pour le positionnement Pièces jointes position combobox.xlsm 77 KB · Affichages: 13 Vote positif 0 Vote négatif
Usine à gaz XLDnaute Barbatruc Supporter XLD 18 Mai 2018 #4 Bonjour PierreJean, Merci de m'avoir répondu, ça marche super. Je suis vraiment désolé, j'aurai du joindre le fichier de Roland. Merci de l'avoir fait Bonjour Lone, Merci à toi aussi Mais j'ai tenté ton code sans résultat. En fait, ça fonctionne mais ça ne s'ouvre pas exactement aux bons endroits Bonne fin de journée. Amicalement, arthour973 Dernière édition: 18 Mai 2018 Vote positif 0 Vote négatif
Bonjour PierreJean, Merci de m'avoir répondu, ça marche super. Je suis vraiment désolé, j'aurai du joindre le fichier de Roland. Merci de l'avoir fait Bonjour Lone, Merci à toi aussi Mais j'ai tenté ton code sans résultat. En fait, ça fonctionne mais ça ne s'ouvre pas exactement aux bons endroits Bonne fin de journée. Amicalement, arthour973