Report et mise en page en fonction de critère.

yolutho · 5 Mars 2017

Bonjour à tous,

Je reviens vers vous avec ce nouveau post car je ne parviens pas à mettre en place ce que je souhaiterais.

J'ai un tableau source qui reprends des critères, je souhaiterais créer dans un second onglet un tableau qui mentionnent les dossier concerné.

Je vous fournis un fichier contenant 3 onglets (1 base, 2 salaire, 3 salaire résultat souhaité). Comme vous l'avez devinez le 3ème onglet correspond au résultat que je recherche.

Merci de votre aide

JHA · 5 Mars 2017

Bonjour à tous,

Par formule

JHA

youky(BJ) · 5 Mars 2017

Bonjour Tous,
Moi ce sera par macro.......
A copier dans l'événement de l'onglet sinon mettre en Module1
Bruno

VB:

Private Sub Worksheet_Activate()
Feuil3.[B4:D48].ClearContents
With Feuil2
i = 4
For lig = 4 To .[D65000].End(3).Row
If .Cells(lig, 8) = "OUI" Then
Feuil3.Cells(i, 2) = .Cells(lig, 2)
Feuil3.Cells(i, 3) = .Cells(lig, 3)
Feuil3.Cells(i, 4) = .Cells(lig, 4): i = i + 1
End If
Next
End With
End Sub

yolutho · 5 Mars 2017

youky(BJ) à dit:
Private Sub Worksheet_Activate()
Feuil3.[B448].ClearContents
With Feuil2
i = 4
For lig = 4 To .[D65000].End(3).Row
If .Cells(lig, 8) = "OUI" Then
Feuil3.Cells(i, 2) = .Cells(lig, 2)
Feuil3.Cells(i, 3) = .Cells(lig, 3)
Feuil3.Cells(i, 4) = .Cells(lig, 4): i = i + 1
End If
Next
End With
End Sub

Merci c'est exactement ce que je recherchais.. un grand MERCI

Report et mise en page en fonction de critère.

yolutho

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

yolutho

XLDnaute Nouveau

Discussions similaires