Sélection de colonnes par Macro.

[laurent45]

Bonsoir le Forum,

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.

J'ai fait ça :

Columns(CRTFin.Column, 54).EntireColumn.Hidden=True

CRTFin.column est la première colonne avec une celulle vide

Mais j'ai une Erreur d'exécution '1004' : Erreur défine par l'application ou par l'objet.

Je bloque. :evil:

Quelqu'un à quelque chose ? :ermm:

Merci

Laurent

Message édité par: Laurent45, à: 06/09/2005 00:48

 

[PascalXLD]

Bonjour

essaies

Columns(CRTFin.Column & ':BB').EntireColumn.Hidden = True

Bon courage

 

[laurent45]

Bonjour Pascal76, le Forum,

J'ai testé ta proposition :

Erreur d'exécution '13': Incompatibilité de type

CRTFin est renseigné de la manière suivante :

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:

:unsure: :S Je sèche

Laurent

Message édité par: Laurent45, à: 06/09/2005 10:25

 

[PascalXLD]

Re

essaies avec une boucle en attendant de trouver un code plus propre

for x = CRTFin.Column to 54
columns(x).EntireColumn.Hidden=True
next

 

[laurent45]

Re Pascal76,

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 !!

@+

Laurent