Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modif de code de Boisgontier et erreur 424

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tactic6
  • 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 !

S'inscrire

tactic6

XLDnaute Impliqué
Bonjour le forum
J'ai trouvé le code de Jacques (que je salue et remercie au passage) " FormIntuitive" très intéressant et j'ai voulu l'adapter à mon fichier mais ...

Sur le fichier joint dans la feuille "Result" un double clic sur une cellule comprise dans la colonne B entre b15 et B52 déclenche l'USF de Jacques
J'aurais aimé qu'en double cliquant sur la ligne de la ListBox1 ou qu'en cliquant sur le CommandButton la ligne sélectionnée vienne s'inscrire sur la feuille "Result" à partir de la cellule active (c'est à dire sur la cellule où on a fait le double clic pour lancer l'USF )
Malheureusement je n'y suis pas arrivé.
Pourriez-vous m'aider

Merci et bon WE à tous
 

Pièces jointes

Trier par date Trier par votes
Re : Modif de code de Boisgontier et erreur 424

Bonjour,

ce code placé ds le module de ton usf peut convenir :
Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell = Me.ListBox1.Column(0)
    ActiveCell(1, 2) = Me.ListBox1.Column(1)
    ActiveCell(1, 8) = Me.ListBox1.Column(2)
    ActiveCell(1, 10) = Me.ListBox1.Column(3)
    Me.Unload
End Sub

cf. fichier joint
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Modif de code de Boisgontier et erreur 424

bonjour Tactic
à essayer
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Long, Li As Long
L = ActiveCell.Row
Li = Me.ListBox1.ListIndex
Cells(L, 2) = Me.ListBox1.List(Li, 0)
Cells(L, 3) = Me.ListBox1.List(Li, 1)
Cells(L, 9) = Me.ListBox1.List(Li, 2)
Cells(L, 11) = Me.ListBox1.List(Li, 3)
End Sub
à bientôt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2016 VBA Compilation de données de chaque feuille vers une ligne précise d'une feuille de compilation
Réponses
0
Affichages
765
My<3
N
  • Résolu(e)
XL 2016 Comment filtrer une listbox a mesure qu'on saisie dans textbox (2 colonnes)
2
Réponses
21
Affichages
6 K
ChTi160
C
  • Résolu(e)
XL 2016 Bonsoir, je suis à la recherche d'un code qui me permettrait d'ouvrir un chemin reseau et de me renvoyer le lien hypertext sur le texte de la cellule.
2 3
Réponses
40
Affichages
4 K
christ77000
C
A
  • Question Question
XL 2019 Problème fonction de recherche et sélection d'item dans Listbox d'un Userform
Réponses
3
Affichages
1 K
Axel19
A
E
  • Question Question
Afficher et modifier plage de cellule dans USF
Réponses
3
Affichages
1 K
erics83
E
C
  • Question Question
Sélection ligne Listbox et exploitation de celles-ci
Réponses
8
Affichages
2 K
cheyenne63
C
O
  • Question Question
[RESOLU] Capturer double clic sur une feuille pour initialiser un formulaire
Réponses
4
Affichages
1 K
Orodreth
O
  • Question Question
Longueur ligne de code
2
Réponses
16
Affichages
3 K
tactic6
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…