VBA Alerte si on masque une valeur

Question

Bonjour, 

Dans un tableau ayant des macro qui masque des lignes ou colonnes inutiles (redimensionne le tableau pour le rendre plus lisible), j'ai peur qu'un utilisateur entre une valeur, et masque la colonne sans penser à effacer ce qu'il y avait dedans.

La valeur serait toujours comptabilisée dans les totaux alors que la colonne n'apparait plus, cela pourrait induire en erreur.

Es-ce possible de faire quelque chose du type:
Dans la feuille "saisie", une ligne ou colonne est masquée.
Si une valeur de la plage "C3:Q200") est masquée then
afficher toute la plage C3:Q200 (autrement dit, annuler le masquage)
Msgbox "attention, vous masquez une valeur"

Une idée pour la phrase en gras? :)

Merci beaucoup!

Anthelm · Answer

Ou quelque chose comme "si dans la plage X une valeur > 0 est masquée, alors..."

Anthelm · Answer

Je suis en train de faire dess essais avec ça mais la partie en gras ne fonctionne pas

Sub test()
For Each cellule In Range("C1:C50")
If (cellule.Value > 0) And cellule.Hidden = True Then Cells(1, 1) = "OK"
Next cellule
End Sub

Anthelm · Answer

Bonjour,

Je rouvre ce topic car je pensais avoir trouvé une solution mais elle ne marche pas toujours.

J'avais fait une cellule avec:
=SOUS.TOTAL(109;Saisie!C3:DH542)
Et une autre avec 
=SOMME(Saisie!C3:DH542)

Sous total est sensé faire une somme des cellules sans les valeurs masquées.
SI les deux cellules sont différentes, afficher une alerte.

ça marche très bien quand des lignes sont masquées et qu'une valeur est restée dedans par inadvertance!

Par contre il semblerait que la fonction sous total de fonctionne pas si c'est une colonne qui a été masquée, et j'ai une macro qui masque des colonnes...

Es-ce possible de faire un sous total ignorant ce qui a été masqué manuellement en tant que ligne ET en tant que colonne?

Anthelm · Answer

J'ai tenté avec:

Function sommeVisibles(champ As Range)
Application.Volatile
t = 0
For Each c In champ
If c.EntireColumn.Hidden = False Then t = t + c.Value
Next c
sommeVisibles = t
End Function


Gros ralentissement, c'est inutilisable sur une grande plage...

eriiic · Answer

Bonjour,

il serait plus logique d'agir en amont.
Que ta macro qui masque fasse contrôle avant et ne masque que ce qui est autorisé.
Exemple :
Sub controle()
    Dim pl As Range, i As Long, nb As Long
    Set pl = [C3:G10]
    'contrôle lignes
    For i = pl.Row To pl.Row + pl.Rows.Count - 1
        nb = Application.Count(Intersect(Rows(i), pl))
        If nb > 0 Then
            MsgBox nb & " valeur(s) numérique(s) en ligne " & i
        End If
    Next i
    'contrôle colonnes
    For i = pl.Column To pl.Column + pl.Columns.Count - 1
        nb = Application.Count(Intersect(Columns(i), pl))
        If nb > 0 Then
            MsgBox nb & " valeur(s) numérique(s) en colonne " & i
        End If
    Next i
End Sub
Seules les valeurs numériques sont comptées. Les textes et valeurs d'erreurs ne gênent pas.
Tu peux utiliser le même principe si tu préfères rester avec un contrôle à-posteriori.
eric

VBA Alerte si on masque une valeur

5 réponses

Discussions similaires

Newsletters