Discussion :

[lynelolaluc]

Bonjour à tous,
Tout nouveau sur le site et tout nouveau en vba excel , je me permets de vous demander de l'aide . Voici mon soucis : j'ai un tableau avec en colonne A des dates , et dans les autres colonnes ,j'ai des valeurs en feuille 1.
Je voudrais faire une selection de date (début et fin) en A 1 (pour le début) et B1 (pour la fin) sur la feuille 2 , une fois cette selection faite , je voudrais copier la selection de ces dates et toutes leurs valeurs , copie dans la feuille 2.

Je joint un fichier ,en espérant avoir était pas trop compliqué .

Merci d'avance si vous pouvez m'aider , je galére avec ça!

essai.xlsxessai.xlsx

[tamtam64]

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
19
20
21
22
23
24
Option Explicit
Option Base 1
 
Sub test()
    Dim xlsheet As Worksheet, xlsheet2 As Worksheet
    Dim MyRange As Range, AllRange As Range
    Dim MyAllRange As Range
    Dim MyDateD As Date, MyDateF As Date
    Dim Mytab(2) As Long
    Set xlsheet = ThisWorkbook.Worksheets("Feuil1")
    Set xlsheet2 = ThisWorkbook.Worksheets("Feuil2")
    With xlsheet2
        MyDateD = .Range("DateD").Value
        MyDateF = .Range("DateF").Value
    End With
    With xlsheet
        Set MyAllRange = .Range("DateSS").CurrentRegion
        If Not (MyAllRange.Columns(1).Find(MyDateD)) Is Nothing And Not (MyAllRange.Columns(1).Find(MyDateF)) Is Nothing Then
            Mytab(1) = MyAllRange.Columns(1).Find(MyDateD).Row
            Mytab(2) = MyAllRange.Columns(1).Find(MyDateF).Row
        End If
        .Range(MyAllRange.Rows(Mytab(1)), MyAllRange.Rows(Mytab(2))).Copy xlsheet2.Range("DateS")
  End With
End Sub

Voici a peu pres apres dis moi si ya des trucs que tu veux ameliorer, j'ai mis en pj le fichier

Il manquera l'ajout de la macro au bouton
tu vas dans le bouton

Code :

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

1
2
3
4
Sub AppelMacro()
Call Test
 
end sub