XL 2016 VBA Sélectionner une plage de cellule

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

  • Test VBA.xlsx
    278 KB · Affichages: 32

Thhrsa

XLDnaute Nouveau
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:D29
Et caetera
 

Robert

XLDnaute Barbatruc
Repose en paix
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
mouchoir-en-papier-5599423.jpg
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
292

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof