Appel de fonction, portée des variables

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

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

---

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 ?

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 ...)

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