[XL-2002] Copie de données avec liaison entre 2 classeurs

[cedana]

Bonjour à tous.
Voici mon problème, je souhaite qu'une partie des données saisies dans le classeur1 soient recopiées simultanément dans le classeur2 et sous conditions. Je vais essayer d'être le plus explicite possible. Les données du classeur1 dans les colonnes A, B, C, D, E, et F doivent être recopiées respectivement dans les colonnes A, C, D, F et E du classeur2 et à condition que les valeurs colonnes C du classeur1 soient <> "Esp". Une précision , les plages de saisies pour les 2 classeurs s'étendent des lignes 7 à 115.
Merci pour aide précieuse.

[DeaD78]

Salut,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
Dim i As Long
 
For i = 7 To 115
    If Workbooks("Classeur1").Sheets("Feuil1").Range("C" & i) <> "Esp" Then
        Workbooks("Classeur2").Sheets("Feuil1").Range("A" & i) = Workbooks("Classeur1").Sheets("Feuil1").Range("A" & i)
        Workbooks("Classeur2").Sheets("Feuil1").Range("B" & i) = Workbooks("Classeur1").Sheets("Feuil1").Range("C" & i)
        'et ainsi de suite
    End If
Next
 
End Sub

Voilà quelque chose de vite fait mais fonctionnel.

Tu mets la macro dans le classeur 1 par exemple, et tu la lances quand tu as tes 2 classeurs d'ouverts. Bien entendu, adapte le nom de tes classeurs et de tes feuilles et rajoute les lignes manquantes dans la macro. Je te l'ai fait juste à titre d'exemple pour les colonnes A et B qui sont copiées vers A et C.

Bonne chance pour la suite !

[cedana]

Bonjour DeaD78.
Je te présente toutes mes excuses pour cette réponse tartive, mais j' ai dû m'absenter pour mon job et ce n'était pas prévu. Je te remercie pour ton topic qui va bien m'aider. Je t'informe dès que possible de sa mise en place.
A+.