Vba : modèle de range

ViriisXP Messages postés 535 Statut Membre -
ccm81 Messages postés 11033 Statut Membre - 6 juil. 2012 à 09:23

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

--

je pense donc je suis !

Afficher la suite

2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 434
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
1. ViriisXP Messages postés 535 Statut Membre 41
  
  erreur défini par l'application ou par l'objet. :/
  
  0
2. ViriisXP Messages postés 535 Statut Membre 41
  
  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 434
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

Vba : modèle de range

2 réponses

Discussions similaires

Newsletters