masquer ligne ou copier coller suivant selection

[GHISLAIN]

Bonjour le forum ,


tout d'abord je tien a remercie encore une fois Rachid_0661, JCGL et Dugenou, qui m'ont permis de faire un bon en avant sur mon projet sur divers poste .

dans la continuité de ce projet , je souhaite récupérer soit par un masquage des lignes ou copier coller sur une autre feuille suivant une sélection de deux listes de choix

ci joint un fichier qui je pense permettra de comprendre ce que je souhaite effectuer


tres cordialement

GHISLAIN

 

[phlaurent55]

Re : masquer ligne ou copier coller suivant selection

Bonjour Ghislain,

ton fichier en retour pour afficher un mois

sinon, pour les 2 conditions, il serait plus simple de la faire par macro qui masquerais/afficherais les lignes

à+
Philippe

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

bonjour phlaurent55,

merci d'etre passé sur mon fil
corcernant ta proposition sur 1 mois je l'ai deja , il me manque juste pour une selection sur plusieurs mois

merci de ta proposition

cordialement

ghislain

 

[phlaurent55]

Re : masquer ligne ou copier coller suivant selection

Re,

voir fichier joint qui correspond à la demande

à+
Philippe

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

re,

ça répond en grande partie a mon souhait

est il possible , (sans être trop exigeant ni abuser de ton savoir d'exelien et si tu as le temps ) d améliorer le filtre en ne prenant que les lignes renseignées (donc sans les vides ) et de n avoir que la bande sans les bandes d’étiquettes( lignes et cases colorées)

je te remercie vivement de l’intérêt que tu portes a mon fil

amicalement

Ghislain

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

re,

ça répond en grande partie a mon souhait

est il possible , (sans être trop exigeant ni abuser de ton savoir d'exelien et si tu as le temps ) d améliorer le filtre en ne prenant que les lignes renseignées (donc sans les vides ) sans les bandes d’étiquettes( lignes et cases colorées)

je te remercie vivement de l’intérêt que tu portes a mon fil

amicalement

Ghislain

 

[phlaurent55]

Re : masquer ligne ou copier coller suivant selection

Re,

essaie en remplaçant le code par celui-ci:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("D1:M1")) Is Nothing Then
If [M1] < [H1] Then Exit Sub
    Rows("99:516").Select
    Selection.EntireRow.Hidden = True
    For i = 99 + ([H1] - 1) * 35 To 99 + ([M1] - 1) * 35 + 34
        Rows(i).Select
        Selection.EntireRow.Hidden = False
    Next i
    For i = 99 To 518
    If Cells(i, 1).Value = "" Then
        Rows(i).Select
        Selection.EntireRow.Hidden = True
    End If
    Next i
End If
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

phlaurent55,

c'est type top , ça fonctionne superbement bien , je te remercie vivement de ton aide et d'avoir solutionné mon problème
bonne fin de journée

Amicalement

ghislain

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

re ,

j ai integré ta proposition dans mon fichier , mais je ne sais d ou ça vient , sur ton exemple c est tres rapide et sur mon fichier ça rame grave

as tu une idée d ou cela peux venir ??

cordialement

ghislain

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

re ,
j ai trouvé , j ai désactive le calcul automatique , du coup ça fonctionne

voila merci encore

cordialement

ghislain

 

[phlaurent55]

Re : masquer ligne ou copier coller suivant selection

Re,

encore plus rapide avec ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Not Intersect(Target, Range("D1:M1")) Is Nothing Then
If [M1] < [H1] Then Exit Sub
    Rows("99:516").EntireRow.Hidden = True
    For i = 99 + ([H1] - 1) * 35 To 99 + ([M1] - 1) * 35 + 34
        Rows(i).EntireRow.Hidden = False
    Next i
    For Each cel In Range("A99:A518")
    If cel.Value = "" Then Rows(cel.Row).EntireRow.Hidden = True
    Next cel
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

la différence par rapport au code précédent se trouve dans la manière de cacher les lignes vides

à+
Philippe

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

re Rachid,

j'ai du me tromper de fichier tout a l heure , quoi qu'il en soit j'ai encore tenté d’intégrer ta proposition en pensant que celle ci fonctionne sur mon fichier mais aucun nom n’apparait.

je te met en ligne ma version a moi avec tes formules , si tu as le temps et bien sure sans abuser de ta gentillesse , me dire ou je fait l erreur

amicalement

ghislain

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

le fichier lol

 

[R@chid]

Re : masquer ligne ou copier coller suivant selection

Bonjour GHISLAIN,
Bonjour Phillipe,
Tu t'es trompé aussi de la discussion ou on est c'est pas ici, je suis passé par hasard...
d'abord quand on veut créer la formule LIRE.CELLULE() il faut être prudente...

si le curseur en ligne 29 il faut faire =LIRE.CELLULE(17;$A29) par exemple ou bien si le curseur et en cellule sur la ligne 40 il faut faire =LIRE.CELLULE(17;$A40)...
ce qui veut dire la cellule de référence doit être de même ligne ou le curseur est positionné...

Après avoir nommé la formule =LIRE.CELLULE() il faut la taper dans la colonne Intermédiaire comme suite : =HauteurLigne
et tu la tires vers le bas...

Dans ton dernier fichier je ne voie que des numéros a la place des noms....

Amicalement

 

[GHISLAIN]

Re : masquer ligne ou copier coller suivant selection

oui tu as raison , je me suis trompée de fil , j etais passé ici pour remercie
phlaurent55 pour son code pour masquer les lignes que j ai fini de mettre en place , mille excuses Rachid
Concernant les nombres , c étais juste pour voir si c étais bien les bonnes info que je récupérais dans l activation du filtre , mais je confirme je n aurais que des noms dans cette colonne

j essaie de te restituer le fichier en tentant d appliquer tes consignes mais j avous que c est difficile pour moi , n ayant absolument pas tes compétences en la matières

cordialement et amicalement a tout deux