[VBA-E]Comment n'envoyer que certaines données d'une userform vers excel

Version imprimable

18/05/2006, 08h44
jamelie

[VBA-E]Comment n'envoyer que certaines données d'une userform vers excel

Bonjour,
je souhaite envoyer les données de ma userform vers excel, ce qui fonctionne. Mais, je ve que seulement certaines données soient envoyées et pas d'autres. Est ce que c'est possible? et comment dois-je faire?
Si quelqu'un a la solution ce serait génial. merci

Jamelie
18/05/2006, 08h49
jmfmarques

En attendant que les spécialistes VBA arrivent :
Edite ton sujet et complète le par les informations dont ils auront sans aucun doute besoin : Comment les sélectionnes-tu ? Des "Ranges" ou par expression conditionnelle ?
Ces pérécisions vont leur être nécessaires pour ne pas commencer à travailler à l'aveugle !:cry: Et celà permettra d'éviter des messages complémentaires !
18/05/2006, 09h11
Vesta

Bonjour,

Pourrais tu m'expliquer comment fonctionne cete partie la?
Parce que pour fair ele lien entre la fenetre et les feuilles du classeur tu as surement utilisé du code... Pourquoi ne pas enlever les lignes qui transmette les informations non souhaitées?

Citation:

je souhaite envoyer les données de ma userform vers excel, ce qui fonctionne.

Et quel genre de données ne veut tu pas transmettre dans excel?
18/05/2006, 09h13
Theocourant

Citation:

Envoyé par jamelie

Bonjour,
je souhaite envoyer les données de ma userform vers excel, ce qui fonctionne. Mais, je ve que seulement certaines données soient envoyées et pas d'autres. Est ce que c'est possible? et comment dois-je faire?
Si quelqu'un a la solution ce serait génial. merci

Jamelie

Salut,

Je ne comprends pas ta (tes) questions car par définition ta userform est attachée au fichier Excel dans laquelle elle se trouve.
Il est possible de séparer les routines et les fonctions que tu définies de celles visibles par l'utilisateur en les déclarant en Private mais est-ce que cela correspond ???

Comme le signale jmfmarques : on a besoin de plus d'info

Il faudrait également préciser dans le titre du sujet (au début) que cela concerne le VBA et Excel avec le "tag" : [VBA] ou [VBA-E]

Merci d'avance

Théo

Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CdBSave1_Click() Dim i As Integer For Each ctrl In Reclam.Controls If TypeOf ctrl Is MSForms.TextBox Then i = i + 1 Worksheets("BDD1").Cells(2, (2 + i)) = ctrl End If Next UserForm1.Hide End Sub
ce code me permet d'avoir les données entrées dans ma userform dans excel avec une donnée par colonne. le problème c'est que dans ma userform j'ai des onglet(controle multipage) chaque onglet contient des données. par exemple dans le premier j'ai les réclamations je dois entrer le nombre de réclamations et le tonnage de produits vendus pour chaque produit ce qui me représente 26 textbox mais à coté de celles ci il y a 13 autres textbox qui serviront à faire apparaitre le rapport des réclamations par le tonnage donc un résultat. je veux que dans ma base de données n'apparaissent que les réclamations et le tonnage mais pas le résultat.
Je sais pas trop si je suis plus claire, si vous voulez plus d'info il n'y a pas de probleme.
Merci beaucoup
Jamelie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CdBSave1_Click()
Dim i As Integer
For Each ctrl In Reclam.Controls
If TypeOf ctrl Is MSForms.TextBox Then
if ctrl.tag =1 
      i = i + 1
      Worksheets("BDD1").Cells(2, (2 + i)) = ctrl
End If
End If 
Next
UserForm1.Hide
End Sub

Met l'option Tag du controle text a 1 pour les controles a garder Je suis génial lol:

18/05/2006, 11h25
jamelie

vous allez penser que je suis tres chiante mais j'ai encore une autre contrainte. maintenant que j'ai réussi à selctionner l'onglet comment je fais si je veux que certaines données (textbox )se classent dans excel et pas d'autres? :D
parce que j'ai 26 textbox à remplir dans cet onglet et 13 autres qui se remplissent toutes seules par le résultat de la différence des deux autres. je veux que les 26 données apparaissent sous excel mais pas les 13 autres.
Désolée d'etre aussi compliquée.
Merci de votre aide
Jamelie
18/05/2006, 11h28
Vesta

Alors a mon avis faudra coder controle par control, plus dans une boucle...
18/05/2006, 12h18
jamelie

ouai.. bah j'ai rien compris;désolée j'ai l'impression que c'est du chinois la. c'est pas grave je vais essayer autrement.
merci quand même.
Jamelie
18/05/2006, 12h22
ouskel'n'or

Comment sont créés tes textbox ? En dynamique ?

A+
18/05/2006, 12h28
jamelie

en dynamique ca veut dire ?
je les ai crée à partir de la boite à outil controle. je sais pas si c'est ce que vous vouliez savoir.
18/05/2006, 12h32
ouskel'n'or

Donc, tu les as créées "en dur" et tu connais le nom de celles dont tu veux recopier les valeurs sur la feuille Excel.
Tu crées un tableau de leurs noms et tu ne copies les données que des seuls textbox du tableau.

Tu dis... mais j'ai besoin de me restaurer... Ce sera après le repas si personnes ne passe par là ;)

A+

oui c'est exactement ca.
mon tableau excel est crée.
j'ai changé le code par rapport à ce qui a été ecrit plus haut
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub CdBSave1_Click() With BDD1 Cells(1, 0).Formula = RECAnnée.Text Cells(1, 1).Formula = RECMois.Text Cells(1, 2).Formula = REC1.Text Cells(1, 3).Formula = REC2.Text Cells(1, 4).Formula = REC3.Text Cells(1, 5).Formula = REC4.Text Cells(1, 6).Formula = REC5.Text Cells(1, 7).Formula = REC6.Text Cells(1, 8).Formula = REC7.Text Cells(1, 9).Formula = REC8.Text ... Cells(1, 28).Formula = REC27.Text End With UserForm1.Hide End Sub
mais la il me dit qu'il y a une erreur : objet requis
et je sais pas ce que je dois mettre.
puis je veux que sur la ligne ou s'inscrit les donnée, l'année et le mois( qui ont été selectionné avant dans une autre interface) apparaissent .

Moi aussi je vais manger donc à toute.
Jespere que je suis un ti peu plus claire.
merci de votre aide.
jamelie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CdBSave1_Click()
With Worksheets("BDD1") 
 .Cells(1, 0).Formula = RECAnnée.Text
 .Cells(1, 1).Formula = RECMois.Text
 .Cells(1, 2).Formula = REC1.Text
  .Cells(1, 3).Formula = REC2.Text
  .Cells(1, 4).Formula = REC3.Text
  .Cells(1, 5).Formula = REC4.Text
  .Cells(1, 6).Formula = REC5.Text
  .Cells(1, 7).Formula = REC6.Text
  .Cells(1, 8).Formula = REC7.Text
  .Cells(1, 9).Formula = REC8.Text
...
  .Cells(1, 28).Formula = REC27.Text
End With
UserForm1.Hide
End Sub

18/05/2006, 14h09
ouskel'n'or

Tu fais "With BDD1"
C'est quoi BDD1 ? Pour l'utiliser, il faut que l'instance soit faite dans la procédure en cours, à moins que tu aies déclaré ça en public dans un module, avant d'ouvrir ta form

Tu dis

A+
18/05/2006, 14h14
jamelie

BDD1 c'est la feuille excel sur laquelle doit arriver mes donnée. J'ai changé le début du code comme me la dit Vesta. Mais ca me met toujours la même erreur:objet requis.
Merci de votre aide c'est super sympa
18/05/2006, 14h15
Vesta

BDD1 c'est le nom de sa feuille d'ou ma réponse...

Regarde le code un rien plus haut...
18/05/2006, 14h22
ouskel'n'or

Ok, alors relis mon message plus haut ce que je dis à propos de l'instanciation de la feuille ou écris ce qu'a mis Vesta

Code:

With Worksheets("BDD1")

A+
18/05/2006, 14h28
jamelie

j'ai ecri ce que ma dit vesta mais ca marche pas. je comprend pas ce qu'est l'instanciation de la feuille ou le fait que je doive déclarer ca dans un module.

Essaie ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Private Sub CdBSave1_Click()
With Worksheets("BDD1")
    Cells(1, 0).Formula = RECAnnée.Text
    Cells(1, 1).Formula = RECMois.Text
    Cells(1, 2).Formula = REC1.Text
    Cells(1, 3).Formula = REC2.Text
    Cells(1, 4).Formula = REC3.Text
    Cells(1, 5).Formula = REC4.Text
    Cells(1, 6).Formula = REC5.Text
    Cells(1, 7).Formula = REC6.Text
    Cells(1, 8).Formula = REC7.Text
    Cells(1, 9).Formula = REC8.Text
'...
 Cells(1, 28).Formula = REC27.Text
End With
DoEvents
UserForm1.Hide
End Sub

J'ai simplement ajouté DoEvents
Le nom de ta feuille est bien BDD1 ? BDD1 n'est pas une variable ?

A+

18/05/2006, 14h56
Vesta

Le DoEvents n'est pas une solution miracle non plus hein :p ca regle souvent pas mal de prob mais la ca ne sert a rien...
18/05/2006, 14h58
ouskel'n'or

Je réponds à ça

Citation:

j'ai ecri ce que ma dit vesta mais ca marche pas. je comprend pas ce qu'est l'instanciation de la feuille ou le fait que je doive déclarer ca dans un module.

Laisse tomber, c'est ta façon d'utiliser BDD1 qui m'a trompé. Rien à déclarer, tu peux passer la frontière tranquille :mouarf:

A+
18/05/2006, 15h00
Vesta

Le prob c'est sa facon de nommer les choses...

peu etre la

Code:

formname.REC27.Text

*

Ou alors elle a pas vu que j'ai mis des points devant tt ses lignes

Code:

.Cells(1, 9).Formula = REC8.Text
18/05/2006, 15h02
ouskel'n'or

Citation:

Le DoEvents n'est pas une solution miracle non plus hein :p ca regle souvent pas mal de prob mais la ca ne sert a rien...

Ah non ? Et qu'en est-il si la form est rendue invisible alors qu'on cherche à lire ce qu'il y a dedans ? Comme je ne le sais pas (jamais testé) le doevents peut, peut-être, arranger les choses... Et comme je ne vois pas d'autre pb... attendons la réponse de jamelie ;)

A+
18/05/2006, 15h06
Vesta

ca marche... Mais bon la on la rend invisible apres avoir lu les données...

attendons...
18/05/2006, 15h14
ouskel'n'or

Citation:

Mais bon la on la rend invisible apres avoir lu les données...

Non, c'est là le pb. Le programme se poursuit même si les cellules ne sont pas encore mises à jour. Et comme je ne sais pas ce qu'il se passe dès lors que l'on fait un Hide... tc'estesrats ;)

A+
18/05/2006, 15h18
jamelie

ca me met toujours un message d'erreur objet requis et ca me selectionne la ligne

.Cells(1,0).formula = RECAnnée.text

ca me la surligne en jaune ca bloque des le début
18/05/2006, 15h30
ouskel'n'or

Citation:

.Cells(1,0).formula = RECAnnée.text

effectivement, si tu mets 0 comme N° de colonne, ça ne pourra jamais fonctionner. Revoie ce que tu fais et donne un N° de colonne existant !

Un bêêêêtise grosse comme ÇA et je ne l'avais même pas vue... :scarymov:
18/05/2006, 15h34
jamelie

ca me met toujours la même erreur et à la même ligne
18/05/2006, 15h36
ouskel'n'or

Mets-nous ton "nouveau" code

A+
18/05/2006, 15h43
jamelie
c'est le mêm avec juste le 0 qui est devenu un1 et donc tous les autres chiffres sont décalés de 1
Code:

1 2 3 4 5 6 7 Public sub CdBSave1_click() With worksheets("BDD1") .Cells(1, 1).Formula = RECAnnée.List .Cells(1, 2).Formula = RECMois.Text .Cells(1, 3).Formula = REC1.Text ...
Mais le problème vien peut etre du fait que RECAnnée et RECMois proviennent d'une autre userform que celle utilisée pour REC,2,3..
Mais je sais pas du tout c'est juste une idée comme ca
18/05/2006, 15h52
Vesta

Citation:

Mais le problème vien peut etre du fait que RECAnnée et RECMois proviennent d'une autre userform que celle utilisée pour REC,2,3..
Mais je sais pas du tout c'est juste une idée comme ca

Ca peu surement venir de la...

formname.nomducontrole.propriétévoulue

FORMNAME.RECAnnée.text
18/05/2006, 16h11
jamelie

ça marche toujours pas : erreur au même endroit...
18/05/2006, 16h19
ouskel'n'or

La form en question, elle est invisible ou fermée (Hide ou unload) ?

A+
18/05/2006, 16h25
Vesta

Si elle est fermée c'est mort...
18/05/2006, 18h30
jamelie

c'est bon les gars vous inquiètez pas j'ai réussi à le faire fonctionner. il fallait juste que je rajoute userform4 devant RECAnnée et devant RECmois parce que ces données sont selectionnées dans la userform4 alors que les suivantes sont selctionnées dans la userform1.
Merci beaucoup de votre aide ca ma permi de bien avancer.
Bonne soirée à tous.
Jamelie

Fuseau horaire GMT +2. Il est actuellement 06h34.