Version imprimable
Bonjour à tous,
Je voudrais écrire par une formule sur une feuille exemple textbox1 est égale à A1 et que sur mon USERFORM1 textbox1 prenne la valeur de A1.
En gros comment écrire le code sur la feuille et transmettre la donnée sur l'USERFORM en showModal false.
merci
Bonjour,
et dans la mesure où ton UserForm a été chargé et où Valeur est ce que contient ta cellule :
Ce ne sera pas une "formule", mais du code (instruction) VBA à mettre dans l'évènement de ton choix.Code:UserForm1.TextBox1.Text = Valeur
Merci pour ta réponse très rapide, mais:
Sur mon box j'avais mis un code lorsqu'il change, mais mon code ne se réalise pas!!
comme si l'Userform est inactif?
Montre donc le code que tu as écrit (toute la procédure évènementielle) pour écrire sans la textbox de ton UserForm et celui que tu as écrit (toute la procédure également) pour vérifier que la modification a été effectuée.
Voici le code de ma feuille:Et sur mon userform:Code:
2
3
4
5
6
7
8
9
10
11
12
13
Le code est simple mais pas d'action. je pense qu'il faut rendre l'userform actif, mais commentCode:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
On va le savoir, si tu l'as ou non chargé :
Contente-toi de ceci :
sur ta feuille :
et dans UserForm1 :Code:
2
3
4
et rien d'autre.Code:
2
3
Et dis-nous ce qui s'affiche.
Et si tu as d'abord "oui : en plein changement", puis "toto", c'est que tout va bien de ce côté là et que c'est le reste (mais plus rien à voir avec ta question première) qui ne va pas.
Si rien ne s'affiche, c'est que UserForm1 n'est pas chargé
Test que tu aurais dû avoir le réflexe de faire avant tout.
PS : autre question : te serais-tu servi d'un "On Error Resume Next" ? (qui occulterait une erreur...)
EDIT : et tu devrais t'intéresser un peu à ce qu'est l'argument Target, plutôt que de te lancer dans un micmac pour le moins curieux, avec tes "select" (peu recommandables, d'ailleurs) ;)
Oui, tu as raison, je me suis rendu compte de mon erreur.
Car j'ai fait une bourde ds mon code aulieu de label 95 il fallait inscrire textbox 16. Car le label 95 était la recherche lors de l initialisation.:zoubi:
Donc maintenant un autre problème
Mon problème est que j'utilise un textbox change mais le code plante car le résultat du textbox n'est pas encore affiché que le code est lancé.
Pour que cela fonctionne je pourrais utiliser un textbox exit et ça fonctionne, mais je voullais ne pas avoir d'action sur l'userform pour ce code.
Rien compris ...
Nous ne sommes ni devant ton clavier, ni devant ton écran, ni dans ta pensée.
Alors explique de manière claire et détaillée ce dont il s'agit.
(et lis mon EDIT dans mon message précédent, dans la foulée).
OK, je vais essayer !
Pour ton code ça fonctionne !
Donc l’erreur n’est pas de l’Userform, mais plutôt dans mon code que j'ai modifier.
Maintenant le problème est que ça plante lors de la recherche, car lorsque je dbleClick sur ma feuille le résultat de ma cellule n’est pas encore affiché sur le textbox16 et le code se lance par contre, si je place mon code ds un « Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean) » alors ça fonctionne à condition que je sors de celui-ci.
Mais je voulais que l’utilisateur n’est pas d’action sur l’userform à ce moment.
J’espère que mon explication est assez claire , car en effet je n’arrive pas tjrs à expliquer mon problème ! En tout cas merci pour tes réponse.
Voici le code que j'avais modifiéCode:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Hé bien, c'est par là qu'il te va falloir commencer (si tu veux de l'aide) ...Citation:
Envoyé par jijie
Je ne vais tout de même pas "tomber" dans la récitation d'un certain dicton relatif aux choses claires et à la manière de les exprimer ...
Désolé, ami, mais si les choses sont claires, rien ne doit s'opposer à leur clair exposé. ;)... surtout en développement (qui dépend très lmargement de cette clareté de la pensée en vue de l'écriture d'une expression qui n'admet aucune faille)...
EDIT :
et commence par me modifier ce micmac (après avoir lu dans ton aide en ligne ce qu'était Target) ;)... ce sera un premier pas !
voilà ton micmac à modifier :
Code:
2
3
4
5
6
7
8
9
10
11
12
13
Merci Ucfoutu,
Mais je ne trouve pas d'information sur "Target":oops:
Ah ?
Regarde ta ligne :
Qu'est donc Target ? Tu ne vois pas ? Et quelles sont ses propriétés (à utiliser)Code:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Exemple, en ce qui concerne la propriété Row :
Citation de ce qu'en dit l'aide en ligne :
Bonne chance.Citation:
Row Cette propriété renvoie le numéro de la première ligne de la première zone de la plage. Type de données Long en lecture seule.