Discussion :

[Eraor]

Bonjour à tous,
J'ai besoin de votre aide pour résoudre une erreur d'incompatibilité de type que je n'arrive pas à comprendre.
J'ai deux feuilles dans mon classeur, l'une où j'ai des données avec la date du jour et l'autre où j'ai tout l'historique.
J'aimerais pouvoir copier les données de cette première feuille pour les coller sur la seconde en appuyant sur un bouton.
Je vous mets mon fichier en pièce-jointe et le code également ici.
Merci d'avance !

Code :

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

1
2
3
 
col = Application.Match(Sheets("copie").[D4], Worksheets("colle").[2:2], 0)
Worksheets("colle").Cells(3, col).Resize(25, 1).Value = Worksheets("colle").[B4:B28].Value

[BENNASR]

bonjour
à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 Dim plage As Range,  F1 As Worksheet, F2 As Worksheet
   Set F1 = Sheets("colle")
   Set F2 = Sheets("copie")
   dercol = F1.Cells(2, F1.Cells.Columns.Count).End(xlToLeft).Column
   Set plage = F1.Range(F1.Cells(2, 2), F1.Cells(2, dercol))
   Set c = plage.Find(F2.Cells(4, "D"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
derlig = F1.Cells(Rows.Count, c.Column).End(xlUp).Row
F1.Range(F1.Cells(3, c.Column), F1.Cells(derlig, c.Column)).Copy
F2.Cells(4, "B").PasteSpecial Paste:=xlPasteValues
End If
End Sub

[Eraor]

Bonjour et merci pour votre réponse.
J'ai essayé ce que vous m'avez proposé et cela ne fonctionne pas pour moi. J'ai du mal à comprendre votre code.
Si quelqu'un peut m'éclairer je suis preneur

[BENNASR]

bonjour

et cela ne fonctionne pas pour moi

je ne crois pas qu'il y a un code qui fonctionne pour moi et ne fonctionne pas pour toi... quel message d'erreur??? est ce que ça fonctionne sur mon fichier test ?? quelle différence par rapport à ton fichier??
à la limite tu peux joindre un fichier comme exemple avec quelques lignes de données non discrétionnaires
pour le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 Dim plage As Range,  F1 As Worksheet, F2 As Worksheet
   Set F1 = Sheets("colle")
   Set F2 = Sheets("copie")
   dercol = F1.Cells(2, F1.Cells.Columns.Count).End(xlToLeft).Column ' pour chercher la dernière colonne non vide de la ligne 2
   Set plage = F1.Range(F1.Cells(2, 2), F1.Cells(2, dercol)) ' la plage ou se trouve les dates sur la ligne 2
   Set c = plage.Find(F2.Cells(4, "D"), LookIn:=xlValues, lookat:=xlWhole) ' cherche la date qui se trouve en D4 de l'onglet "copie"
If Not c Is Nothing Then 'si tu trouve la date 
derlig = F1.Cells(Rows.Count, c.Column).End(xlUp).Row ' chercher la dernière ligne non vide de cette colonne ou se trouve cette date
F1.Range(F1.Cells(3, c.Column), F1.Cells(derlig, c.Column)).Copy 'copier la plage de la ligne 3 à la dernière ligne non vide
F2.Cells(4, "B").PasteSpecial Paste:=xlPasteValues  ' copier vers B4 de l'onglet "copie"
End If
End Sub

j'espère que ça t'aide à avancer

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Je pars de l'hypothèse selon laquelle les données de la feuille "Colle" vont s'enrichir au fur et à mesure des jours.
A mon avis, les données sont mal présentées dans la feuille "Colle".
Les jours qui vont suivre vont alimenter les données.
Celles-ci constituent donc un nouvel enregistrement.
Pour parler concrètement, j'aurais inversé les lignes et les colonnes de cette feuille.

Si l'on considère maintenant, une table de données (ou tableau structuré) nommée "T_Données"
Si l'on considère une cellule annexe retournant la position du jour recherché dans la première colonne (champ "jour") de cette table, et nommée "lequiv"
Alors, la formulation de cette cellule serait

=EQUIV(D4;T_Données[Jour];0)

Dès lors, une seule et même formule pourrait alimenter les cellules de la feuille "copie" reportant les résultats

=INDEX(T_Données;lequiv;LIGNE()-2)

On évite ainsi un développement VBA.

Le tableau structuré "T_Données" se redimensionnant automatiquement, les formulations n'en seront nullement altérées.

[Eraor]

j'espère que ça t'aide à avancer

Bonjour et encore merci pour ta réponse,
Oui ça m'aide à avancer et avec tes commentaires sur le code j'ai compris ce qu'il se passait.
Or, c'est l'inverse de mon besoin. Dans mon cas, j'aimerais que ce soit la feuille colle qui soit alimentée alors que dans ce code c'est le fichier copie.
Je pourrais juste inverser le sens, or la recherche de la dernière colonne non vide ne fonctionnera pas, puisque il y a déjà toutes les dates qui y sont écrites.

Je ne sais pas comment arriver à récupérer la position de la date correspondante et je n'arrive pas bien à comprendre la méthode de Marcel car ça ne me parle pas du tout. A vrai dire je ne suis pas un expert d'Excel.

Mais avez-vous essayé mon code que j'avais proposé parce que je pense que cela doit marcher et il doit y avoir une erreur de syntaxe ou je ne sais pas trop quoi...

Code :

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

1
2
3
 
col = Application.Match(Sheets("copie").[D4], Worksheets("colle").[2:2], 0)
Worksheets("colle").Cells(3, col).Resize(25, 1).Value = Worksheets("colle").[B4:B28].Value

[MarcelG]

Salut,

je n'arrive pas bien à comprendre la méthode de Marcel car ça ne me parle pas du tout

Pour ce faire, il te faut d'abord intégrer la notion de tableau structuré
2 tutoriels
les tableaux structurés
VBA pour les tableaux structurés

Je dis seulement que tu peux te passer de code VBA, et il faut le faire tant que possible.
Ton besoin nécessite seulement
- Une bonne organisation de tes données (enregistrements en lignes plutôt qu'en colonnes)
- 2 formulations "structurées"

Ci-joint, un fichier.