Transférer des données d'un classeur à autre

[apt]

Bonsoir,

J'ai deux classeurs :

Octobre.xls et Sythèse.xls

J'ai besoin de transférer les données des colonnes A, B et C de Feuil1 du classeur Octobre dans un tableau selon le mois en cours dans le classeur Synthèse, tout en mettant à jour la liste S1 dans la colonne A,

Dans mon exemple, il faut ajouter dans S1 les éléments BH et 2Y,

Les deux fichiers en pièce jointe.

Merci d'avance.

 

[skoobi]

Re : Transférer des données d'un classeur à autre

Bonsoir,
voici une proposition.
Pour que celà ce passe bien, il faut d'abord ouvrir le fichier synthèse puis le fichier du mois après.
bon test.

 

[apt]

Re : Transférer des données d'un classeur à autre

Merci skoobi.

Je vais le tester.

Bonne soirée.

 

[apt]

Re : Transférer des données d'un classeur à autre

Bonjour Skoobi,

Si le test passe à cette ligne :

Else
                    Range("a3").End(xlDown).Offset(1, 0).Value = S1.Value

Cette erreur est signalée :

Erreur d'éxécution '1004':
Erreur définie par l'application ou par l'objet.

Je crois que l'erreur provient du fait qu'on veut effacer la valeur contenu dans A3 par la valeur continue dans A2.

 

[skoobi]

Re : Transférer des données d'un classeur à autre

Re,
Chez moi ça marche. As-tu décalé le tableau ou fait quelque chose avant d'executer la macro?

 

[apt]

Re : Transférer des données d'un classeur à autre

Bonsoir,

J'ai seulement vidé le tableau dans Synthèse.

Mais maintenant ça marche ...

J'ai encore besoin de résoudre un deuxième problème :

Dans une ligne, dans Feuil2 du fichier Octobre, j'ai en A2 la nom S1, et dans B2 à F2 j'ai cinq valeurs de S1.

Comment extraire les trois grandes valeurs de S1 et les copier dans Feuil2 du fichier Synthèse ?

Merci.

 

[skoobi]

Re : Transférer des données d'un classeur à autre

Re,
si tes valeurs sont des chiffres, tu peux les mettre dans un tableau de variable puis faire un tri décroissant de ce tableau et récupérer les 3 1eres valeurs pour les collers dans le fichier.
Si tu ne sais pas faire renvoie le fichier.

 

[apt]

Re : Transférer des données d'un classeur à autre

Voila les deux fichiers.

 

[skoobi]

Re : Transférer des données d'un classeur à autre

C'est bien V1 V2 et V3 que tu veux copier vers synthèse car là il n'y a que V1 et V2 de copier.

 

[apt]

Re : Transférer des données d'un classeur à autre

Oui, il faut trouver les trois valeurs (V1, V2 et V3).

Par exemple pour S1 = 2Y, V1 = 78, V2 = 70 et V3 = 60.

Merci d'avance.

 

[skoobi]

Re : Transférer des données d'un classeur à autre

Ok.
Ci-joint ce que ça donne.

 

[apt]

Re : Transférer des données d'un classeur à autre

C'est génial

Ca marche trés bien.

Un grand merci à toi skoobi.

Bonne nuit.

@+

 

[apt]

Re : Transférer des données d'un classeur à autre

Bonsoir skoobi et tous le forum,

Cette ligne de recherche donne le même résultat :

Set i = Range(Range("A3"), Range("A65536").End(xlUp)).Find(S1, LookIn:=xlValues)

Par exemple elle ne différencie pas entre "2" et "2Y".

 

[Cousinhub]

Re : Transférer des données d'un classeur à autre

Bonsoir, rajoute :

Set i = Range(Range("A3"), Range("A65536").End(xlUp)).Find(S1, LookIn:=xlValues,[COLOR="Red"] LookAt:= xlWhole[/COLOR])

 

[apt]

Re : Transférer des données d'un classeur à autre

Je ne sais pas si elle est nécessaire, mais j'ai également ajouté ceci :

MatchCase:=True

Et ça marche

Merci bhbh.