Vba : modèle de range

ViriisXP Messages postés 535 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour, je cherche la bonne formule pour passer d'une méthode comme :

For k = 5 To dateend
.Columns(k).EntireColumn.Hidden = True
Next k

vers une range directement sachant bien entendu que dateend est aussi dynamique, sinon c'est pas drole.


car la méthode ci-dessus est extrêmement lente... mais extrêmement ^^

cordialement !:)


2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 
bonjour

peut être comme ça? 

Dim plage As Range
Set plage = Range(Cells(1, datedeb), Cells(1, dateend))
plage.EntireColumn.Hidden = True

bonne suite
0
ViriisXP Messages postés 535 Statut Membre 40
 
erreur défini par l'application ou par l'objet. :/
0
ViriisXP Messages postés 535 Statut Membre 40
 
je le fais à partir d'une USF, si ca peux aider et le filtre est à mettre en place sur la feuille "Prog."
0
Réponse 2 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 
il manque certainement la référence à la feuille 

Dim plage As Range
Set plage = sheets("mafeuille").Range(Cells(1, datedeb), Cells(1, dateend))
plage.EntireColumn.Hidden = True
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses