Copier coller les colonnes d'un tableau sous conditions

bonjour à tous,

Voila j 'ai un tableau est je veux copier les colonne "A,D,F,G,H,J" dans une nouvelle feuille dans l'ordre "I,J,K,L,M,N"

Selon les conditions suivantes:

1) La colonne "A" contient les dates donc je veux a chaque execution une imputbox qui me demande de saisir la date

2) La colonne "J" contient le nom des machine j'aimerai un combox contenant tout les noms afin de choisir une

Puis coller sur la nouvelle feuille

Merci Enormement et désoler pour le dérangement

Bonjour

A tester

Bonjour,

Quand je clique sur valider il me retourne sur une fenêtre date non conforme.

Je voulais voir la macro je la trouve pas.

Mercii pour beaucoup pour l'aide

Bonsoir

dis moi exactement ce que tu tapes pour la date, que j'essaye

Bonsoir,

POUR la date je tape 20150701 et je choisi Machine Komax 477N°01 et quand je valide elle m'affiche date non conforme

bonjour Banzai,

j espere que vous allez bien. Je voulais vous dire que fallait juste que je tape 01/07/2015 au lieu de 20150701

Mon problème c'est que je trouve pas la macro pour que je puisse l'expliquer dans mon rapport c'est pour un stage j'espere que vous puissiez me fournir la macro complète si possible et merci.

Bonjour

Pour la macro

Dans l'éditeur VBA

Il faut afficher l'userform, puis clic droit dessus ---> Code

Pour la date, on a plus l'habitude de taper la date style 01/01/2015 que 20150101

Le code est fait qu'il faut taper la date "normalement"

RE-Bonjour Banzai64,

lorsque j'appui sur "view macro" voila ce que je vois

Option Explicit

Sub OuvreUsf()

UserForm1.Show 0

End Sub

Veuillez si possible me reposter la macro en détail si vous voulez bien sur

Désoler pour le dérangement causer et merci

Bonjour

Il faut que affiches l'userform dans l'éditeur

Bonsoir Banzai64, mehdi12, le forum

Pour le fun :

Restitution dans la 2ème feuille.

Option Explicit
Sub test()
Dim x, z, y As Long, maRef As String, maDate As String
    maRef = Application.InputBox("Choisir la machine .", , "Machine Komax 477 N°01", Type:=2)
    maDate = Application.InputBox("Choisir la date.", , "20150721", Type:=2)
    Application.ScreenUpdating = False
    With Sheets(1).Cells(1).CurrentRegion
        x = Filter(.Parent.Evaluate("transpose(if((" & .Columns(10).Address & _
            "=""" & maRef & """)*(" & .Columns(1).Address & _
            "=""" & maDate & """),row(1:" & .Rows.Count & "),char(2)))"), Chr(2), 0)
        If UBound(x) > -1 Then
            x = Application.Index(.Value, Application.Transpose(x) _
                                          , [{1,4,6,7,8,10}])
            z = Application.Index(.Value, Evaluate("row(1:1)"), Array(1, 4, 6, 7, 8, 10))
            y = Application.Count(x)
            With Sheets(2).Cells(1)
                'With Sheets(2).Cells(9)
                .CurrentRegion.Clear
                .Resize(, UBound(z)).Value = z
                If y > 1 Then
                    .Offset(1).Resize(UBound(x, 1), UBound(x, 2)).Value = x
                Else
                    .Offset(1).Resize(, UBound(x)).Value = x
                End If
                With .CurrentRegion
                    With .Rows(1)
                        .HorizontalAlignment = xlCenter
                        .Font.Bold = True
                        .Interior.ColorIndex = 43
                        .BorderAround Weight:=xlThin
                    End With
                    .Font.Name = "calibri"
                    .VerticalAlignment = xlCenter
                    .Borders(xlInsideVertical).Weight = xlThin
                    .BorderAround Weight:=xlThin
                    .Columns.AutoFit
                End With
            End With
        Else
            MsgBox "Aucune donnée"
        End If
    End With
    Application.ScreenUpdating = True
End Sub

klin89