Voila ! J'ai une feuille avec un tableau d'une taille conséquente (55 colonnes), pour prévoir une saisie importante. Mais les 55 colonnes ne sont pas toujours remplies.
Précision : cette feuille est rempli par 1 USF. Une fois les données copier sur la feuille, je voudrais masquer les colonnes vides.
Public Sub Initialise_CRT()
...
Set CRTTotal = Range('CC1').End(xlToLeft).Columns ' Cherche la colonne intitulé 'Total' '
Set CRTFin = CRTTotal.End(xlToLeft).Columns ' Cherche la dernière celulle du tableau
...
Lorsque j'ai le Débogeur la Variable CRTFin.column = 9. La dernière colonne non-vide du tableau est 8. Donc ça devrait fonctionner !! :silly:
Ca fonctionne. Un peu long, mais ça fonctionne. (on améliorera plus tard)
Je fais un ScreenUpdating = False dans mon USF, mais pendant l'action, la feuille s'affiche derrière l'USF !!