Je souhaiterais que l'usager puisse avoir la possibilit=E9 les quatre
derni=E8res lignes incrites sur une feuille excel. Sauriez-vous quelles
sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test()
Dim Ligne As Long
With ActiveSheet()
Ligne =3D .[A65536].End(xlUp)(2).Row
[A65536].End(xlUp).Select
Selection.Resize(-4, 0).Select
Selection.EntireRow.Delete
End With
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
Jacky
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
Bonjour,
Par exemple
'--------
Sub test()
Dim Ligne As Double
With ActiveSheet()
Ligne = [A65536].End(3).Row
Range(Ligne - 3 & ":" & Ligne).Delete
End With
End Sub
'-----------
--
Salutations
JJ
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1174567961.668985.40030@l77g2000hsb.googlegroups.com...
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre
dernières lignes incrites sur une feuille excel. Sauriez-vous quelles
sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[A65536].End(xlUp)(2).Row
[A65536].End(xlUp).Select
Selection.Resize(-4, 0).Select
Selection.EntireRow.Delete
End With
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
lSteph
Bonjour,
Sub Supp4row() Dim i As Long For i = 1 To 4 Rows(65536).End(xlUp).EntireRow.Delete Next End Sub
'lSteph
On 22 mar, 13:52, "Denys" wrote:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
Bonjour,
Sub Supp4row()
Dim i As Long
For i = 1 To 4
Rows(65536).End(xlUp).EntireRow.Delete
Next
End Sub
'lSteph
On 22 mar, 13:52, "Denys" <denys.perrea...@rbc.com> wrote:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre
dernières lignes incrites sur une feuille excel. Sauriez-vous quelles
sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[A65536].End(xlUp)(2).Row
[A65536].End(xlUp).Select
Selection.Resize(-4, 0).Select
Selection.EntireRow.Delete
End With
Sub Supp4row() Dim i As Long For i = 1 To 4 Rows(65536).End(xlUp).EntireRow.Delete Next End Sub
'lSteph
On 22 mar, 13:52, "Denys" wrote:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" wrote:
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
Salut Jacky,
Aurais-tu des lignes à virgule?
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" <Dup...@dupont.fr> wrote:
Bonjour,
Par exemple
'--------
Sub test()
Dim Ligne As Double
With ActiveSheet()
Ligne = [A65536].End(3).Row
Range(Ligne - 3 & ":" & Ligne).Delete
End With
End Sub
'-----------
--
Salutations
JJ
"Denys" <denys.perrea...@rbc.com> a écrit dans le message de news:
1174567961.668985.40...@l77g2000hsb.googlegroups.com...
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre
dernières lignes incrites sur une feuille excel. Sauriez-vous quelles
sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[A65536].End(xlUp)(2).Row
[A65536].End(xlUp).Select
Selection.Resize(-4, 0).Select
Selection.EntireRow.Delete
End With
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" wrote:
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
Jacky
Salut Stéphane
Cela doit être la choucroute qui passe pas. ;o)) -- Salutations JJ
"lSteph" a écrit dans le message de news:
Salut Jacky,
Aurais-tu des lignes à virgule?
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" wrote:
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With
End Sub
Merci
Denys
Salut Stéphane
Cela doit être la choucroute qui passe pas.
;o))
--
Salutations
JJ
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1174570507.716076.310770@p15g2000hsd.googlegroups.com...
Salut Jacky,
Aurais-tu des lignes à virgule?
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" <Dup...@dupont.fr> wrote:
Bonjour,
Par exemple
'--------
Sub test()
Dim Ligne As Double
With ActiveSheet()
Ligne = [A65536].End(3).Row
Range(Ligne - 3 & ":" & Ligne).Delete
End With
End Sub
'-----------
--
Salutations
JJ
"Denys" <denys.perrea...@rbc.com> a écrit dans le message de news:
1174567961.668985.40...@l77g2000hsb.googlegroups.com...
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre
dernières lignes incrites sur une feuille excel. Sauriez-vous quelles
sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[A65536].End(xlUp)(2).Row
[A65536].End(xlUp).Select
Selection.Resize(-4, 0).Select
Selection.EntireRow.Delete
End With
Cela doit être la choucroute qui passe pas. ;o)) -- Salutations JJ
"lSteph" a écrit dans le message de news:
Salut Jacky,
Aurais-tu des lignes à virgule?
;o)) c'est plus l'heure de l'apéro, passe à table...
lSteph
On 22 mar, 14:21, "Jacky" wrote:
Bonjour, Par exemple '-------- Sub test() Dim Ligne As Double With ActiveSheet() Ligne = [A65536].End(3).Row Range(Ligne - 3 & ":" & Ligne).Delete End With End Sub '----------- -- Salutations JJ
"Denys" a écrit dans le message de news:
Bonjour à tous,
Je souhaiterais que l'usager puisse avoir la possibilité les quatre dernières lignes incrites sur une feuille excel. Sauriez-vous quelles sont les instructions en VBA pour pouvoir le faire?
Ce qui suit ne fonctionne pas, Excel cherchant un objet...
Sub test() Dim Ligne As Long With ActiveSheet() Ligne = .[A65536].End(xlUp)(2).Row [A65536].End(xlUp).Select Selection.Resize(-4, 0).Select Selection.EntireRow.Delete End With