Copier-coller via TextBox

Version imprimable

26/05/2012, 08h38
eliot.raymond

Copier-coller via TextBox

Bonjour a tous et toutes, Bonjour Forum

J'ai un UserForm avec 5 Textboxs (1 à 5), une Feuil1 (Compte) pour stocker mes données
dont quelques cellules qui sont d'ailleurs renseignés avec ces TextBoxs
et j'ai deux soucis qui me tombe dessus.

(1) En allant sur un site, je récupère un solde en faisant un copier coller ensuite je retourne sur mon USF pour effectuer le copier coller dans le TextBox2 et le copier coller
ne fonctionne pas.

(2) Lorsque je modifie ma Feuil1 (Compte) par l'intermédiaire des TextBoxs, la Feuil1 se modifie bien immédiatement par contre pour voir les modifications sur l'USF il me faut fermer L'USF puis la rouvrir et la c'est bon.

Donc j'aurai souhaiter svp voir les modifications en Temps Réel

Voila j'espère m'être bien exprimer afin que cela soit bien compréhensible pour vous.

PS : J'entre mes données soient manuellement TextBox via la Feuil1(Compte) soit par copier-coller via les TextBoxs et via la Feuil1(Compte)

Je vous remercie pour votre temps et de votre aide
je vous souhaite une très bonne journée

Cdlt Ray
26/05/2012, 10h59
Paritec

Bonjour Raymond le forum
pour faire ce que tu souhaites il faudrait voir ton userform mais une solution simple et en cas de changement de la feuille de faire un userform.show, enfin si j'ai compris ce que tu veux, je suppose que tes données des textboxs sont validé avec un bouton? si oui dans le code du bouton à la fin tu rajoutes ton userform.show
a+
papou:)
26/05/2012, 11h51
ctac_
Bonjour,

Pour le 1, aucun menu n'est prévu dans le textbox.
A toi de le créer --> bonne chance !
Tu peux coller dans ton textbox avec Ctrl V ou décider que le bouton droit de la souris sert a coller.
Code:

1 2 3 Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = vbKeyRButton Then ActiveControl.Paste End Sub
Pour le 2, ce n'est pas clair pour moi.

Cordialement

ctac

Bonjour Paritec bonjour Ctac

Merci pour vos réponses c'est gentil a vous

je vous envoie un bout du code venant de ma compta en espérant que cela aidera a mon soucis, je refais des essais cette après midi avec vos conseils

bonne après midi a vous encore pour votre aide car je rame avec ces deux soucis :furax:

Cordialement Raymond

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
'*CREE BOUCLE DES REF DANS COMBOBOX(2) POUR CELLULES (E21 à P21)
Dim Mois(1 To 12) As String
For I = 1 To 12
   Mois(I) = Format(DateSerial(1, I, 1), "mmm")        
' POUR AFFICHER LE NOM DES MOIS
 
   ComboBox2.AddItem Chr(68 + I) & 21 & Space(1) & Mois(I)        
' AFFICHE REF CELLULE et MOIS
Next I
 
'*CREE BOUCLE DES  REF DANS COMBOBOX(3) POUR  CELLULES (E23 à P23)
For I = 1 To 12
   Mois(I) = Format(DateSerial(1, I, 1), "mmm")    
' POUR AFFICHER LE NOM DES MOIS
   ComboBox3.AddItem Chr(68 + I) & 23 & Space(1) & Mois(I)               '*AFFICHE REF CELLULE et MOIS
 
 
'*SELECTIONNE LA CELLULE OU SERA COPIER LA VALEUR ENTRER DANS TEXTBOX(2)
 
Private Sub Combobox2_Click()       ' Combobox(2) contient la REF des cellules
If ComboBox2.Value <> "" Then
   Range(Left(ComboBox2.Value, 3)) = TextBox2.Value
Else
   MsgBox "Choisir une cellule."
End If
End Sub
 
'*SELECTIONNE LA CELLULE OU SERA COPIER LA VALEUR ENTRER DANS TEXTBOX(3)
 
Private Sub Combobox3_Click()       ' Combobox(2) contient la REF des cellules
If ComboBox3.Value <> "" Then
   Range(Left(ComboBox3.Value, 3)) = TextBox3.Value
Else
   MsgBox "Choisir une cellule."
End If
End Sub
 
 
'* ON ENTRE LE SOLDE VIA LA CELLULE C20
 
Private Sub TextBox1_Change()
With Sheets("Compte")
   .Range("C20") = TextBox1.Value
End With
End Sub
 
'* ON ENTRE UNE VALEUR DESTINATION DANS LA ZONE (E21 à P21)
Private Sub TextBox2_Change()
   Ws.Range(Left(ComboBox2.Value, 3)) = TextBox2.Value
End Sub
 
'* ON ENTRE UNE VALEUR DESTINATION DANS LA ZONE (E23 à P23)
Private Sub TextBox3_Change()
   Ws.Range(Left(ComboBox3.Value, 3)) = TextBox3.Value
End Sub

26/05/2012, 17h18
eliot.raymond
Citation:
Envoyé par ctac_

Bonjour,

Pour le 1, aucun menu n'est prévu dans le textbox.
A toi de le créer --> bonne chance !
Tu peux coller dans ton textbox avec Ctrl V ou décider que le bouton droit de la souris sert a coller.

Code:

1 2 3 Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = vbKeyRButton Then ActiveControl.Paste End Sub

Pour le 2, ce n'est pas clair pour moi.

Cordialement

ctac
Salut Ctac,

Merci pour le code, j'ai essayer mais une erreur de ton code me dit

ceci "ActiveControl.Paste"

J'ai chercher mais pas trouver

Pour la question (2)

je renseigne ma Feuil1(Compte) avec des TextBoxs

La Feuil1 est bien actualiser en Temps réel
pour L'USF il faut que je ferme celle ci
puis je la réouvre et l'USF est mise a jour ?????? bizarre pour moi

Merci a toi

A plus tard Ray
26/05/2012, 19h27
ctac_

Citation:

Merci pour le code, j'ai essayer mais une erreur de ton code me dit

ceci "ActiveControl.Paste"

Un petit peu plus de détails ne serait pas superflu.
Ou est le code? Option Explicit est il présent? a tu essayer Ctrl V? etc...

Pour le 2 : Aucun détail supplémentaire par rapport a la premiére intervention.
Ces textbox sont ou ? L'UF est toujours affiché? etc...

Cordialement

ctac
27/05/2012, 08h37
eliot.raymond

Bonjour Ctac, bonjour forum

Le code explicit est présent, l'option Ctrl V copier coller c'est ok, le clic droit sur L'USF ne fonctionne pas, mon fichier a un module de classe pour gérer 14 checkboxs sert juste a afficher un message de validation "Prélèvement Valider"
juste du texte

le bout de code poster hier est dans l'initialisation de l'USF le reste du code est deux boutons liens pour aller sur sites banque et reste données perso.

les textboxs sont sur l'USF qui est afficher des l'ouverture du fichier
mon premier post résume pourtant bien me semble t'il les deux soucis qui me tracasse

le clic droit sur l'usf pour un copier coller dans les textboxs ne marche
après modification de la feuil1(Compte) que je remplie avec les textboxs
la mise a jour de l'usf en temps réel ne se fait pas

dès que je ferme l'usf et que je réouvre l'usf là les modifications sont bien sur l'usf

pas faute d'avoir chercher et fait de multiples essais

si tu veux savoir autre chose dit car je ne sais pas de quoi tu a besoin

je te souhaite un bon dimanche et merci pour ton aide

Cdlt Ray

Bonjour a toutes et tous forum

Bon alors c'est foutu mon post

pas grave tant pis

Bonne après midi

Cdlt

Bonsoir

Merci j'ai trouver

Cdlt