[Macro]Sélectionner les cases de l'avant-dernière ligne

Bonjour,

Alors voilà, à la suite d'un cours en Informatique sur Excel, on nous a demandé de commencer à manipuler les macros, mais non pas seulement en les enregistrant, mais aussi en écrivant en VBA.

Après avoir fait l'exercice normal, j'ai voulu compliquer la chose - et oui, je suis casse-tête. En effet, j'aimerais pouvoir sélectionner l'avant dernière ligne du tableau que j'ai créé, sans connaître son rang, parce que je vais ajouter des lignes dans ce dernier, et non pas après.

J'ai déjà réussi à insérer une ligne avant cette dernière ligne du tableau en utilisant :

Cells(16384, 2).End(xlUp).Select
Selection.EntireRow.Insert

Maintenant, j'aimerais pouvoir faire un collage spécial - d'incrémentation - dans une case d'une colonne spécifique, mais dans la ligne qui a été insérée. Je sais faire l'incrémentation avec des cases définies, mais pour aller jusqu'à cette ligne que l'on a insérée, je ne sais pas ni ne vois pas comment faire :

Range("A4:A5").Select
    Selection.AutoFill Destination:=Range("A4:A7"), Type:=xlFillDefault

Si quelqu'un a une idée pour m'aider... ^^

Merci d'avance !

bonjour,

quelque chose comme ça :

[code]Sub galopin()

i = Cells(16384, 2).End(xlUp).Row

Rows(21).Insert

Range("A4").AutoFill Destination:=Range("A4:A" & i)

A+

Bonjour !

Merci pour ta réponse, mais cela ne fonctionne pas...

Finalement, j'ai réussi à ce que cela fonctionne avec quelque chose comme ça :

    X = Cells(Rows.Count, "B").End(xlUp).Row - 1
    'On stocke dans la variable X : 
                             '(Rows.Count, "B") : trouver la dernière case 'différente' de la colonne B ( donc si les cases sont vides, cela sera la permière case pleine, si les cases sont pleines, cela sera dès que la variable à l'intérieur changera
                             'Row - 1 : Prendre la ligne du dessus.

    Range("A4:A5").Select
    Selection.AutoFill Destination:=Range("A4:A" & X), Type:=xlFillDefault

Voilà ! =D