FORUM Tom's Hardware » Programmation » Autre » [VBA]creer une macro qui echange des donnees entre feuilles
 

[VBA]creer une macro qui echange des donnees entre feuilles

Il y a 205 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : [VBA]creer une macro qui echange des donnees entre feuilles
 
ptitity
Plus d'informations
n°20835
01-05-2006 à 09:19:07

Bonjour a tous,

je debute sur vba et aurais besoin d'aide pour programmer une macro.

je vous explique:
j'ai feuil1 (qui est ma source de donnees) avec en colonne A les noms de 9 sites, en colonne B des numeros de serie et en colonne D des quantites.
Debut de liste ligne 2.
Il y a des doublons car le meme numero de serie peut apparaitre dans chaque site.

Je souhaite renvoye les quantites sur une nouvelle feuille deja existante (feuil2) mais en separant les noms de sites par colonne.
Debut de liste ligne 5.
Cela m'evite les doublons.
le numero de serie est en colonne A, les quantites s'inscrivent dans 9 colonnes (F a N) correspondant aux 9 sites que je separe.

La macro doit donc garder les quantites en fonction du site mais aussi du numero de serie.

En plus si un nouveau numero de serie apparait dans feuil1, la macro doit pouvoir l'inserer automatiquement dans feuil2.
Et si un numero de serie disparait dans feuil1, la valeur 0 doit apparaitre dans feuil2.

Si vous pouviez m'aider, merci.

Nova13
le corps s'évade, les idées persistent.
Plus d'informations
n°20855
02-05-2006 à 10:33:48

donne nous des extraits de ton prog qui te posent des problèmes (oublie pas les balises [code], sinon y en a un qui va gueuler ' :o ' :D ).
Compte sur personne pour te pondre ton prog, seulement pour t'aider.

ptitity
Plus d'informations
n°20899
03-05-2006 à 13:55:11

je suis actuellement en train de tenter plusieurs trucs... mais ca ne marche pas. Je persevere. Des que j'ai un bout de code qui fonctionne, je l'envoie... des suggestions sont bienvenues.merci

ptitity
Plus d'informations
n°21082
08-05-2006 à 22:36:50

j'ai commence un programme pour recherche unique (qui marche) mais je voudrais la generalisee pour tout les parts... mais je n'y arrive pas.
quelqu'un peut m'aiguiller ?
merci.

Code :
  1. #include<stdio.h>
  2. #include<sys.socket.h>
  3. #include<netinet/in.h>
  4. #include<netdb.h>
  6. Dim vSite As String
  7. Dim vPart As Variant
  8. Dim vPrime As Variant
  9. Dim vCellule As Object
  11. vSite = Sheets("dlyinveu" ).[A394]
  12. vPart = Sheets("dlyinveu" ).[B394]
  13. vPrime = Sheets("Inventory" ).[A60]
  15. For Each vCellule In Sheets("Inventory" ).[F60]
  16.     If vSite = "Athens" And vPart = vPrime Then
  17.     Sheets("dlyinveu" ).[D394].Copy
  18.     vCellule.PasteSpecial Paste:=xlValues
  19.     Application.CutCopyMode = False
  20.     End If
  21. Next
  23. End Sub
ptitity
Plus d'informations
n°21083
08-05-2006 à 22:38:00

Code :
  1. Dim vSite As String
  2. Dim vPart As Variant
  3. Dim vPrime As Variant
  4. Dim vCellule As Object
  6. vSite = Sheets("dlyinveu" ).[A394]
  7. vPart = Sheets("dlyinveu" ).[B394]
  8. vPrime = Sheets("Inventory" ).[A60]
  10. For Each vCellule In Sheets("Inventory" ).[F60]
  11.     If vSite = "Athens" And vPart = vPrime Then
  12.     Sheets("dlyinveu" ).[D394].Copy
  13.     vCellule.PasteSpecial Paste:=xlValues
  14.     Application.CutCopyMode = False
  15.     End If
  16. Next
  18. End Sub



erreur de novice !!!

zeb
Profil : Modérateur libre
Plus d'informations
n°21112
09-05-2006 à 14:42:56

:lol: Ne pas tout confondre.
C'est OK, maintenant ?


Aller à :
Ajouter une réponse
 
  FORUM Tom's Hardware » Programmation » Autre » [VBA]creer une macro qui echange des donnees entre feuilles

Plan du forum
Forum MesDiscussions.Net, Version 2007.1.2
© 2000-2007 No1Dev
Page générée en 0.343 secondes
Annonces Google
Publicité
Sujets relatifs
voir tout
Actualités relatives

VIA signe pour améliorer ses solutions audio

Publié le 05 March 2003

Afin d'améliorer la qualité de ses solutions audio (spécialement celles embarquées dans ses chipsets), VIA vient de signer un accord de licence de technologie avec l'anglais Sensaura. Au menu de cet échange, Sensaura permettra à VIA d'inté Lire la suite

iPhone : pas de data illimitée pour les forfaits allemands

Publié le 30 October 2007

T-Mobile l’opérateur exclusif de pour l’iPhone en Allemagne, vient de rendre publics les forfaits qu’il proposera avec l’iPhone. Trois versions seront proposées à 49, 69 et 89 euros, mais pour autant les données ne seront pas illimitées comme aux U.S.A. U Lire la suite

Un racketteur en moins

Publié le 07 June 2006

Les têtes pensantes de la sécurité informatiques viennent de cracker un nouveau racketteur, le Arhivues-A. Ce cheval de Troie prenait en otage les données d’un ordinateur demandant de l’argent en échange du mo Lire la suite

Imprimante laser multifonction Samsung pour PME

Publié le 20 June 2006

Samsung nous a présenté, lors d’une conférence de presse, sa nouvelle imprimante pour PME/TPE, la CLX3160. Équipée de la technologie laser multifonction, elle imprime en couleur en 4 ppm et en 16 ppm en noir et blanc. D&r Lire la suite

Les derniers tests
Que choisir ? Home Cinema 5.1 ou projecteur de son ?

Que choisir ? Home Cinema 5.1 ou projecteur de son ?

Publié le 25 September 2008

Faut-il craquer pour un ensemble 5.1 ou pour une barre de son ? Découvrez les forces et faiblesses comparées de chaque système. Lire la suite

Intel Core i7 (Nehalem) : une architecture signée AMD ?

Intel Core i7 (Nehalem) : une architecture signée AMD ?

Publié le 25 September 2008

Avec ses nouveaux processeurs Core i7, Intel fait évoluer les Core 2 en reprenant leur architecture, mais en lui rajoutant des technologies dont la plupart semblent avoir leur équivalent direct chez AMD. Impression ou réalité ? Lire la suite

Test du Nokia N96 : la vie sans écran tactile

Test du Nokia N96 : la vie sans écran tactile

Publié le 24 September 2008

Un téléphone haut de gamme peut il échapper à l'écran tactile ? Nokia a tenté le pari avec le N96. Lire la suite

Les nouveaux disques durs 1 To

Les nouveaux disques durs 1 To

Publié le 22 September 2008

Un an et demi après l'introduction du premier disque dur 1 To, les prix ont beaucoup diminué et de nouveaux modèles ont été lancés. Mais comment se comportent-ils entre eux et par rapport aux anciens ? Réponse dans ce comparatif. Lire la suite

voir tout
Dans les albums
Les téléchargements