Discussion :

[hortencia]

Bonjour à tous,

J'essaye de construire une macro mais je suis à présent bloqué par une manip.
Je remercie d'avance quiconque d'entre vous qui pourra m'aider.

J'ai mis en pièce jointe 2 Classeur.

Je m'explique.
Dans le classeur 2 mes données sont en fonction des MOIS de l'année.
Dans le classeur 1 en fonction de DATES.

J'aimerais copier des données du classeur 2 au classeur 1 en fonction de ces MOIS.

Et étant donnée que je n'ai pas de dates précises sur mon Classeur 2, je voudrais les copier toujours au 15 du mois.
Je balaye mon classeur 2, de la ligne 2 à 13 (12mois de l'année), et chaque colonne pour faire mes copies.

Cordialement.

[hortencia]

Bonjour Delphine 35,

Et merci infiniment de ta réponse.

Malheureusement, ça ne marche pas.

Ça me donne l'erreur d'exécution '9' sur la première ligne du code :
l'indice n'appartient pas à la sélection.

Cordialement, Laura.

[garheb]

Coucou,

Première ligne du code?

Code :

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

Set F1 = Workbooks("NClasseur1.xls").Worksheets(1)

Celle-ci? Si il ne trouve pas le classeur c'est qu'il faut l'ouvrir

Code :

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

1
2
3
4
 
Dim wb As Workbook
 
Set wb = Workbooks.Open(ThisWorkbook.Path & "\nomFichier")

Si le classeur depuis lequel tu le lances est dans le même dossier que l'autre

(Dans le code le classeur s'appelle NClasseur1.xls, tes fichiers s'appellent ClasseurX.xls, le N en trop?)

[hortencia]

Bonjour garhed,

Merci de ta réponse.
Mais le problème ne vient pas de là car les 2 classeurs sont ouvert.

Cordialement.

[MarcelG]

Bonjour Hortencia, Bonjour le Forum,

En utilisant une conversion de date et la méthode Find.

A adapter, notamment pour le champ de recherche (dernière cellule) et les cellules à copier.

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
Public Sub essai()
 
Dim celcop As Range
 
With Workbooks("Classeur 2.xls").Sheets("Feuil1")
        For i = 2 To 13
                ladate = CDate("15 " & .Range("A" & i) & " 2011")
                .Range("A" & i).Offset(0, 1).Copy
                Set celcop = Workbooks("Classeur 1.xls").Sheets("Feuil1").Range("A2:A65536").Find(ladate, LookIn:=xlFormulas).Offset(0, 1)
                celcop.PasteSpecial xlPasteValues
        Next
End With
 
Application.CutCopyMode = False
 
Set celcop = Nothing
 
End Sub

[hortencia]

Bonjour MarcelG,

C'est exactement ce que je cherchais.
C'est parfait.
Merci beaucoup. C'est super.

Puis je me permettre de te demander autre chose, s'il te plaît?
J'espère que ça ne t'embêtera pas.

Je voulais savoir :
Pour additionner des cellules allant dans la même catégorie, comment puis je faire?

J'ai mis en pièces jointes d'autres fichiers pour te l'illustrer.

Le classeur 2 est le même mais je voudrais par exemple additionner les pains les baguettes et les traditions pour les mettre dans la colonnes PAINS.

Merci encore pour ta réponse.

Cordialement.

[hortencia]

Merci Marcel,

C'est vraiment parfait.
Merci infiniment.


Merci à vous tous pour votre aide.

Cordialement.

[MarcelG]

De rien, Hortencia.

Relis le code proposé mot par mot, et reviens si nécessaire.

Sinon, n'oublie pas de positionner ton post en "Résolu".

Je profite de cette occasion pour signaler un intéressant exposé sur la recherche des dates.

Rechercher une date sur le labo