Syntaxe objet range

Fermé
berclaud Messages postés 2 Date d'inscription samedi 28 janvier 2006 Statut Membre Dernière intervention 28 janvier 2006 - 28 janv. 2006 à 09:27
berclaud Messages postés 2 Date d'inscription samedi 28 janvier 2006 Statut Membre Dernière intervention 28 janvier 2006 - 28 janv. 2006 à 09:55
bonjour

Je débute en VBA Excel et je ne sais plus écrire le code permettant de :
-trouver la dernière ligne non vide d'un tableau (en fait, cela je maîtrise...je pense)
- incrémenter une variable avec le numéro de cette ligne
- utiliser cette variable pour sélectionner une plage

Range("E1").End(xlDown).Offset(0, 0).Select
dernier = ActiveRows
Range("A2", (J" & dernier)).Select

Ce sont les 2 dernières lignes qui me posent problème.

Merci de vos réponses

2 réponses

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
28 janv. 2006 à 09:43
Salut,

c'est plutôt
 Range("A2:J" & dernier).Select 


Un autre façon de le faire
Sub dernierelignenonvide()
    Dim ligne As Long
    
    ligne = Range("A65536").End(xlUp).Row 'je stocke le numéro de ligne 
    Range("b2:j" & ligne).Select ' et je l'utilise avec range
       
End Sub


Ca marche aussi comme ça
Sub dernierelignenonvide_2()

    Range("b2:j" & Range("A65536").End(xlUp).Row + 1).Select

End Sub
1
berclaud Messages postés 2 Date d'inscription samedi 28 janvier 2006 Statut Membre Dernière intervention 28 janvier 2006
28 janv. 2006 à 09:55
Wouahhhhh !!!!

Ca c'est de la rapidité et de la qualité !!!

Super, cela fonctionne comme je le veux !! OUF !!! Je désespérais.

Merci tout plein !
0