Syntaxe objet range

berclaud Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
berclaud Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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   Statut Membre Dernière intervention  
 
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