bonjour à tous malgrés quelques recherches dans les tutot et surtout la copie littérale du code conseiller par jeannot 45 pris sur le forum a l'adresse https://www.developpez.net/forums/d1...es-meme-temps/
j'ai le message d'erreur : " l'objet ne contient pas d'objet automation "nom_control"
le but étant que a chaque clic dans certain controle je selectionne tous le contenu et je le copie.
voici le code que j'ai mis
je suppose que c'est le parametre de ma fonction qui est mal rédigé mais malgre plusieurs essais je n'y arrive toujours pas si vous avez des idées je vous en serait reconnaissant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Dim l_control As Control Dim nom_control As String 'Affectation de la même procédure à tous les objets du même nom sur l'évènement ON_CLICK For Each l_control In Controls If Left(l_control.name, 3) = "txt" Then nom_control = l_control.name l_control.OnClick = "=selcopi(nom_control)" End If Next End Sub Function selcopi(nom_control) nom_control.SetFocus nom_control.SelStart = 0 nom_control.SelLength = Len(nom_control.Text) 'le texte est sélectionné, il nous reste qu'à le copier. DoCmd.RunCommand acCmdCopy End Function
Partager