Envoi de données dans une feuille suivant une condition

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion lolo_bob2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lolo_bob2

Guest
Bonjour à tous

J'essaye toujours d'améliorer mon VB en developpant de petite application et cette fos ci j'essaye de developper un petit programme pour mes comptes.
J'ai crée un formulaire d'enregistrement mais j'ai un soucis j'arrive à envoyer les données aux endroit souhaité le seul problème est le suivant
Je voudrais quand je selectionne un mouvement "credit" ou "debit" la somme se mette soit dans la colonne credit soit dans la colonne debit

Pouvez vous m'aider ?

Merci

A++

Lolo
 
Trier par date Trier par votes
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
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
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
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:
Vote positif 0 Vote négatif
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
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Colonne de la feuille 1 envoyer en une ligne sur la feuille 2
Réponses
0
Affichages
551
marcmarc
M
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
932
minamas
M
M
  • Question Question
Microsoft 365 Formule SI avec condition de nom - recopiée sur une autre feuille
Réponses
11
Affichages
1 K
macca
M
B
  • Résolu(e)
XL 2016 Selectionner date la plus proche au supérieur de la date d'aujourd'hui
Réponses
5
Affichages
1 K
babacool22
B
J
  • Question Question
XL 2016 Saisir des données dans une feuille non active
Réponses
7
Affichages
1 K
Julieneymery
J
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
3 K
Rom1-51
R
D
  • Question Question
XL 2010 Insertion de colonne dans une feuille excel par code vba sans ecraser les données existantes
Réponses
3
Affichages
1 K
sylvanu
sylvanu
Y
  • Question Question
XL 2016 copier une colonne de données dans tous les fichiers d'un répertoire et les coller les unes à la suite des autres dans une feuille excell
Réponses
4
Affichages
2 K
job75
job75
P
  • Question Question
XL 2013 Pb VBA sur transfert de données d'une feuille à l'autre
Réponses
2
Affichages
862
JBARBE
JBARBE
S
  • Question Question
Microsoft 365 Ajout en fin de colonne dans un fichier fermé avec ADO
Réponses
0
Affichages
905
Street filou
S
P
  • Question Question
XL 2010 Macro pour récupérer des données de feuilles hebdomadaires dans une feuille annuelle
Réponses
0
Affichages
1 K
Phil22
P
O
  • Question Question
XL 2013 Extraire des données d'Excel, publiposter dans un modèle Outlook et envoi automatique de mails
Réponses
0
Affichages
1 K
Olivier SP
O
A
  • Question Question
Recherche de données dans une même colonne avec condition
Réponses
1
Affichages
861
vgendron
vgendron
M
  • Question Question
XL 2010 Macro envoi mail outlook et recherche contacts dans une base de données
Réponses
0
Affichages
2 K
mehdisqualli
M
T
  • Question Question
Copier/Coller des données de plusieurs feuille vers une autre feuille.
Réponses
9
Affichages
2 K
pouns94
P
B
  • Question Question
Problème de Recherche de données a partir d'un USF dans fichier fermé avec ADO
Réponses
7
Affichages
1 K
Bosco13
B
A
  • Question Question
Trier une base de données suivant le choix fait dans la zone de liste
Réponses
7
Affichages
1 K
Arnold35
A
D
  • Question Question
VBA et regroupement de données
2
Réponses
26
Affichages
4 K
Dranreb
Dranreb
M
  • Question Question
Extraction de données textuelles avec importation dans une autre feuille
Réponses
6
Affichages
1 K
michir
M
S
  • Question Question
Vba et insertion de données dans une feuille
Réponses
0
Affichages
1 K
sougrinoma
S
Retour