Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sélection d'une plage de cellules en VBA

  • Initiateur de la discussion Initiateur de la discussion babacool
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

babacool

XLDnaute Nouveau
Bonsoir le forum,

J'aurais aimé savoir comment faire pour sélectionner une plage de cellules qui se situe 1 ligne en dessous de la dernière cellule d'un tableau.
L'exemple joint est sûrement plus parlant. Le problème est que le nombre de colonnes est variable.

J'ai essayé .end(xltoright) ou used range mais ça marche pas bien.

Merci pour votre aide.
 

Pièces jointes

Re : Sélection d'une plage de cellules en VBA

Coucou my brother,

Pour récupérer le numéro de ligne situé 1 ligne sous ton tableau
Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 2
Cool ?
 
Re : Sélection d'une plage de cellules en VBA

salut babacool,

essaie ceci :

Code:
    Dim intNbCol As Integer
    Dim lngNbLig As Long
    
    ' après avoir pris soin de supprimer le commentaire en E1...
    
    lngNbLig = Range("A1").End(xlDown).Row
    intNbCol = Range("A1").End(xlToRight).Column
    
    Range("B" & lngNbLig, Cells(lngNbLig, intNbCol)).Offset(2, 0).Select
 
Re : Sélection d'une plage de cellules en VBA

Salut babacool,

Si le nombre de ligne n'est pas variable :
Range("B8:" & Range("IV8").End(xlToLeft).Address(0, 0)).Select

@+

Edition : Salut Kobaya 😉
 
Re : Sélection d'une plage de cellules en VBA

Bonsoir babacool, Papaye, Kobaya, porcinet82,

Une autre façon de procéder si tout est variable (nombre de lignes et nombre de colonnes) :
Code:
[SIZE=2]Dim Cel[COLOR=navy] As [/COLOR]Range
      [COLOR=navy]With[/COLOR] ActiveSheet
            [COLOR=navy]Set[/COLOR] Cel = .Range("A1").CurrentRegion
            [COLOR=navy]Set[/COLOR] Cel = Cel(Cel.Count)
            .Range(.Cells(Cel.Row + 2, 2), Cel.Offset(2, 0)).[COLOR=navy]Select[/COLOR]
      [COLOR=navy]End[/COLOR] With[/SIZE]
Cordialement,
 
Re : Sélection d'une plage de cellules en VBA

Coucou les garçons,

En combinant du porcinet et de le papaye, cela donne :
Range("B" & ActiveSheet.Range("A65536").End(xlUp).Row + 2 & ":" & Range("IV8").End(xlToLeft).Address(0, 0)).Select
et non pas du porc-paille ou de la pas-si-nette !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…