[XL-2010] Appel de fonction, portée des variables [Résolu]

[PolyAmide]

Bonjour le forum,

Comment puis je faire en sorte qu'un macro ne prenne pas en compte les lignes cachées, par exemple (simple) :

Code :

1
2
3
4
5
6
7
For Each cell In range
    If cells (i, 1) = "Oui" then
            cell.Offset(1, 0).Value = "Oui"
        End If
    Else
End If
Next

si cell (i, 1) = "Oui" et que la ligne (i + 1) est cachée j'aimerai que "Oui" ne soit pas affiché en (i + 1, 1) mais en (i + 2, 1)

J'espère ne pas m'être trop mal exprimer et qu'il existe une solution.

Merci d'avance

[bbil]

bonsoir,
teste la propriété hidden de ta feuille

Code :

1
2
3
4
5
6
If cells (i, 1) = "Oui"   Then 
         if  cells (i, 1).EntireRow.Hidden   then
           'Cachée
          else
            'Pas cachée
           endif

[PolyAmide]

Bon du coup j'ai changer d'idée, j'ai rentré une fonction qui compte le nombre de ligne cachées.

Seulement, c'est la première fois que j'ai a faire appel à une fonction et je galère. voici le passage concerné:

Code :

1
2
3
4
5
If Cells(i, 3).Value = "Oui" Or Cells(i + 1, 3).Value = "Oui" Then
            Cells(i, ColTiree).Value = "OT#": Call CLC(i + 2)
            Cells(i + 2 + NbCachées, ColTiree).Value = "OT#": Call CLC(i + 4)
            Cells(i + 4 + NbCachées, ColTiree).Value = "OT#"
    End If

Et la fonction appelée:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function CLC(ByVal k As Variant) 'compte les lignes caché entre k et la prochaine ligne visible
 
Dim NbCachées As Integer
 
NbCachées = 0
 
While Rows(k).Hidden = True
    NbCachées = NbCachées + 1
k = k + 1
Wend
 
End Function

Le problème est je pense la façon dont j'ai déclarer "NbCachées" car la fonction me compte bien les lignes correctement, mais NbCachées est vidée dès end function.

Comment prolonger la durée de vie de NbCachées jusqu'au prochain appel de la fonction ?

[bbil]

Je comprends pas trop ce que tu veux faire ...

mais bon lit cela : http://bbil.developpez.com/tutoriel/...ariables#LXIII

au sujet de la 'portée' des variables pour ton NbCachées (évite les accents dans les noms de variables et fonctions ...)

[PolyAmide]

C'est bon il fallait juste déclarer NbCachees comme public Tout en haut avant le premier sub