cellule masquée

Kotov

XLDnaute Impliqué

• 11 Novembre 2007

• #2

Re : cellule masquée

Bonsoir,

Essaies cette macro
(En gros, le calcul ne se fait que sur les lignes non masquées)

Code:

Sub EviteLigneMasque()

If ActiveCell.EntireRow.Hidden = False Then
  ----- içi ton calcul
Else :End If  

End Sub

A noter le Else est facultatif surtout si tu ne fais rien sur les lignes masquées :
If ActiveCell.EntireRow.Hidden = False Then
----- içi ton calcul
End If
Bonne soirée
Kotov

 

Dernière édition: 11 Novembre 2007

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 11 Novembre 2007

• #3

Re : cellule masquée

Bonsoir kotov
j'ai fait les essais mais excel garde en mémoire une partie des cellules masquées. Le début de mon code est le suivant:
For Each x In Sheets("activité").Range(Sheets("activité").Range("j4"), Sheets("activité").Range("j65536").End(xlUp))
With Sheets("planning")

If ActiveCell.EntireRow.Hidden = False Then
Select Case x
malgré l'insertion du if, il garde les cellules masquées en mémoire
a+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 11 Novembre 2007

• #4

Re : cellule masquée

Bonsoir

Pas trop clair
Je ne comprends pas

Possible d'avoir la macro au moins jusqu'a activecell

 

Vote positif 0 Vote négatif

Kotov

XLDnaute Impliqué

• 11 Novembre 2007

• #5

Re : cellule masquée

Re,

Ta macro étant incomplète, je ne suis pas certain d'avoir tout saisi.

Toutefois, dans un cas similaire, je procéderais de la manière suivante :

Création d'un tableau à 2 dimensions - exemple : T(r,c) - dans lequel r correspond aux rangées et c aux colonnes.
Ensuite par une macro semblable à celle que je t'ai proposée, je placerais les données non masquées dans le tableau.

Une fois rempli, ce tableau correspondrait à "l'image" de ta feuille Excel moins les colonnes masquées.

Il suffit ensuite de travailler sur ce tableau pour le reste de tes calculs.

----
Je n'ai pas le temps ce soir de développer un exemple (désolé) mais si tu bloques sur la conception, je te filerai un coup demain demain soir.

Bonne soirée
Kotov

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 12 Novembre 2007

• #6

Re : cellule masquée

Bonsoir kotov
je ne comprend pas très bien le tableau que tu veux créer.
Pour faciliter la compréhension, je joins le fichier.
Je veux que le code s'exécute comme maintenant à partir de la macro soutien_base
mais en tenant compte des critères de la colonne D d'où le if que je souhaite intéger puis de la colonne F de la même manière car les personnes peuvent appartenir à deux atelier.
En fait je veux faire apparaître les activités des personnes d'un atelier. Par la suite avec un jeu de case à cocher je sélectionnerai les ateliers que je souhaite avoir simultannément
J'espère avoir été clair
Merci pour vos éclairage
a+

 

Pièces jointes

• Activités Soutien 2007_4.zip

  47.1 KB · Affichages: 33

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 12 Novembre 2007

• #7

Re : cellule masquée

bonjour

Dans ta macro 'ActivitéA'
A la place de

If ActiveCell.EntireRow.Hidden = False Then

mets

If x.EntireRow.Hidden = False Then

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 12 Novembre 2007

• #8

Re : cellule masquée

Bonsoir Banzai64
Merci pour ta réponse. Cette fois ça marche.
Question y-at-il moyen de mettre cette condition "if x.entire row.hiden=false then dans un module indépendant de façon à ne pas avoir à l'ajouter au mileu des différentes procédures . Ainsi, lors du lancement j'utiliserai l'appelle de procédure "call ...."
Merci
a+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 12 Novembre 2007

• #9

Re : cellule masquée

bonsoir

Non

A moins que je ne trompe tu dois l'utilser que lorque tu traites la feuille 'Activité'

Comme je n'ai pas tout vu il me semble qu'il n'y a que 2 procédures

 

Dernière édition: 12 Novembre 2007

Vote positif 0 Vote négatif