OVH Cloud OVH Cloud

Enregistrer des données

9 réponses
Avatar
lolo
Bonsoir,

Voila je veux faire des macros dans un fichier excel mais j'ai un
probl=E8me. J'ai un premier formulaire avec des boutons de commande
quand je clique sur enregistrer les donn=E9es j'arrive sur un second
formulaire avec une zone de liste d=E9roulante et 6 zones de texte.

J'ai un soucis car je voudrais enregistrer les donn=E9es sur des
feuilles diff=E9rentes qui correspondent aux donn=E9es de mes
r=E9ferences.
Sauf que pour enregistrer des donn=E9es en lignes je sais faire mais en
colonne je ne sais pas pouvez vous m'aidez ?
Second probl=E8me c'est sur le second formulaire je voudrais que mon
menu d=E9roulant s=E9lectionne la feuille sur laquelle je voudrais
enregistrer les donn=E9es est ce que cela est possible ?


Merci de votre aide

(Ci joint le fichier si je ne me suis pas bien fais comprendre) :
http://cjoint.com/?bmu076JdIi

9 réponses

Avatar
JB
Bonsoir,

http://cjoint.com/?bmvAPyPMtV

Private Sub B_ok_Click()
For i = 1 To 5
ActiveCell.Offset(i, 0) = Me("textbox" & i).Value
Next i
End Sub

Private Sub ChoixFeuille_Change()
f = Me.ChoixFeuille
Sheets(f).Select
End Sub

Private Sub LaDate_Change()
[B2:I2].Find(what:=Me.LaDate).Select
End Sub

Private Sub UserForm_Initialize()
Me.LaDate.List = Application.Transpose([ListeDates])
For i = 1 To 2
Me.ChoixFeuille.AddItem Sheets(i).Name
Next i
End Sub


Cordialement JB

Bonsoir,

Voila je veux faire des macros dans un fichier excel mais j'ai un
problème. J'ai un premier formulaire avec des boutons de commande
quand je clique sur enregistrer les données j'arrive sur un second
formulaire avec une zone de liste déroulante et 6 zones de texte.

J'ai un soucis car je voudrais enregistrer les données sur des
feuilles différentes qui correspondent aux données de mes
réferences.
Sauf que pour enregistrer des données en lignes je sais faire mais en
colonne je ne sais pas pouvez vous m'aidez ?
Second problème c'est sur le second formulaire je voudrais que mon
menu déroulant sélectionne la feuille sur laquelle je voudrais
enregistrer les données est ce que cela est possible ?


Merci de votre aide

(Ci joint le fichier si je ne me suis pas bien fais comprendre) :
http://cjoint.com/?bmu076JdIi


Avatar
lolo
Salut JB

Merci beaucoup pour ce que tu m'as fais c'est exectement ce que je
voulais maintenant je ne devrais plus avoir de problèmes

Merci beaucoup

A++

Lolo
Avatar
lolo
Salut

Voila le fichier que tu m'as renvoyé est nickel par contre je voudrais
avoir une zone de texte pour la date plutôt qu'une zone de liste
déroulante et que cela est possible et faut il beaucoup de
modifications pour le code ?

Merci de votre aide

A+

Lolo
Avatar
JB
Bonsoir,

http://cjoint.com/?botYyI7joz

Private Sub B_ok_Click()
For i = 1 To 5
ActiveCell.Offset(i, 0) = Me("textbox" & i).Value
Next i
End Sub

Private Sub ChoixFeuille_Change()
f = Me.ChoixFeuille
Sheets(f).Select
End Sub

Private Sub LaDate_AfterUpdate()
On Error Resume Next
[B2:I2].Find(what:=Me.LaDate).Select
If Err <> 0 Then
MsgBox "Date non trouvée"
End If
End Sub

Private Sub UserForm_Initialize()
'Me.LaDate.List = Application.Transpose([ListeDates])
For i = 1 To 2
Me.ChoixFeuille.AddItem Sheets(i).Name
Next i
End Sub

JB
Salut

Voila le fichier que tu m'as renvoyé est nickel par contre je voudrais
avoir une zone de texte pour la date plutôt qu'une zone de liste
déroulante et que cela est possible et faut il beaucoup de
modifications pour le code ?

Merci de votre aide

A+

Lolo


Avatar
lolo
Salut JB

Merci pour ce que tu viens de m'envoyer ca me servira pour la suite
mais en fait ce que je voudrais c'est pouvoir entrer la date dans mon
textbox et qu'elle s'affiche dans mon tableau
En fait j'aurais un tableau vierge sans rien ni date ni valeurs et je
voudrais pouvoir rentrer date et valeurs

Peux tu m'aider ?

Merci beaucoup

@++
Lolo
Avatar
JB
http://cjoint.com/?bouEH0xdLI

JB


Salut JB

Merci pour ce que tu viens de m'envoyer ca me servira pour la suite
mais en fait ce que je voudrais c'est pouvoir entrer la date dans mon
textbox et qu'elle s'affiche dans mon tableau
En fait j'aurais un tableau vierge sans rien ni date ni valeurs et je
voudrais pouvoir rentrer date et valeurs

Peux tu m'aider ?

Merci beaucoup

@++
Lolo


Avatar
lolo
Salut JB

Merci beaucoup our ton coup de pouce qui me sors vraiment d'une sacrée
m....
J'ai essayé d'utiliser ton code dans mon fichier final mais ca ne
fonctionne pas en fait je ne comprend pas comment il faut faire pour
donner une position aux données et que la colonne s'incremente....

Peux tu m'aider sur le fichier final
Je te remercie beaucoup pour tout et surtout pour le temps que tu y
passes...

http://cjoint.com/?bou1ea4JpU

@++
Lolo
Avatar
JB
http://cjoint.com/?bovmRV4XpZ

JB
Salut JB

Merci beaucoup our ton coup de pouce qui me sors vraiment d'une sacrée
m....
J'ai essayé d'utiliser ton code dans mon fichier final mais ca ne
fonctionne pas en fait je ne comprend pas comment il faut faire pour
donner une position aux données et que la colonne s'incremente....

Peux tu m'aider sur le fichier final
Je te remercie beaucoup pour tout et surtout pour le temps que tu y
passes...

http://cjoint.com/?bou1ea4JpU

@++
Lolo


Avatar
lolo
Merci beaucoup

J'ai compris comment faire pour inserer mes données à l'endroit voulu
donc normalement je ne devrais plus avoir de problèmes...

Merci beaucoup pour ton aide

@++

Bonne soirée
Lolo