Discussion :

[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

[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 ! Et celà permettra d'éviter des messages complémentaires !

[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?

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?

[Theocourant]

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

[jamelie]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

[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?
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

[Vesta]

Alors a mon avis faudra coder controle par control, plus dans une boucle...

[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

[ouskel'n'or]

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

A+

[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.

[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+

[jamelie]

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 :

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
 
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

[Vesta]

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
 
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

[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+

[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

[Vesta]

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

Regarde le code un rien plus haut...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("BDD1")

A+

[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.

[ouskel'n'or]

Essaie ça

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
 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+