Bonjours à toutes et à tous

J'ai un problème pour cré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 à crée :
- Sur un classeur excel, dans une cellule, on tape la réfé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éférence dans un tableau, va copier la cellule qui se trouve imédiatement à droite (la désignation de la référence)
-La macro retourne sur le 1er classeur pour coller se quel à copier dans un commentaire sur la cellule ou la référence à été écrit quelque seconde auparavant.

Je sais pas si j'ai été très clair, je vai essayer de mettre des photo commenter de mon problème.

En tout cas si vous avez compris et que vous pensez pouvoir m'aider, je vous remercie par avance.

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.

Une petite disussion sur le sujet:

http://www.vbfrance.com/infomsg/CHANGER-CLASSEUR-VB-DANS-EXCEL_512692.aspx

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

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

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

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 été clair