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

XL 2016 VBA Sélectionner une plage de cellule

  • Initiateur de la discussion Initiateur de la discussion Thhrsa
  • 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 !

Thhrsa

XLDnaute Nouveau
Bonjour la communauté.

J'ai besoin d'aide concernant une VBA que j'ai écrit et que je dois modifier pour différentes raisons.
Auparavant, dans cette VBA, pour sélectionner une plage de cellule, je faisait un "xlDown". Cette fonction ne peux plus fonctionner car depuis, dans cette plage de cellule à sélectionner, je peux avoir des cellules vide.

Ci-joint codes que j'utilisais.

'Déterminer dernière colonne
Range("AH31").Select
Do Until ActiveCell >= 5000
ActiveCell.Offset(0, -1).Select
Loop

'Positionnement dernier colonne et selection
ActiveCell.Offset(-28, 0).Select
Range(Selection, Selection.End(xlDown)).Select

Pour information la plage de cellule sera toujours de même taille (ligne 3 à ligne 29), mais elle ne sera pas au même endroit

Je séche...

Cdt
 

Pièces jointes

Bonjour Lone-Wolf

En clair, quand tu regardes mon tableau, je test les cellules de AG31 à C31 pour déterminer la dernière "NON VIDE".
A partir de là, je dois sélectionner la plage correspondante.
Exemple dans mon tableau, je sélectionne la plage C3:C29, puis copier........
Demain, avec la remontée du chiffre, je devrais sélectionner la plage D3😀29
Et caetera
 
Bonsoir le fil, bonsoir le forum,

Essaie comme ça :

VB:
Sub Macro1()
Dim COL As Byte
Dim I As Byte

For I = 2 To 33
  If Cells(31, I).Value = 0 Then COL = I - 1: Exit For
Next I
Range(Cells(3, COL), Cells(29, COL)).Copy
'la suite...
End Sub

Tiens ! Arrête de pleurer
 
- 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
2
Affichages
282
Réponses
5
Affichages
377
Réponses
3
Affichages
673
  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
517
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…