Worksheet_Calculate

[bibbip35]

Bonjour à tous

je rencontre 1 pb concernant une fonction vba que je souhaitais utiliser
Private Sub Worksheet_Calculate(ByVal Target As Excel.Range)

L'objectif étant que quand je modifie la cellule D5 ( dans l'exemple ci-joint) de la feuille 6
Ca modifie la cellule K1 de l'autre feuille ...Jusqu'a la pas de problème

Mais c'est quand la cellule K1 est recalculée ; je dois avoir 1 macro qui s'execute
1/ Si K1 <> rien => bordure
2/ Si K1 = Rien => plus de bordure

Mon problème est que ca me signale 1 pb :
"La déclaration de procédure ne correspond pas à la description de l'événement ou de la procédure de même nom"

Avez vous une idée sur le problème?

Merci à tous

Bibbip35

 

[chris]

Re : Worksheet_Calculate

Bonjour

Pourquoi pas tout simplement une MFC de K1 ?

 

[bibbip35]

Re : Worksheet_Calculate

Bonjour Chris

Excuse moi...je n'ai pas compris le terme "MFC de K1 "

Peux tu m'expliquer? ou m'envoyer 1 exemple?

MERCI

 

[bibbip35]

Re : Worksheet_Calculate

Desolé je viens de comprendre MFC : Mise en forme conditionelle..

C'est 1 idée...mais la macro est prevu également pour inserer du texte...c'est la également mon pb...

Merci

 

[chris]

Re : Worksheet_Calculate

Re

Sorry !

Avec une formule de MFC (tu connais maintenant 😱) sur K1 : =Feuil6!D5=""

Edit : la procédure Worksheet_Calculate n'a pas d'arguments ! D'où le message d'erreur.

Edit 2 : coucou JCGL. Bise 😉

 

[JCGL]

Re : Worksheet_Calculate

Bonjour à tous,
Salut Chris

Calculate n'est pas compatible avec (ByVal Target as Range)...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("K1")) Is Nothing Then
        If Range("K1") <> Range("K2") Then
            Range("K5") = "dfdsf"
            Range("K5:L8").Borders.LineStyle = xlContinuous
        Else
            With Range("K5:L8")
                .Borders.LineStyle = xlNone
                .ClearContents
            End With
            Range("H6") = "GAGNER"
            Range("H7").Select
        End If
        End If
    End Sub

Bise à Chris
A+ à tous

 

[bibbip35]

Re : Worksheet_Calculate

Merci a vous 2

Les réponses vont me permettre d avancer

Bonne journée

Bibbip35