XL 2016 COPIER COLLER Double clics

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #2

Bonjour,

Je n'ai pas compris ce que tu souhaites. Souhaites-tu que ta listbox contienne toutes les références de ta feuille éponyme, et qu'en double cliquant sur une des valeurs affichées celle-ci soit copiées dans le tableau de devis ?

Bonne continuation

 

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #3

xUpsilon à dit:

Bonjour,

Je n'ai pas compris ce que tu souhaites. Souhaites-tu que ta listbox contienne toutes les références de ta feuille éponyme, et qu'en double cliquant sur une des valeurs affichées celle-ci soit copiées dans le tableau de devis ?

Bonne continuation

Cliquez pour agrandir...

Oui c'est bien cela que je veux ( désolée si on ne sait pas compris ) , as-tu une ligne de code pour cela ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #4

Re,

Comme ceci ?

Bonne continuation

 

Pièces jointes

• REFERENCES TEST A.G .xlsm

  143.4 KB · Affichages: 3

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #5

je te joins mon idée sur le doc excel


Quand pense-tu ? un moyen de le faire ?

 

Pièces jointes

• REFERENCES TEST A.G Mon idée.xlsm

  141.9 KB · Affichages: 3

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #6

Re,

Comme ceci ?

Bonne continuation

 

Pièces jointes

• REFERENCES TEST A.G .xlsm

  140.5 KB · Affichages: 7

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #7

Y-a t'il moyen de faire de copier coller le code en << double clics >> ---> automatiquement dans le devis ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #8

Je ne comprends pas ce que tu veux dire, c'est déjà ce qu'il se passe non ?
Tu double cliques sur une ligne de la listbox et la référence associée se colle dans le tableau du devis ...

 

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #9

ça ne marche de mon côté , je dois faire ctrl + V pour coller la références sur le tableau

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #10

On est d'accord que tu as exécuté l'UserForm via le bouton Nouveau Devis ?

 

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #11

D'accord oui ça marche , juste tu pense qu'il y a moyen de mettre une barre de recherche dans la Useform pour trouver plus facilement les références ? en tout cas merci de ton coup de main et consacrer ton temps pour m'aider

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #12

Re,

Comme ceci ?
Il s'agit là d'une combobox, donc l'affichage est un petit peu différent et le fonctionnement également : il entre une référence dès que tu sélectionnes une valeur de la liste de la combobox.

Bonne continuation

 

Pièces jointes

• REFERENCES TEST A.G .xlsm

  141.9 KB · Affichages: 4

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #13

j'avais plus en tête de mettre de ce genre de ligne de code qui permet de trouver avec precision la références qu'ont souhaites avoir ? comme une barre de recherche


Private Sub TextBox1_Change() 'www.blog-excel.com/creer-un-champ-de-recherche-vba

Application.ScreenUpdating = False

Range("BC2:BC800").Interior.ColorIndex = 2 'Exemple 1 (feuille)
ListBox1.Clear 'Exemple 2 (ListBox)

If TextBox1 <> "" Then
For Ligne = 2 To 800
Let PressePapier = ListBox1.List()
If Cells(Ligne, 55) Like "*" & TextBox1 & "*" Then
Cells(Ligne, 55).Interior.ColorIndex = 43 'Exemple 1 (feuille)
ListBox1.AddItem Cells(Ligne, 55) 'Exemple 2 (ListBox)
End If
Next
End If

End Sub

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #14

Dans le cadre, plutot que de faire dérouler la liste et de sélectionner, tape le début de ta référence, tu vas voir, ça sélectionne la ligne en question.

Bonne continuation

 

Vote positif 0 Vote négatif

A

Alexy

XLDnaute Nouveau

• 28 Octobre 2019

• #15

sauf que moi il ne fait que sauter a chaque fois que je tape une lettre ( regarde l'image que je t'ai envoyer )

 

Vote positif 0 Vote négatif