EXCEL selectionner les donné.

[benhsaien]

Bonjour,
j'ai un fichier excel nomé : test Provisions congés fin Mai 2011 et je gére le fichier resultas manuellement.
le Besoin est de géré le fichier resultas automatiquement.

 

[KenDev]

Re : EXCEL selectionner les donné.

Bonjour Benhsaien,

Le code suivant devrait réalisé l'opération demandée en supposant bien sur que la logique est toujours la même pour les feuilles cumul. Cordialement

KD

Sub test()
'!!!!!-------macro à lancer depuis la feuille exploitée
Dim Sh1 As Worksheet, Sh2 As Worksheet, i&, n$

Set Sh1 = ActiveSheet
Workbooks.Add
Set Sh2 = ActiveSheet

Application.ScreenUpdating = False

Sh1.Cells.Copy Destination:=Sh2.Cells(1, 1)

For i = Sh2.Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
    If Sh2.Cells(i, 2) = "" Then
        If Sh2.Cells(i, 4) = "" Then
            Sh2.Cells(i, 1).EntireRow.Delete
        End If
    End If
Next i

For i = Sh2.Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
    If Sh2.Cells(i, 4) = "" Then
        Sh2.Range(Sh2.Cells(i + 1, 3), Sh2.Cells(i + 1, 5)).Copy _
            Destination:=Sh2.Range(Sh2.Cells(i, 3), Sh2.Cells(i, 5))
        Sh2.Cells(i + 1, 1).EntireRow.Delete
    End If
Next i

With Sh2.Range(Sh2.Cells(2, 1), Sh2.Cells(Rows.Count, Columns.Count))
    .Interior.Pattern = xlNone
    .Borders.LineStyle = xlNone
    .Font.ColorIndex = xlAutomatic
End With

With Sh2.Range(Sh2.Cells(2, 1), Sh2.Cells(Sh2.Cells(Rows.Count, 1).End(xlUp).Row, Sh2.Cells(1, Columns.Count).End(xlToLeft).Column))
    .Borders.LineStyle = xlContinuous
End With

Sh2.Columns.AutoFit

Application.ScreenUpdating = True

n = Application.GetSaveAsFilename

End Sub

 

[benhsaien]

Re : EXCEL selectionner les donné.

Bonjour KenDev
merci pour votre réponse mais je travaille pas beaucoup avec excel tu peu m'explique comment je doit intégerer se que tu vient de poster .

 

[benhsaien]

Re : EXCEL selectionner les donné.

ok c'est Bon.merci !!!