Discussion :

[zoumzoum59]

Bonjour a tous,

Je voudrais faire une formule qui me permetterait de faire un test sur une ligne pour savoir si cette ligne est masqué et si cette ligne est masqué de soustraire 1 a la valeur de cette ligne.

J'avais realisé ce code mais ça ne fonctionne pas ou alors j'exploite mal ma formule dans ma cellule.

Code :

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

1
2
3
4
5
6
 
Public Function masque()
If Rows.Hidden = 1 Then
Cells.Value = Cells.Value - 1
End If
End Function

Si quelqu'un peut me mettre sur la voie.

Merci d'avance

[ESVBA]

"Rows" avec le "s" s'applique à la collection de lignes. Donc à toutes sans spécification !

Remplace :

Code :

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

If Rows.Hidden = 1 Then

par

Code :

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

If Rows(icin°LigneATester).Hidden = True Then

De plus pour faciliter la compréhension du code et comme "Hidden" prend la valeur vrai ou faux place une égalité du type "= True" ou "= False".

Code :

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

 si cette ligne est masqué de soustraire 1 a la valeur de cette ligne

Une ligne n'a pas de valeur. Elle a un numéro d'ordre invariable.
Une cellule par contre contient une valeur que l'on peut changer d'ou l'emploi de "Cells" dans ton code.

Même histoire qu'avec le "s" de "Rows", il faut spécifier la cellule concernée.
Syntaxe :
"Cells(n°Ligne, N°Colonne)"


Sinon un petit coup de "F1" sur les mots d'aidera.


ESVBA