[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:

Vba derniere ligne
Aller à la ligne excel - Guide
Ligne occupée - Forum SFR
Site de vente en ligne particulier - Guide
Supprimer dernière page word - Guide
Partager photos en ligne - Guide

2 réponses

Réponse 1 / 2

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)

Discussions similaires

numero derniere ligne d'une feuille

code renvoi à la ligne sous VBA Excel

Excel suppression de lignes contenant "0"

Insérer une ligne dans une feuille excel vba

Copier / Coller ligne excel (VBA)

redimensionner la hauteur de ligne vba excel