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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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+

Voir 40 message(s) de cette discussion en une page