fractionner une fenêtre et avoir les 10 dernières lignes sous le fractionné
3 réponses
fred
Bonjour,
J'aimerais qu'=E0 la fin de ma macro que le classeur soit fractionn=E9 =E0
la ligne 15 par exemple et si mes donn=E9es arrivent au niveau de la
ligne 250 que je puisse voir sur l'=E9cran apr=E8s le fractionn=E9 les 10
derni=E8res lignes (ex de L 240 =E0 L250)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news: Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)
Merci
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut modifier légèrement la procédure... elle va planter !
'---------------------------------
Sub Fractionner()
Dim DerLig As Long
With Worksheets("Feuil5") ' à définir
.Activate
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row - 10
With ActiveWindow
.SplitRow = 15
End With
Application.Goto .Range("A" & DerLig), True
End With
End Sub
'---------------------------------
Salutations!
"fred" <lol.pegase@laposte.net> a écrit dans le message de news: 1129388264.739129.308860@g43g2000cwa.googlegroups.com...
Bonjour,
J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à
la ligne 15 par exemple et si mes données arrivent au niveau de la
ligne 250 que je puisse voir sur l'écran après le fractionné les 10
dernières lignes (ex de L 240 à L250)
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news: Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)
Merci
fred
Je viens de tester la macro...c'est presque parfait... Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fractionner et non au dessus comme cela se termine!!! Merci pour ta réponse rapide!!!
"michdenis" a écrit dans le message de news: %237pEy%
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news:
Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)
Merci
Je viens de tester la macro...c'est presque parfait...
Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fractionner
et non au dessus comme cela se termine!!!
Merci pour ta réponse rapide!!!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%237pEy%23Z0FHA.3216@TK2MSFTNGP10.phx.gbl...
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut
modifier légèrement la procédure... elle va planter !
'---------------------------------
Sub Fractionner()
Dim DerLig As Long
With Worksheets("Feuil5") ' à définir
.Activate
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row - 10
With ActiveWindow
.SplitRow = 15
End With
Application.Goto .Range("A" & DerLig), True
End With
End Sub
'---------------------------------
Salutations!
"fred" <lol.pegase@laposte.net> a écrit dans le message de news:
1129388264.739129.308860@g43g2000cwa.googlegroups.com...
Bonjour,
J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à
la ligne 15 par exemple et si mes données arrivent au niveau de la
ligne 250 que je puisse voir sur l'écran après le fractionné les 10
dernières lignes (ex de L 240 à L250)
Je viens de tester la macro...c'est presque parfait... Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fractionner et non au dessus comme cela se termine!!! Merci pour ta réponse rapide!!!
"michdenis" a écrit dans le message de news: %237pEy%
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il faut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news:
Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)
Merci
fred
ok je pense avoir trouvé en rajoutant ActiveWindow.Panes(2).Activate
Merci pour tout
Je viens de tester la macro...c'est presque parfait... Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fraction ner et non au dessus comme cela se termine!!! Merci pour ta réponse rapide!!!
"michdenis" a écrit dans le message de news: %237pEy%
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il f aut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news:
Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)
Merci
ok je pense avoir trouvé en rajoutant
ActiveWindow.Panes(2).Activate
Merci pour tout
Je viens de tester la macro...c'est presque parfait...
Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fraction ner
et non au dessus comme cela se termine!!!
Merci pour ta réponse rapide!!!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%237pEy%23Z0FHA.3216@TK2MSFTNGP10.phx.gbl...
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il f aut
modifier légèrement la procédure... elle va planter !
'---------------------------------
Sub Fractionner()
Dim DerLig As Long
With Worksheets("Feuil5") ' à définir
.Activate
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row - 10
With ActiveWindow
.SplitRow = 15
End With
Application.Goto .Range("A" & DerLig), True
End With
End Sub
'---------------------------------
Salutations!
"fred" <lol.pegase@laposte.net> a écrit dans le message de news:
1129388264.739129.308860@g43g2000cwa.googlegroups.com...
Bonjour,
J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à
la ligne 15 par exemple et si mes données arrivent au niveau de la
ligne 250 que je puisse voir sur l'écran après le fractionné les 10
dernières lignes (ex de L 240 à L250)
ok je pense avoir trouvé en rajoutant ActiveWindow.Panes(2).Activate
Merci pour tout
Je viens de tester la macro...c'est presque parfait... Mais en fait j'aimerais que les ligne L240 à L250 soit sous le fraction ner et non au dessus comme cela se termine!!! Merci pour ta réponse rapide!!!
"michdenis" a écrit dans le message de news: %237pEy%
Bonjour Fred,
Voici un exemple à partir duquel tu peux t'inspirer :
Si c'est possible que ta dernière ligne soit inférieur à 10, il f aut modifier légèrement la procédure... elle va planter !
'--------------------------------- Sub Fractionner()
Dim DerLig As Long With Worksheets("Feuil5") ' à définir .Activate DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row - 10 With ActiveWindow .SplitRow = 15 End With Application.Goto .Range("A" & DerLig), True End With
End Sub '---------------------------------
Salutations!
"fred" a écrit dans le message de news:
Bonjour, J'aimerais qu'à la fin de ma macro que le classeur soit fractionné à la ligne 15 par exemple et si mes données arrivent au niveau de la ligne 250 que je puisse voir sur l'écran après le fractionné les 10 dernières lignes (ex de L 240 à L250)