XL pour MAC Sélectionner plage de cellules en fonction de dates

Bonjour CM,
Un essai en PJ avec une macro VBA, il suffit d'appuyer sur le bouton.

Whaooooooo ! Ca c'est d'la macro !!!!! Bravo !!!!
Je remets ça dans mon fichier en adaptant quelques paramètres.
Je te tiens au courant.
Merci encore !

sylvanu à dit:

Bonjour CM,
Un essai en PJ avec une macro VBA, il suffit d'appuyer sur le bouton.

Cliquez pour agrandir...

Bonjour Sylvanu,
Ca fonctionne exactement comme ça devrait sur ta feuille (4ème feuille du fichier que je joins : Feuil1) !
Ben voilà, j'ai essayé de retranscrire la Macro sur ma feuille "Note de Frais" (avec infos sur feuille "Frais"), mais sans succès ! ...
Je remets en pj le fichier exemple avec le vrai fichier sur les 2 1ères pages (Frais, et Note de Frais).
Frais est la feuille de départ (là où je rentre les données à récupérer).
En choisissant les dates début et fin sur la feuille "Note de Frais" en J11 et J12, et en lançant le calcul avec le bouton bleu "importer", il faudrait que s'affiche le résultat comme sur l'exemple initial ...
Merci pour ton aide !
Christophe

Bonjour Sylvanu,
Je n'ai toujours pas réussi à transférer ta macro sur mon fichier ...
Aurais-tu un peu de temps à me consacrer stp ?
Le vrai fichier est dans mon msg précédent "exdates2"
Merci encore !
Christophe

Bonjour CM1090, sylvanu,

Voyez le fichier joint et la macro du bouton :
Il y avait des erreurs dans vos formules de la feuille "Frais", je les ai corrigées.

A+

job75 à dit:

Bonjour CM1090, sylvanu,

Voyez le fichier joint et la macro du bouton :

VB:

Sub Importer()
Dim F As Worksheet, coldeb As Variant, colfin As Variant
Set F = Sheets("Notes de Frais")
Application.ScreenUpdating = False
F.[N17:ABO49].Clear 'RAZ
With Sheets("Frais")
    coldeb = Application.Match(F.[J11], .[17:17], 0)
    colfin = Application.Match(F.[J12], .[17:17], 0)
    If IsError(coldeb) Or IsError(colfin) Then Exit Sub
    .Range(.Cells(17, coldeb), .Cells(46, colfin)).Copy F.[N17] 'copier-coller
    .Range(.Cells(54, coldeb), .Cells(54, colfin)).Copy F.[N48] 'pour les formats
    .Range(.Cells(68, coldeb), .Cells(68, colfin)).Copy F.[N49] 'pour les formats
    F.[N48].Resize(, colfin - coldeb + 1) = .Range(.Cells(54, coldeb), .Cells(54, colfin)).Value 'copie les valeurs
    F.[N49].Resize(, colfin - coldeb + 1).HorizontalAlignment = xlCenterAcrossSelection 'centrage
    F.[N49] = Application.Sum(F.[N48].Resize(, colfin - coldeb + 1)) 'TOTAL Periode
End With
End Sub

Il y avait des erreurs dans vos formules de la feuille "Frais", je les ai corrigées.

A+

Cliquez pour agrandir...

Wahooo ! Super !!!! Merci beaucoup ! Ca fonctionne très bien !