chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009
-
24 janv. 2008 à 23:06
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
2 févr. 2008 à 12:19
Bonjour,
je suis dans excel. j'ai des données à mettre en fichier texte. ex : nom : pierre. CA 2500 date : 01/02/2007
je voudrais mettre ceci en fichier texte. le problème est que je voudrais les mettre en variables de telle manière que le CA s'additionne. est ce possible ? merci
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 25 janv. 2008 à 22:49
J'ai pas compris grand chose, mais ça devrait pouvoir se faire... Mais il faudrait que tu expliques un peu mieux ce que tu cherches à faire. Qu'est-ce que tu entends par addition ?
J'imagine qu'il faudrait que tu fasses tes additions dans ton programme Excel avant de les inscrire dans ton fichier texte... Ça peut être sur une feuille comme ça peut être dans des variables.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009 26 janv. 2008 à 18:43
Bonjour,
voilà la situation :
alain a fait un ca de 2500 le 01/02/2007
didier a fait un ca de 2541 le 01/02/2007
serge a fait un ca de 145 le 01/03/2007
sophie a fait un ca de 254 le 01/02/2007
je mets dans le fichier texte :
Private Sub CommandButton1_Click()
Dim nom As String, ca As Integer, jour As Date
Dim nombre As Integer
nombre = InputBox("combien de ca allez vous entrer ?")
Dim i As Integer
For i = 1 To nombre
nom = InputBox("entrez le nom")
ca = InputBox("entrez le ca")
jour = InputBox("entrez la date")
Open "ca" For Append As #1
Print #1, , , nom; vbTab; ca; vbTab; jour
Close #1
Next
End Sub
voilà le résultat obtenu quand j'appelle le fichier texte.
alain 2500 01/02/2007
didier 2541 01/02/2007
serge 145 01/03/2007
sophie 254 01/02/2007
dans une date ultérieure je voudrais pouvoir additioner le ca total de chaque vendeur.
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 27 janv. 2008 à 15:05
Dans ton fichier texte, j'entrerais les données telles que tu le fais présentement. Si tu veux savoir le CA total pour une personne, tu rouvres ton fichier et tu le lis ligne par ligne en additionnant les CA si la personne est celle recherchée.
Ton fichier est une sorte de base de données, donc il n'est pas nécessaire de faire des calculs dans celui-ci; tu les fais seulement au besoin. Éventuellement, tu pourrais vouloir voir le plus petit et le plus haut CA pour une personne donnée. Si la somme a été faite dans le fichier, ce sera impossible.
Attention à la façon dont tu inscris les données dans ton fichier.
ex: nom = UCase(InputBox("entrez le nom"))
En forçant la donnée en majuscule, tu seras certain de toujours avoir le même format dans ton fichier pour des recherches ultérieures.
Ce pourrait être des minuscules (LCase)
ou encore la première lettre en majuscule
StrConv(InputBox("entrez le nom"), vbProperCase)
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Vous n’avez pas trouvé la réponse que vous recherchez ?
chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009 2 févr. 2008 à 11:55
Bonjour,
je vous remercie de m'avoir donné une réponse mais j'ai encore tenté de faire l'exercice et cela ne fonctionne pas :
j'ai le nom et le ca.
nom : alain
ca : 150
nom : pierre
ca : 200
nom : alain
ca : 26
nom : pierre
ca : 10
et ce que je voudrais c'est que quand je rappelle le fichier texte en lecture j'ai :
alain 176
pierre 210
et ce que j'arrive à avoir actuellement c'est
alain 150
pierre 200
alain 26
pierre 10
comment faire pour additionner les variables au moment de la lecture du fichier ? merci encore pour votre aide