Vba : modèle de range

ViriisXP Messages postés 487 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 10909 Date d'inscription   Statut Membre Dernière intervention   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 487 Date d'inscription   Statut Membre Dernière intervention   40
 
erreur défini par l'application ou par l'objet. :/
0
ViriisXP Messages postés 487 Date d'inscription   Statut Membre Dernière intervention   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 10909 Date d'inscription   Statut Membre Dernière intervention   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

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

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

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

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse