Double clic dans une plage comment faire

Résolu/Fermé
chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 - 25 juin 2011 à 12:38
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 25 juin 2011 à 14:40
Bonjour,

je voudrais que lors de double click dans la plage a13:a23 je lance une userform ou si double clic dans b13:b23 je lance une autre userform2

je bloque....si quelqu'un peux m'aider

'quand double click dans cellule feuille facture pour selection code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim actSh As Worksheet


If Not Application.Intersect(Target, Range("A13:A23,b13:b23")) Is Nothing Then

If Target.Row = 1 Then Exit Sub
Application.ScreenUpdating = False
Set actSh = ActiveSheet
Worksheets("tarif").Activate
' init listes
If Target.Column = 2 Then
'initialiser la liste
UserForm2.ListBox1.RowSource = [Liste2].Address
actSh.Activate
'recup item sélectionné
recupItemSel
Application.ScreenUpdating = True
' affichage userform
UserForm2.Show
Cancel = True
ActiveCell.Offset(1, -1).Activate
Exit Sub



merci d'avance


3 réponses

eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
25 juin 2011 à 14:31
ce bout de code n'est QUE mon travail
Ah oui ? et ça : https://forums.commentcamarche.net/forum/affich-22445636-validation-de-donnees-choix-multiples-exce#7 ???
Sans doute moi qui t'ai plagié
Termine TON travail tout seul...
eric
1
chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 1
25 juin 2011 à 14:36
bravo.....je ne savais pas que les exemples données sur ccm ou dans tout autre forum ne pouvait pas etre utilisé pour essayer de progresser!
excuse moi
merci quand meme
0
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
25 juin 2011 à 14:40
Si, ils sont fait pour ça, continue.
0
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
25 juin 2011 à 13:15
Bonjour,

Et si tu exprimais clairement et complètement ton besoin, plutôt que de coller un bout de code récupéré et bricolé.
eric
0
chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 1
25 juin 2011 à 14:17
bonjour,

merci de ta reponse; c'est vrai que je bricole! mais ce bout de code n'est QUE mon travail

dans une col a13:a23 je voudrais que guand je double clik 'ex a 13 )appeler une macro qui me fait apparaitre une userform avec une liste , quand le choix est fait dans cette liste le recopier dans la cellule selctionnee au depart (a13) puis decaler dans la cellule a droite (b13 ) et que cela m'appelle la deuxieme userform avec la 2e liste , quand le choix est fait dans cette liste le recopier dans la cellule selctionnee puis un retour 1,-2) (a14)

merci de ton aide
0