Discussion :

[riderfab]

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

[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

[Swiper]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[riderfab]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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