Quelle erreur ai-Je bien pu faire ?

[dmoluc]

Je viens de créer une macro automatique qui ne fonctionne pas et j'ai beau tourner le problème dans tous les sens , avec mes maigres connaissances je n'arrive pas à trouver ou j'ai fait erreur :

Private Sub worksheet_change(ByVal target As Range)
Dim c As Long

If target.Address = Range("H3:H200").Address Then
ActiveSheet.Unprotect
Range("J:N").EntireColumn.Hidden = False
c = Range("H" & Rows.Count).End(xlUp).Offset(0, 6).Value


      If c <= 0.15 And c > 0 Then
     MsgBox ("Attention moins de 0,15 m de couverture au dessus de la génératrice, Pose au Béton Obligatoire ! ") & vbYes
     End If
     If c <= 0.5 And c > 0.15 Then
     MsgBox ("Attention moins de 0,50 m de couverture au dessus de la génératrice, Vérifier la capacité de résistance du tuyau ! ") & vbYes
       End If
     If c <= 0 Then
     MsgBox ("Attention le Tuyau sort de Terre !") & vbYes
      End If
      
Range("K:K, M:M").EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 End If
   
End Sub

J'ai 2 colonnes masquées alors je les démasque et remasque pour être sur que la macro les compte bien mais est-ce nécessaire ?
Je vous remercie par avance de venir en aide à un débutant comme moi...

 

[néné06]

Re : Quelle erreur ai-Je bien pu faire ?

Bonsoir dmoluc,

Essayes cette version , si j'ai bien compris ???
Oups... je n'ai pas traité la protection, mais regardes pour la zone à traiter.

A+

 

[dmoluc]

Re : Quelle erreur ai-Je bien pu faire ?

Je te remercie ça fonctionne presque, le seul problème est que ça ne prend en compte qu'une seule condition : If c <= 0 Then
MsgBox ("Attention le Tuyau sort de Terre !") & vbYes
End If
et cela même si la condition est fausse, Bizard
enfin encore merci, ça avence tout doucement;
Je viens de m'apercevoir que dans ma macro XlUp s'arrêter sur la ligne 200, là ou j'ai ma dernière formule, donc j'avais pris le problème pas trop dans le bon sens
Cordialement et encore merci

 

[Dranreb]

Re : Quelle erreur ai-Je bien pu faire ?

Bonsoir
Déclarez c As Double
Cordialement

 

[dmoluc]

Re : Quelle erreur ai-Je bien pu faire ?

Merci ça fonctionne parfaitement maintenant, je vous remercie tous pour votre aide si précieuse, mais hélas c'est pas encore demain que je pourrais aider moi aussi
Encore merci....