Discussion :

[fabremel]

Je voudrais développer une macro qui permet de prendre le contenu d'une cellule d'un classeur 2 pour le mettre dans la cellule d'un classeur 1.
Voila ce que j'ai déja réalisé mais je n'ai pas reussi à passer d'un classeur a l'autre, j'ai seulement réussi à passer d'une feuille à une autre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
 
Dim variable As Integer
Dim j As Integer
Dim k As Integer
 
For j = 2 To 9
     For k = 2 To 9
 
          If Cells(k, 1).FormulaR1C1 = Cells(j, 2).FormulaR1C1 Then
               variable = Feuil1.Cells(j, 4).FormulaR1C1
               Cells(k, 3).FormulaR1C1 = variable
          End If
 
     Next k
Next j
 
End Sub

Merci de m'aider à résoudre ce problème facile je suppose mais le VB c'est pas trop mon truc!

Mel

Edit
Bienvenue sur le forum
Lis les règles du forum, elles pourront t'aider à trouver ce que tu cherches.
Afin que ton code soit lisible, encadre-le des balises Code et /code. Tu sélectionnes ton code puis un clic sur le bouton Code en haut de la fenêtre d'édition.
Enfin, indente ton code pour faciliter la lecture.
Pour corriger, le bouton "Editer" est là pour ça.
Balises, indentation et conseils gracieusement offert par ouskel'n'or

[Megaxel]

Il faut savoir où tu te trouves, et surtout où se trouve ta macro. Dans le classeur 1 ou dans le classeur 2.
En fait, le principe est simple: il faut que les 2 classeurs soient ouverts (tu peux facilement ouvrir le deuxième si un seul est ouvert).
Ensuite, quand tu désignes une cellule, préfixe systématiquement avec la localisation complète classeur + feuille + cellule.
Par exemple, la cellule C2 de l'onglet "Onglet1" du classeur "MonClasseur.xls" doit être désignée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("MonClasseur.xls").Worksheets("Onglet1").Cells(2,3)

Ainsi, tu peux récupérer le contenu des cellules dans le classeur que tu veux, et les mettre là où tu veux, sans soucis.