Faire remonter les lignes en programmant

Michel
ta solution fonctionne à merveille mais sur la feuille que je t ai envoyé ,c'est instantané moi ma feuille est beaucoup plus lourde je sais pas si cela a une incidence sur la rapidité d’exécution il me faut a peu prés pratiquement une minute a partir du moment ou j'ai enclenché le processus ;pareil pour réinitialiser ma feuille va jusqu'a la colonne BVF je ne sais pas si cela vient de la est ce que tu peux me dire si le fait de le mettre dans n importe quel module a une incidence j ai inscrit sur un module qui était vide
je vois tout de même que tu te défends et que tu n 'as pas mis longtemps pour trouver une solution je vais aussi essayer d'ouvrir une autre feuille plus legere dans le classeur pour rapatrier juste ces informations et mettre ton code dedans peut être que je devrais obtenir la rapidité voulu...?
autre fois je rapatriais les informations par un programme qui me copiait et collait toujours vers le même emplacement , je ne sais pas si je vais pas essayer cette solution c’était très rapide mais le problème est que je me souviens pas de quelle manière le gars s'y était pris je crois que c'est ce code qu il avait inscrit (les infos étaient prises d'un autre emplacement



Private Sub CommandButton1_Click()

End Sub

Sub Worksheet_selectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("CT56,CV56,CX56,CZ56")) Is Nothing Then
Range("CQ56") = Target
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("CV12:CV51,CX12:CX51")) Is Nothing Then
[DP2] = Target.Value
If Target.Column = 100 Then
[D56] = Target.Offset(0, -96).Value
[E56] = Target.Offset(0, -95).Value
[F56] = Target.Offset(0, -94).Value
ElseIf Target.Column = 102 Then
[D56] = Target.Offset(0, -98).Value
[E56] = Target.Offset(0, -97).Value
[F56] = Target.Offset(0, -96).Value
End If
End If
If Not Application.Intersect(Target, Range("CT56,CV56,CX56,CZ56")) Is Nothing Then
If Target.Address = "$CV$56" Then
Range("DC57:DL92").Value = Range("BFI" & [D56] & ":BFR" & [D56] + 36).Value
Range("CS57:DB92").Value = Range("BFI" & [E56] & ":BFR" & [E56] + 36).Value
Range("CI57:CR92").Value = Range("BFI" & [F56] & ":BFR" & [F56] + 36).Value
ElseIf Target.Address = "$CT$56" Then
Range("DC57:DL92").Value = Range("BIJ" & [D56] & ":BIS" & [D56] + 36).Value
Range("CS57:DB92").Value = Range("BIJ" & [E56] & ":BIS" & [E56] + 36).Value
Range("CI57:CR92").Value = Range("BIJ" & [F56] & ":BIS" & [F56] + 36).Value
ElseIf Target.Address = "$CZ$56" Then
Range("DC57:DL92").Value = Range("BLK" & [D56] & ":BLT" & [D56] + 36).Value
Range("CS57:DB92").Value = Range("BLK" & [E56] & ":BLT" & [E56] + 36).Value
Range("CI57:CR92").Value = Range("BLK" & [F56] & ":BLT" & [F56] + 36).Value
ElseIf Target.Address = "$CX$56" Then
Range("DC57:DL92").Value = Range("BOL" & [D56] & ":BOU" & [D56] + 36).Value
Range("CS57:DB92").Value = Range("BOL" & [E56] & ":BOU" & [E56] + 36).Value
Range("CI57:CR92").Value = Range("BOL" & [F56] & ":BOU" & [F56] + 36).Value
End If
End If
[CV76].Select
End Sub

c'est pas bien grave , j ai un problème beaucoup plus costaud à résoudre ;je t'interroge pour savoir si tu peux m 'aider à solutionner attention c'est complexe...je pense que tu as le niveau
Bonne soirée et félicitation

salut Michel
je ne suis pas programmeur mais j arrive a comprendre généralement ce qui est fait par la personne qui me donne un coup de main )
ce que j appelle les barres de fractionnement est tout simple ,vous allez dans EXcel 2016 sur l 'onglet affichage puis a droite vous verrez fractionner et en dessous masquer , vous cliquez sur fractionner et vous verrez les 2 barres apparaître sur votre feuille qui permettent de bloquer une partie pour faire dérouler l autre (c'est un peu comme si vous figiez les volets)

En fait mon tableau est toujours avec la barre horizontale en ligne11 (comprise) et en vertical ma deuxième barre s 'arrête a la colonne CZ (comprise ) Mon but est de faire remonter les lignes du tableau(sans changer mes barres de fractionnement de place) la des que je vais double cliquer dans les cellules des deux plages dont je vous ai mis les références et selon l'ordre choisi je pourrais choisir immédiatement l information a l 'emplacement qui m 'intéresse par un simple double Click(et surtout, très important l avoir immédiatement sous les yeux) mais comme je vous l ai précisé il faut aussi que de la position qui a été sélectionné je puisse revenir a la position initiale c'est a dire que je me retrouve a nouveau quand je le désire en ligne 12 en dessous de ma barre de fractionnement (ligne11) donc il faudra une macro pour assurer le retour à la position habituelle
je pense que c'est réalisable
je comprends que le double click ne viendra pas interférer sur le simple click
Avez vous une idée précise de la façon de réaliser ce petit programme??
??
MERCi Bonne journée

une aide sera plus facile avec la feuille du classeur
pour cela:

Mettre le classeur sans données confidentielles en pièce jointe sur 
https://mon-partage.fr/
Puis faire un clic droit copier le raccourci  et coller dans votre message 

je mettrai ce Bouton en cellule DI10j au dessus de ma barre de fractionnement (se situant en ligne11, comprise)
on pourrait peut-^tre utiliser un clic droit ?


je verrai tout ça demain matin à moins que qqn d'autre te propose une solution..

ps: j'ai xl2007

Salut Michel
je te mets le fichier si il y une chose que tu comprends pas n hésite pas
moi je pense qu il est possible de faire un mini programme qui permet de se retrouver a la ligne qu on désire sans aller faire du copier coller avec un tempo et une mémoire de l 'emplacement
à mon avis ce serait beaucoup mieux ; merci de t intéresser c'est sympa https://mon-partage.fr/f/XLoh5Whl/

Bonjour Michel
je ne suis pas programmeur je ne comprends pas ce que tu as fait je ne vois aucun lien avec mes colonnes CV12:CV51 et CX12 CX51 je ne vois pas comment tu peux actionner ce programme tu parles de lignes selectionne alors qu il faut que je double clique dans une cellule de chaque plage pour pouvoir masquer mes lignes
exemple si je doubleclique sur la cellule CV12 il va falloir que de la ligne 12 a la ligne 226 ce soit masqué
si je clique sur la cellule CV13 il va falloir que de la ligne 12 a la ligne 312 ce soit masqué
si je clique sur la cellule CV14 il va falloir que de la ligne 12 a la ligne 398 ce soit masqué
etc
pour la plage CX12;CX51 si je clique sur la cellule CX12 il va falloir que de la ligne 12 a la ligne 269 ce soit masqué
si je clique sur la cellule CX13 il va falloir que de la ligne 12 a la ligne 355 ce soit masqué
si je clique sur la cellule CX14 il va falloir que de la ligne 12 a la ligne 441 ce soit masqué
etc

j ai essaye de masquer en macro manuellement de la ligne 12 a 226 cela donne cela
Sub Masquer()
'
' Masquer Macro
'

'
Rows("12:226").Select
Range("CI12").Activate
Selection.EntireRow.Hidden = True

quand je veux revenir a la position initiale je sélectionne le tableau entier, puis clic droit afficher
Sub Afficher()
'
' Afficher Macro
'

'
Cells.Select
Range("CQ21").Activate
Selection.EntireRow.Hidden = False
End Sub


le problème est que lorsque je clique dans l angle pour sélectionner le tableau entier il m 'apparaît à chaque fois une fenêtre de débogage Erreur d'execution 1004 sinon c'est un peu un début de piste sauf que il faut maintenant lié la sélection aux plages CV12.CV51 et CX
;CX51 ;ca je ne sais pas du tout comment il faut faire

salut michel
excuse moi je n avais pas vu ton document je suis entrain de regarder mais apparemment cela a l air de fonctionner

c était pas le bout du monde désolé j ai plus de 60 balais et j ai pas la verve d'un tout jeune

bravo, j'en ai 72!

quelque chose qui te permettrait de te dépasser
Bof, ce n'était pas compliqué du tout...