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
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 D329
Et caetera
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