Envoi de données dans une feuille suivant une condition

L

lolo_bob2

Guest

• 5 Août 2007

• #2

Re : Envoi de données dans une feuille suivant une condition

Rebonjour

Avec la pièce jointe c'est mieux !! lol


Merci de votre aide

 

Pièces jointes

• Comptes.zip

  21.8 KB · Affichages: 36
• Comptes.zip

  21.8 KB · Affichages: 37
• Comptes.zip

  21.8 KB · Affichages: 39

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 5 Août 2007

• #3

Re : Envoi de données dans une feuille suivant une condition

Bonjour lolo_bob2, re le forum,

Ne vois pas dans ma réponse quelques animosités qui soient....

J'ai ouvert ton fichier, tout à l'heure....

J'ai eu le temps de faire un test, c'était sur juillet, me semble-t'il.

J'ai bien renvoyé les valeurs.

Seulement, plusieurs choses :

Le plein écran comme ici, c'est bien, mais imagines le petit gars qui, par curiosité, ouvre ton fichier, il n'y connais rien et n'a plus le même excel et il panique....

Donc lorsqu'on dépose, on évite tous les artifices..... 1er point.

2ème point : lorsque l'on sait faire cela et qu'en plus, (mon expérience, tout à l'heure) les valeurs sont bien renvoyées dans la bonne feuille (coup de bol ou pas???), on peut aussi faire un test : si débit ...., si crédit ..... ce n'est pas plus difficile... Il faut peut-être mettre les mains à la pâte, NON.

Désolé, un peu en colère, même si ce n'est pas mon habitude....

Mais j'ai tout planté.... La faute à qui, je n'en sais rien.... mon poste, un peu fatigué, ton fichier.... je ne sais pas plus..... et je n'ai même pas eu le temps de voir tes codes...

A te lire, mais pour ce fichier, c'est sans moi.

Bon dimanche

Jean-Pierre

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 5 Août 2007

• #4

Re : Envoi de données dans une feuille suivant une condition

Bjr à vs deux,

Il semblerait que tu maîtrises Excel et VBA.

Au vu du message précédent, je vais évité d'ouvrir ton fichier, je dirais juste :

La formule qui me semble le mieux est :
If - Then - Else

Mais bon... il en existe peut-être d'autre tout aussi performante, voir plus.

Bon WE

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 5 Août 2007

• #5

Re : Envoi de données dans une feuille suivant une condition

Jean Pierre

Merci pour ta réponse, j'essaye d'apprendre tt seul, les codes que j'ai réalisé avant je les trouve un peu a gauche a droite et j'essaye de les appliquer dans mes cas...
Sur certains point je bloque
Ici Je pense qu'il faut utiliser un If then else mais je ne vois pas comment envoyer la valeur dans la cellule....(cf feuile de janvier)

Encore merci pour ta réponse...

A++

Lolo

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Août 2007

• #6

Re : Envoi de données dans une feuille suivant une condition

Salut tout le monde,

Le problème du copiage de code, c'est qu'on ne comprends rien à ce que l'on met 🙄

Et un test aussi simple que "If ... then ... else ... endif" devient vite génant !

Je serais toi j'étudierais quelque peu le VBA, mais bon tu fais comme tu veux.

Pour le code il faut mettre :

Code:

Private Sub Valider_Click()
'If Me.ChoixFeuille = "" Then
  '   MsgBox "Choisir une feuille!"
 ' Else
f = Me.ChoixFeuille
'Sheets(f).Select
z = Sheets(f).Range("A65536").End(xlUp)(2).Row
Cells(z, 1).Value = LaDate.Value
If Me.Mouv.Value = "CREDIT" Then
  Cells(z, 2).Value = Somme.Value
Else
  Cells(z, 3).Value = Somme.Value
End If
Cells(z, 4).Value = Genre.Value
 
 MsgBox ("Merci d'avoir enregistré les données")
'End If
End Sub

Voilà 😉

 

Dernière modification par un modérateur: 5 Août 2007

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 5 Août 2007

• #7

Re : Envoi de données dans une feuille suivant une condition

Merci à vous pour votre aide

Après plusieurs essais j'ai trouvé la solution...il est vrai que je devrais me mettre à apprendre plus en detail le VBA le problème c'est qu'on me demande de faire des programme pour l'entreprise et il ne me paye pas de formation...

donc j'apprends sur le tas comme on dit...

A++

Lolo

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 5 Août 2007

• #8

Re : Envoi de données dans une feuille suivant une condition

Re lolo_bob2,

Tu sais, nous sommes tous passé par là.....

1) Excuses ma facherie de tout à l'heure, vraiment pas intentionnelle....

Seulement tout planter m'aggace un tout petit peu...

2) Tu as trouvé, c'est bien, surtout pour toi.... Un pas de plus et c'est le principal.

3) Et dans l'intérêt de tout le forum, et surtout de ceux, qui comme nous, cherchent... Peux-tu nous donner ta solution....

Je t'en remercie et beaucoup d'autres aussi.

A te lire et sans rancunes, j'espère.

Jean-Pierre

Edit : Et si tu postes un nouveau, fichier, essaies de neutraliser les artifices en question...

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 5 Août 2007

• #9

Re : Envoi de données dans une feuille suivant une condition

Pas grave Jean Pierre,

Pour les artifices je vais enlever ça...

voici le code que j'ai mis :

Code:

Private Sub Valider_Click()

f = Me.ChoixFeuille
z = Sheets(f).Range("A65536").End(xlUp)(2).Row

Cells(z, 1).Value = LaDate.Value
Cells(z, 4).Value = Genre.Value

If Mouv.Value = "CREDIT" Then
Cells(z, 2).Value = Somme.Value
Else
Cells(z, 3).Value = Somme.Value
End If
If Mouv.Value = "DEBIT" Then
Cells(z, 3).Value = Somme.Value
Else
Cells(z, 2).Value = Somme.Value
End If
 MsgBox ("Merci d'avoir enregistré les données")
Enregistrement.Hide
Menug.Show
End Sub

Bonne fin de journée

@++
Lolo

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 5 Août 2007

• #10

Re : Envoi de données dans une feuille suivant une condition

Re lolo,

Pas grave non plus,

Ce que je remarque, c'est l'esprit d'équipe.... MERCI à toi...

Je n'ai plus excel ouvert, je vais donc voir plus tard en ce qui me concerne

Heureux de t'avoir bousculé un peu.....

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 5 Août 2007

• #11

Re : Envoi de données dans une feuille suivant une condition

Merci de m'avoir bousculé...

Une dernière question qui me bloque et je ne sais pas vraiment quoi faire.
Voila quand je rentre des données avec le form Enregistrement si je veux en enregistrer un second cela ne fonctionne pas car il garde en mémoire l'enregistrement précedent
Je sais pas si je suis bien clair dans ma demande mais j'aimerais pouvoir rentrer plusieurs fois des mouvements sans quitter le programme

Merci de votre aide

A++

Lolo

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2007

• #12

Re : Envoi de données dans une feuille suivant une condition

Bonjour Lolo, Jean-Pierre, Bruno

essaye peut être de modifier la fin de la macro comme ci dessous, tu remplace "Enregistrement.Hide" qui a pour effet de masquer l'USF sans le décharger, alors que "Unload" le ferme en vidant la mémoire :

Code:

unload Enregistrement
Menug.Show
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 5 Août 2007

• #13

Re : Envoi de données dans une feuille suivant une condition

Merci

Ca fonctionne

@++

Lolo

 

Vote positif 0 Vote négatif