[VBA] Dernière ligne + 1

Résolu/Fermé
Koozag Messages postés 391 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 31 janvier 2013 - 16 nov. 2010 à 11:18
Koozag Messages postés 391 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 31 janvier 2013 - 16 nov. 2010 à 12:38
Bonjour,

dans le cadre d'un projet d'automatisation d'un processus je doit remplir toute une colonne avec une formule !
Grâce à l'enregistrement des macros j'ai pu découvrir ça :
Range("I" & [I65000].End(xlUp).Row).Select


J'aimerais adapter tout ça en ajoutant 1 ligne, donc vulgairement :
Range("I" & [I65000].End(xlUp).Row +1 ).Select


Seulement j'ai une erreur "La méthode autofill de la classe Range à échoué"

Merci d'avance pour votre aide ;)

A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 nov. 2010 à 11:55
Bonjour,

Tu veux sélectionner la première cellule vide de la colonne I:

Dim FirstCellsEmpty As Long

FirstCellsEmpty = Worksheets(1).Range("I65536").End(xlUp).Row + 1

Worksheets(1).Range("I" & FirstCellsEmpty).Select


;o)
1