Macro excel

Question

Bonjours &#224; toutes et &#224; tous

J'ai un probl&#232;me pour cr&#233;e une macro sur excel, une macro qui me faciliterai bien la tache.
Je vais essayer d'expliquer clairement la macro que je n'arrive pas &#224; cr&#233;e :
- Sur un classeur excel, dans une cellule, on tape la r&#233;f&#233;rence d'un produit (ex: 06612070)
-La, la macro commence, elle va automatiquement dans un autre classeur excel faire une recherche pour savoir ou se situe cette r&#233;f&#233;rence dans un tableau, va copier la cellule qui se trouve im&#233;diatement &#224; droite (la d&#233;signation de la r&#233;f&#233;rence)
-La macro retourne sur le 1er classeur pour coller se quel &#224; copier dans un commentaire sur la cellule ou la r&#233;f&#233;rence &#224; &#233;t&#233; &#233;crit quelque seconde auparavant.

Je sais pas si j'ai &#233;t&#233; tr&#232;s clair, je vai essayer de mettre des photo commenter de mon probl&#232;me.

En tout cas si vous avez compris et que vous pensez pouvoir m'aider, je vous remercie par avance.

xcxl · Answer

Je ne suis pas sur mais je pense que tu va devoir faire une boucle qui veife chaque cellule une par une pour trouver la case ou est la reference.

xcxl · Answer

Une petite disussion sur le sujet:http://www.vbfrance.com/infomsg/CHANGER-CLASSEUR-VB-DANS-EXCEL_512692.aspx

steven77610 · Answer

xcxl, merci de r&#233;pondre ausi rapidement, mais g rien compris a se que ta dis, les amcro assez simple jconnai, mais des ke sa devien compliquer jgal&#232;re, jpige pas, aide moi stp, jten serait tr&#232;s reconnaisan

steven77610 · Answer

g vraiment l'impression d'&#234;te une quiche en informatique, g rien compris au lien ke tu ma envoyer, dsl, les boucles, le balyage des classeur, rien piger, dsl

michelxld · Answer

bonsoir j'espere que cet exemple pourra t'aider Private Sub Worksheet_Change(ByVal Target As Range) 'Utilisation de l'evenement Change dans la feuille ou va etre saisie la reference produit Dim maBase As Workbook Dim Feuille As Worksheet Dim x As Integer If Target.Address = "$A$1" Then 'la reference produit est saisie dans la cellule A1 'Définition du classeur et de la feuille servant de base de données '(la procédure ne vérifie pas que le classeur est bien ouvert) Set maBase = Workbooks("DeuxiemeClasseur.xls") Set Feuille = maBase.Worksheets("Feuil1") 'les codes produits à rechercher sont dans la colonne A (A1:A...) x = Application.Match(Target.Value, Feuille.Columns(1), 0) If x <> 0 Then 'x <> si une occurence est trouvée ( x est l'index de la ligne source ) 'Si le code produit est trouvé , le contenu de la colonne B pour cette meme ligne , va 's'inscrire dans le commentaire . If Target.Comment Is Nothing Then 'vérification s'il existe deja un commentaire : Target.AddComment Feuille.Cells(x, 2).Value 's'il n'existe pas , on crée le commentaire Else Target.Comment.Text Feuille.Cells(x, 2).Value 's'il existe , on modifie le commentaire existant End If End If End If End Sub bonne soiree michel

xcxl · Answer

Steven tinkiete pas ya 2 mois je capter rien au macro et puis je me suis acheter un bouquin. Sa aide pas mal.
Bon sinon pour les boucles(le truc FOR...NEXT), en fait tu fais une qui verifie la cellulle puis tu dessen d'une cellule et tu recommence le test. Quand tarrive en bas de la colone "A" tu passe a la collone  "B" et tu recommence.

Le code de michelxld, il definie les classeurs, il ouvre le bon et puis il utilise une commande qui va chercher la valeur dans la colonne, comme sa, pas besoin de boucle. Ta plus ka ladapter pour ton usage.

En esperant avoir &#233;t&#233; clair

xcxl · Answer

C vrai que le lien que je tai envoyer et un peu incomprehensible, excuse moi

cs_Meskine · Answer

essaie d'inserer cette macro dans un module les debuts de recherche i et j ainsi que les colonnes sont ici à titre indicatif. à vous de definir le debut de ta base de données. j'espere t'avoir aidé. Sub chercher() Dim F1 As Worksheet Dim F2 As Worksheet Set F1 = Workbooks("1er classeur").Sheets("Ta feuille") Set F2 = Workbooks("2e classeur").Sheets("Feuile Ref") i = 2 '(debut de la feuille à explorer") Do While F1.Cells(i, 1) <> "" truc = F1.Cells(i, 1) 'la valeur à chercher j = 2 '(Debut de la feuille reference) Do While F2.Cells(j, 1) <> "" If truc = F2.Cells(j, 2) Then F1.Cells(i, 1).AddComment F2.Cells(j, 3) 'le texte à ajouter End If i = j + 1 Loop i = i + 1 Loop End Sub

Tuning Max · Answer

Humm! Houai! et bien j'esp&#232;re que le nombre de lignes et de colonnes dans ton tableau Excel vont &#234;tre limit&#233;s parce que je te le dit tout net, deux boucles qui tourne sur deux classeurs Excel pour faire des comparaisons, &#231;a va &#234;tre long! Tr&#232;s long! Si tu &#224; plusieurs centaines ou millier de ligne. Je rappel qu'Excel n'est pas r&#233;ellement une application de base de donn&#233;es mais un tableur!<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


Pour ma part je te conseillerais d'utiliser &#224; la place de ton deuxi&#232;me classeur, une petite base de donn&#233;es (type Access &#233;ventuellement) et depuis ton classeur Excel, tu copie le commentaire que tu recherche gr&#226;ce &#224; des requ&#234;tes SQL, plus rapide et plus s&#251;r

steven77610 · Answer

Je tient &#224; tous de vous remercier pour les info que vous m'avez donner, jesp&#232;re que les macro que vous m'avez montr&#233; von march&#233;, et me sauv&#233; de la gal&#232;re que je supporte depuis un moment d&#233;ja, mais jsui incapable de transf&#233;rer l'un ou l'autre macro que vous m'avez montrer sur mon fichier, jsai pas coment rentr&#233; exactement les nom des cellules, de classeurs au bon endroit, sa fait des heure que je cherche, mais ji arrive pas, a chaque fois excel i me di ke sa marche pas, je vais voir si il est possible de post&#233; mes 2 fichier excel, et comme sa vous pourr&#233; encore m'aider, jsui vraiment dsl de vous d&#233;rranger, vous &#234;tes vraiment sympa de m'aider. dans quelque tps j'en connaitrai plus sur les macro, je vai avoir une formation den quelque tps, mais cette macro, jen ai vraiment besoin, et le tps me manque, merci &#224; tous.