VBA - Selection d'unité

Version imprimable

09/07/2007, 13h29
riderfab

1 pièce(s) jointe(s)

VBA - Selection d'unité

Bonjour le forum

Je suis débutant en VBA.

Mon fichier dispose d'une plage de cellules (C6:F9), nommée "ZONE_TRAVAIL" où l'on rentre des charges de travail, initialement en heures par exemple. Une fois que celles-ci sont rentrées je souhaite juste pouvoir basculer en un click d'une vision en heure à une vision en mois. Pour ce faire je dois pouvoir en un click diviser toutes les cellules de ma plage par 160 ou inversement toutes les multiplier par 160. J'ai réalisé un bout de code qui me permet de faire celà dans le fichier joint (via les boutons heures et mois)

Le problème apparait lorsque je lance une conversion en étant filtré (par exemple on filtre sur projet 2 et projet 4 via les filtres auto), cela ne marche plus du tout : toutes mes lignes se mélangent....

Mon code vba fait appel à la zone nommée "ZONE_TRAVAIL" qui correspond à la plage "C6:F9", mais j'ai l'impression qu'il travaille en fait uniquement sur la partie visible à l'écran de cette zone;

Comment faire référence à cette zone de façon absolue, c'est à dire de façon indépendante de ce que l'on voit à l'écran?

Merci d'avance de vos idées.

Fabrice
09/07/2007, 15h58
riderfab

Personne n'a d'idées?

En gros mon problème est : comment appeler dans vba à une plage de cellules dont certaines lignes sont filtrées, et effectuer un traitement sur toutes les cellules de la plage, y compris celles qui sont filtrés sur l'écran d'excel??

merci d'avance à ceux qui voudront bien m'aider!

Fabrice
09/07/2007, 16h25
Swiper

Si ta plage dans la feuille est toujours la même alors il suffit de mettre dans ton code de boutton.

Code:

range("C6").CurrentRegion.select

Cela te selectionnera toutes les cellules renseignées même les filtrées, mais c'est bizarre car justement moi lorsque je voulai choisir que les cellules filtrées cela ne fonctionnais pas. Je n'ai pas le temps malheureusement de télécharger le fichier joint. Je le ferais demain si personne ne t'as donné une meilleure réponse.
09/07/2007, 16h39
riderfab

1 pièce(s) jointe(s)
Merci de ta proposition Swiper, mais j'ai essayé et cela ne fonctionne pas.

J'ai réalisé un fichier simplifié pour mieux comprendre. En cliquant sur export je souhaite copier toute ma plage, y compris les éventuels cellules masquées.
Le code est :
Code:

1 2 3 Range("ZONE_TRAVAIL").Copy Range("$H$20").Select ActiveSheet.Paste
Dès que certaines lignes de ZONE_TRAVAIL sont filtrées, je ne les récupère pas en H20.

Avez vous d'autres idées, ça m'aiderait vraiment beaucoup.

Fab